精华内容
下载资源
问答
  • VB LISTBOX属性

    2019-09-27 12:22:17
    additem 添加属性 listcount总记录数 listindex索引值 Private Sub Form_Load()List1.AddItem "广东省广州市"List1.AddItem "广东省河源市"List1.AddItem "广东省惠州市"List1.ListIndex = 0End Sub Private Sub...

    additem 添加属性

    listcount总记录数

    listindex索引值

    Private Sub Form_Load()
    List1.AddItem "广东省广州市"
    List1.AddItem "广东省河源市"
    List1.AddItem "广东省惠州市"
    List1.ListIndex = 0
    End Sub

    Private Sub LeftAll_Click()
    Dim i As Integer
      For i = 0 To List2.ListCount - 1
      List1.AddItem List2.List(i)
      Next
      List2.Clear
      List1.ListIndex = List1.NewIndex
      
    End Sub

    Private Sub LeftOne_Click()
    Dim i As Integer
      If List2.ListCount = 0 Then Exit Sub
       List1.AddItem List2.Text
       i = List2.ListIndex
       List2.RemoveItem i
       List1.ListIndex = List1.NewIndex
        If List2.ListCount > 0 Then
        If i > List2.ListCount - 1 Then
        List2.ListIndex = i - 1
        Else
           List2.ListIndex = i
        End If
      End If
    End Sub

    Private Sub List1_dblclick()

    RightOne_Click
    End Sub

    Private Sub List2_dblClick()
    LeftOne_Click
    End Sub

    Private Sub RightOne_Click()
    Dim i As Integer
    If List1.ListCount = 0 Then Exit Sub
       List2.AddItem List1.Text
       i = List1.ListIndex
       List1.RemoveItem List1.ListIndex
       If List1.ListCount > 0 Then
       If i > List1.ListCount - 1 Then
       List1.ListIndex = i - 1
       Else
        List1.ListIndex = i
        End If
    End If
    List2.ListIndex = List2.NewIndex
    End Sub
    Private Sub RightALL_Click()
    Dim i As Integer
    For i = 0 To List1.ListCount - 1
    List2.AddItem List1.List(i)
    Next
     List1.Clear
     List2.ListIndex = 0
    End Sub

    Private Sub Up_Click()
    Dim Up As Integer
    With List2
    If .ListIndex < 0 Then Exit Sub
      Up = .ListIndex
      If Up = 0 Then Exit Sub '不能将第一个项目向上移动
      .AddItem .Text, Up - 1 '向上移动项目
      .RemoveItem Up + 1   '删除旧的项目
      .Selected(Up - 1) = True   '选择刚刚被移动的项目
      End With
    End Sub
    Private Sub Down_Click()
    Dim Down As Integer
      With List2
      If .ListIndex < 0 Then Exit Sub
        Down = .ListIndex
        If Down = .ListCount - 1 Then Exit Sub  '不能将最后的项目向下移动
        .AddItem .Text, Down + 2  '向下移动项目
        .RemoveItem Down     '删除旧的项目
        .Selected(Down + 1) = True  '选择刚刚被移动的项目
        
      End With
        
    End Sub

    附有截图

    先新建两个listbox一个命名为:list1和一个list2

    和六个命令按钮,详细命名见上图即可。为左、右、全左、全右、上、下

    转载于:https://www.cnblogs.com/rosesmall/p/3435862.html

    展开全文
  • '在窗体画三个控件(Text1、Command1、List1),属性为默认,加入以下代码: Option Explicit Private Sub FindThe(List As ListBox, Txt As String, N As Boolean) Static Sstxt() As String, S(2) As Integer, Lt ...

    '在窗体中画三个控件(Text1、Command1、List1),属性为默认,加入以下代码:
    Option Explicit
    Private Sub FindThe(List As ListBox, Txt As String, N As Boolean)
    Static Sstxt() As String, S(2) As Integer, Lt As Boolean
    If N Then
    If Lt = False Then
    For S(0) = 0 To List.ListCount - 1
    ReDim Preserve Sstxt(S(0))
    Sstxt(S(0)) = List.List(S(0)) '先将列表所有数据放到数组Sstxt中,方便导回列表。
    If S(0) = List.ListCount - 1 Then List.Clear: Lt = True
    Next S(0)
    End If

    If Lt = True Then
    List.Clear
    For S(1) = LBound(Sstxt) To UBound(Sstxt)
    If InStr(UCase(Sstxt(S(1))), UCase(Txt)) <> 0 Then
    List.AddItem Sstxt(S(1))
    End If
    Next S(1)
    End If
    Else
    Dim i As Integer
    If Text1 = “” And Lt = True Then
    List1.Clear
    For i = LBound(Sstxt) To UBound(Sstxt)
    List1.AddItem Sstxt(i)
    If i >= UBound(Sstxt) Then Erase Sstxt: Lt

    展开全文
  • VB2008 ListBox和ComboBox控件的使用方法
  • vb.net 在winform调整listBox行间距

    千次阅读 2017-09-22 15:29:36
    在为 winformlistBox的行间距默认太紧凑,如果要调整,还是比较麻烦的。笔者查询了多种方法,现总结如下。需要两个事件,一个是DrawItem ,另一个是MeasureItem。还需要把listBox的drawMode属性设置为...

      在为 winform中,listBox的行间距默认太紧凑,如果要调整,还是比较麻烦的。笔者查询了多种方法,现总结如下。需要两个事件,一个是DrawItem ,另一个是MeasureItem。还需要把listBox的drawMode属性设置为OwerDrawFixed, 即手动模式。
      

    ‘重新绘制listBox的条目
       Private Sub ListBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ListBox1.DrawItem
            e.DrawBackground()
            e.DrawFocusRectangle()
            Dim difH = (e.Bounds.Height - e.Font.Height) / 2
            '指定绘制文本的位置
            Dim rf As RectangleF = New RectangleF(e.Bounds.X, e.Bounds.Y + difH, e.Bounds.Width, e.Font.Height)
            '绘制指定的字符串
            e.Graphics.DrawString(ListBox1.Items(e.Index).ToString(), e.Font, New SolidBrush(Color.Black), rf)
            'e.Graphics.DrawString(ListBox1.Items(e.Index).ToString(), e.Font, New SolidBrush(e.ForeColor), e.Bounds)
        End Sub
     ’衡量listBox条目的高度
       Private Sub ListBox1_MeasureItem(sender As Object, e As MeasureItemEventArgs) Handles ListBox1.MeasureItem
            e.ItemHeight = 50
        End Sub
    展开全文
  • vb列表框ListBox的详细使用方法

    万次阅读 2018-06-12 15:19:45
    列表框(ListBox)控件表示一个选项清单,用户可能用鼠标选择其中一个或者几个选项。 列表框的特点是:列表框的项目是通过程序插入到其中的,用户无法向清单输入数据,当选择其中的项
    原文地址为:
    vb列表框ListBox的详细使用方法
    

    列表框(ListBox)控件表示一个选项清单,用户可能用鼠标选择其中一个或者几个选项。

      列表框的特点是:列表框中的项目是通过程序插入到其中的,用户无法向清单中输入数据,当选择其中的项目,并在用户单击一个按钮或者执行某个操作时,由应用程序完成对指定项目的具体操作。下面这个例子充分说明了列表框的这个特点,并介绍了列表框(ListBox)的常用属性。

      为了学习方便,提供的源码已经作了详细的中文注释,看看源码框中的代码:

    Option Explicit
    '--------------------------------------
    ' 简单的列表框ListBox的例子
    '--------------------------------------
    ' 洪恩在线 求知无限
    '--------------------------------------
    '------名称-------------作用------------
    ' List1、List2 列表框
    ' LefttoRightCmd 移动所选项目到另一个列表框(左到右)
    ' RighttoLeftCmd 移动所选项目到另一个列表框(右到左)
    ' List1MoveCmd 删除列表框List1中所选项目
    ' List2MoveCmd 删除列表框List2中所选项目
    ' List1AddCmd 给列表框List1增加新项目
    ' List2AddCmd 给列表框List2增加新项目
    ' List1ClearCmd 清空列表框List1
    ' List2ClearCmd 清空列表框List2
    '--------------------------------------
    '--------------------------------------
    '————名称————属性设置———
    '
    ' List1列表框 Sorted属性设为“False”
    ' List2列表框 Sorted属性设为“True”
    ' MultiSelect属性设置为2
    ' 即List2控件中的项目总是排序的
    '--------------------------------------

     

    Private Sub Form_Load()

    '装载窗体时,给列表中的元素赋值
    List1.AddItem "China"
    List1.AddItem "America"
    List1.AddItem "Japan"
    List2.AddItem "Soccer"
    List2.AddItem "Tennis"
    List2.AddItem "Basketball"

    End Sub

    Private Sub LefttoRightCmd_Click()
    '将左边列表中所选元素移动到右边列表中
    If List1.ListIndex >= 0 Then

    '在右边列表中增加新元素
    List2.AddItem List1.Text

    '删除左边列表中的所选元素
    List1.RemoveItem List1.ListIndex

    End If

    End Sub

    Private Sub List1AddCmd_Click()

    Dim ListItem As String
    '
    ListItem = InputBox("在列表中输入新项目")
    '向列表中加入新项目
    If Trim(ListItem) <> "" Then
    'Trim()作用是清除ListItem字符串内的空格

    List1.AddItem ListItem
    End If


    End Sub

    Private Sub List1ClearCmd_Click()

    '清空列表
    List1.Clear

    End Sub

    Private Sub List1MoveCmd_Click()

    Dim i As Integer
    '判断列表框是否只有一个项目被选中
    If List1.SelCount = 1 Then

    List1.RemoveItem List1.ListIndex

    ElseIf List1.ListCount > 1 Then

    '删除列表框中的所选中的多个项目
    For i = List1.ListCount - 1 To 0 Step -1
    'ListCount返回列表框中的项目总数
    'ListCount-1是列表框中最后一个项目的索引号

    '判断该项目是否被选中,Selected()返回布尔值
    If List1.Selected(i) Then
    '删除索引号为i的项目
    List1.RemoveItem i

    End If
    Next
    End If


    End Sub


    Private Sub List2AddCmd_Click()

    '定义变量,以接收输入的字符串
    Dim ListItem As String
    ListItem = InputBox("在列表中输入新项目")

    If Trim(ListItem) <> "" Then
    '将字符串增加到列表中
    List2.AddItem ListItem

    End If


    End Sub

    Private Sub List2ClearCmd_Click()

    '清空列表
    List2.Clear

    End Sub

    Private Sub List2MoveCmd_Click()

    Dim i As Integer
    '判断所选 元素是否只有一个
    If List2.SelCount = 1 Then

    List2.RemoveItem List2.ListIndex
    '如果所选 元素大于1,则按下列操作进行
    ElseIf List2.ListCount > 1 Then
    For i = List2.ListCount - 1 To 0 Step -1

    If List2.Selected(i) Then
    List2.RemoveItem i
    End If
    Next i
    End If

    End Sub

    Private Sub RighttoLeftCmd_Click()

    Dim i As Integer
    '判断选中的元素有几个
    If List2.SelCount = 1 Then

    List1.AddItem List2.Text
    List2.RemoveItem List2.ListIndex
    '当选中的元素大于一个时
    ElseIf List2.SelCount > 1 Then

    For i = List2.ListCount - 1 To 0 Step -1
    '如果该元素被选中,则将其从右边移至左边
    If List2.Selected(i) Then

    List1.AddItem List2.List(i)
    List2.RemoveItem i
    End If
    Next i
    End If

    End Sub
    (源程序下载)

    这个例子包含一个窗体,窗体中有两个列表框(List1、List2)和八个按钮,界面如下:

     


    窗体(FormListBox)

    我们首先新建一个标准的EXE工程,添加一个窗体,并把列表框和按钮控件添加到窗体上。各按钮控件的名称如下表:

    按钮名称
    名称属性
    按钮名称
    名称属性

    删除所选项目(左)
    List1movecmd
    删除所选项目(右)
    List2movecmd

    增加新项目(左)
    List1addcmd
    增加新项目(右)
    List2addcmd

    清除弄表(左)
    List1clearcmd
    清除列表(右)
    List2clearcmd

    右箭头 lefttorightcmd 左箭头 Righttoleftcmd


    ' List1列表框 Sorted属性设为“False” ' List2列表框 Sorted属性设为“True” ' MultiSelect属性设置为2 ' 即List2控件中的项目总是排序的

      在属性窗口中,将List1列表框 Sorted属性设为“False”;List2列表框 Sorted属性设为“True”,MultiSelect属性设置为2,即List2控件中的项目总是排序的。

      下一步我们为各控件添加相应的程序。

      其中:

      List1.AddItem "China" 是将“China”添加到列表框中。

      List1.ListIndex 返回的是列表框List1中当前选择项目的索引号码。

      List1.ListCount 返回的是列表框List1中项目总数。

      List1.ListCount - 1 返回列表框List1中最后一个项目的索引号。

      List1.Selected() 返回的是一个项目的选择状态,返回的是布尔值。

      代码写好之后,我们就可以保存工程,然后按“Ctrl+F5”键,测试检验一下我们的程序了。在这个小程序中,包含了列表框中的一般常用属性和方法。


    转载请注明本文地址: vb列表框ListBox的详细使用方法
    展开全文
  • 根据月份。每天画一个listbox和label,并且为listbox添加事件 Private Sub DrawingPage()  Try  'listbox大小  Dim s As Size  s.Width = 120  s.Height = 88  
  • vb.net的ListBox控件

    千次阅读 2013-02-20 15:07:02
    ListBox(列表框)控件可以显示一组项目的列表,用户可以根据需要从中选择一个或多个选项。列表框可以为用户提供所有选项的列表。虽然也可设置列表框为多列列表的形式,但在缺省时列表框单列垂直显示所有的选项,如果...
  • vb listbox应用

    2010-08-25 19:11:19
    强化练习vb listbox控件 listbox属性 如何添加 如何删除 如何筛选 等等。。
  • VB控件属性大全【珍藏版】

    热门讨论 2012-04-21 11:28:45
    VB控件属性大全【珍藏版】 1.01、窗体(FORM)的常用属性 2 1.02、标签控件(Lable)的常用属性 7 1.03、文本框控件(TextBox)的常用属性 9 1.04、框架控件(Frame)的常用属性 13 1.05、命令按钮控件(CommandButton)的...
  • vb-listbox用法

    万次阅读 2008-05-09 15:54:00
    列表框(ListBox)控件表示一个选项清单,用户可能用鼠标选择其中一个或者几个...下面这个例子充分说明了列表框的这个特点,并介绍了列表框(ListBox)的常用属性。 为了学习方便,提供的源码已经作了详细的中文注释,
  • vb-ListBox用法2

    千次阅读 2014-04-18 19:26:28
    炉石传说  ListBox  中文名称列表框  可以也许经过vb的代码添加、建正列表框的内容 ... VB.ListBox 的成员  添加一项到 Listbox 控件。  参数:  Item:所要添加的字符串  Index:可选,将
  • VB ListBox 添加不重复的值,当列表已经存在该值即不再添加。 Private Function AddList(List As ListBox, Str As String) As Boolean Dim I As Long For I = 0 To List.ListCount - 1 If List.List(I) = Str ...
  • vb控件的默认属性

    2021-09-27 09:20:09
    VB控件的默认属性指这个控件使用时只写出对象名,省略属性名时代表的某个属性。 即通常我们使用属性值时应使用如下格式:对象名.属性名=属性值, 如果使用某个对象的属性值时如下格式:对象=属性值 ,这个对象的该...
  • VB控件属性大全

    万次阅读 多人点赞 2018-06-14 08:54:57
    1.01、窗体(FORM)的常用属性... 21.02、标签控件(Lable)的常用属性... 71.03、文本框控件(TextBox)的常用属性... 91.04、框架控件(Frame)的常用属性... 131.05、命令按钮控件(CommandButton)的常用属性... 151.06、...
  • VB中列表框添加与删除项目

    千次阅读 2019-02-11 16:50:17
  • 首先将Listbox的DrawMode属性设置为DrawMode.OwnerDrawVariable 加载事件DrawItem和MeasureItem,如不加入MeasureItem事件,则Item会使用默认高度重绘,字体显示不完全,各位可以自己尝试一下 ListBox_listBox =...
  • ListBox(列表框)也是日常经常使用和遇到的组件,在Visual Basic .Net使用的ListBox其实是从.Net FrameWork SDKListBox类经过实例化产生的。.Net FrameWork SDKListBox类所创建的ListBox是最典型的,要想...
  • vb列表框ListBox的使用

    千次阅读 2007-10-11 11:09:00
    列表框(ListBox)控件表示一个选项清单,用户可能用鼠标选择其中一个或者几个...下面这个例子充分说明了列表框的这个特点,并介绍了列表框(ListBox)的常用属性。 为了学习方便,提供的源码已经作了详细的中文注释,
  • V友们都知道,vb6.0自带的ListBox列表控件是一个用途广泛的控件,它主要的功能就是用来显示和查询数据的COX,但是随着人们的审美观念越来越高,VB自带的List在美观上显得格格不入了,为了在列表控件的审美上有所改观...
  • 如果你是将二维数组赋值给Listbox.rowsource的话,当需要取得listbox中某行某列的值时,会报属性索引值无效等错误。 看官方文档,文档,文档。得到并记住以下一点,就不在茫然了。 如果listbox是多列的情况下,...
  • 一个关于VB2005 listbox的奇怪的问题 我使用多选的listbox来取得选项的值,不知怎么搞得,总是只能选到listbox中最后一项的值。 我是这样给listbox添加选项的: Do Until Rs.EOF TempPeople.Id = Rs.Fields( ...
  • VB LISTBOX

    2013-02-14 19:44:34
    1)List Box控件常用的方法 参数:AddItem向列表框添加新项目,其格式为:ListBox控件名.AddItem项目>[,索引值>]其中:&lt;项目&gt;为字符串表达式,表示添加到列表框的新项目。&lt;索引值&gt...
  • 属性编辑,正常来说不需要自定义,因为一般的属性,在里面都能支持,当要进行一个自定义类型的属性编辑时,就得进行属性编辑器的自定义了。 如何让自己的属性支持如 有一个下拉框按钮呢。默认只支持内置的类型。假如...
  • 第一反映是自己是不是在该用long(VB中long是32位整数)的地方误用了Integer(VB6Integer是16位整数,范围-32768 ~ 32767)溢出错误。花了几小时检查代码,没有发现确切的问题。最后,调试发现在添加大量纪录后,...
  • ListBox自动滚动到底部

    千次阅读 2019-07-30 22:18:25
    ListBox中添加一条记录(ListBox.Items.Add方法)后,滚动条会自动回到顶部。我们可能更希望它自动滚动到底部,本文简要介绍几种方法。 方法1: 在添加记录后,先选择最后一条记录,滚动条会自动到底部,再取消...
  • VB 用Height、Width属性改变大小
  • '属性设置 lv.ToolTipText = "请选择物料规格" '加入内容 ‘If rs.RecordCount > 0 Then lv.DataSource = rs lv.DataField = "spec" ‘End If lv.Refresh End Sub
  • VB.NET打造个性化ListBox控件

    千次阅读 2004-10-19 09:23:00
    ListBox(列表框)也是日常经常使用和遇到的组件,在Visual Basic .Net使用的ListBox其实是从.Net FrameWork SDKListBox类经过实例化产生的。.Net FrameWork SDKListBox类所创建的ListBox是最典型的,要想...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,127
精华内容 1,250
关键字:

vb中listbox属性