VB列表框的操作

来源：百度知道 编辑：UC知道 时间：2024/05/17 13:32:10
要求程序运行后，如果多次单击列表框中的项，则可同时选择这些项。而如果单击“显示”按钮，则在窗体上输出所有选中的列表项。求代码！

问题1：在list的属性窗口设置
MultiSelect(多选属性），基值可为：
0：每次只选一个
1 :同时选多个
2：可用shift连选，ctrl不连续选择
显然楼主要要求，应该将MulstiSelect设为1。

问题2：在代码中实现
Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
Print List1.List(i)
End If
Next i
End Sub

功能及代码我都在VB中运行通过:)

dim i as inter(这里定义为数字 汗我忘记那单词咯 - - )
for i = 0 to list1.listc(这个属性是list1的选项数 我又忘记是哪个单词了 sorry) - 1
print list1.list(i)
next i

其中几个单词你自己在vb里面输入以下就可以了

我这里现在没有vb所以忘记那个单词了 呵