ListBox1.MultiSelect = 1 '0或fmMultiSelectSingle不允许多项选择,1或fmMultiSelectMulti,简单的多项选择,即用鼠标单击或用空格键光标键操作,2或fmMultiSelectExtended 扩充多项选择,即用Shift键和Ctrl键配合操作,可手动在列表属性框提前设置好,或在窗体初始化时加载代码,总之要在使用前生效 ListBox1.List(i) '返...
ListBox1.Selected(i) = True Next End Sub '下面是列表框可多选时,重置选择的方法 Private Sub 重置_Click() If ListBox1.ListCount < 1 Then MsgBox "请先获取数据表字段" Exit Sub End If Dim i As Integer For i = 0 To ListBox1.ListCount - 1 ListBox1.Selected(i) = False Next End Sub...
VBA中列表框(ListBox)功能丰富，包括获取列表总行数、当前选择的行数以及判断列表中某一行是否被选定。例如，可以通过`ListBox1.ListCount`获取列表总行数，通过`ListBox1.ListIndex`获取当前选择的行数，使用`ListBox1.Selected(i)`判断列表中第i行是否被选定。若列表框设置为允许多项选择，可通过`Li...
第一步。把代码复制进VBE编辑器,要在的那个工作表使用,就复制进那个工作表。 第二步。在你要使用的工作中新建一个文本框和一个列表框。 控件大小随便画,不用担心,后续VBA会自动调整。有一点要注意,你所建的控件的名称一定要与VBA代码中要控制的名称一样,文本框的名称为:TextBox1,列表框的名称为:ListBox1。
9、ListIndex,用户选中的第一项的索引,如果没有选中项,则返回-1。小提示:我们需要把点击的ListBox的某一行赋值给工作表单元格时,我曾经使用循环,for i =0 to listbox1.listcount-1,再用if listbox1.selected(i)=true 来确定所选中的行。实际上不需要那么做,可以直接用ListIndex来引用选中的行: ...
If ListBox1.ListCount<1Then MsgBox"请先获取数据表字段"Exit Sub End If Dim i As Integer For i=0To ListBox1.ListCount -1If ListBox1.Selected(i)=True Then ListBox1.Selected(i)=False Else ListBox1.Selected(i)=True End If Next ...
str = str & "在控件中的索引=" & ListView1.SelectedIndices.Item(i).ToString & vbCr Next MessageBox.Show(str) End Sub 运行后显示效果如下图四所示: 两个属性都能获得所选项在控件中的索引,我们在实际应用的时候可以灵活选择使用它们中的一个,以达到简化代码的目的。
Private Sub cmdbDown_Click() Dim i As Integer ' 确保ListBox有选中的项目 If ListBox1.ListIndex <> -1 Then ' 遍历列表框的项目 For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) And i <> ListBox1.ListCount - 1 Then tempp = ListBox1.List(i) ...
MsgBox ListBox1.Selected(0) ' 检查第一个项目是否选择 ListBox1.Selected(1) = True ' 选择第二个项目 MsgBox ListBox1.ListIndex ' 获取当前选择的项目的索引 ListBox1.ListIndex = 0 ' 设置当前选择的项目为第一个项目 复制代码 可以使用ListBox的“Clear”方法清除所有项目。 ListBox1.Clear 复制代码...
ListBox是用户窗体(UserForm)中的一种控件,列表默认是单选,即每点击一次列表只会选中其中一行,通过设置ListBox的MutiSelect属性可以让列表框允许选择多行。 ListBox属性 若是单行选择,选中的值可以直接用ListBox.Value获得,而设置多行选择以后列表框的值就不唯一,不能用value属性获得列表框里面的值。同时需要注意的是...