Question

关于VB里LIST控件的一些用法

ListCount-1这里为什么要加-1...而我
Private Sub Command1_Click()
For i = 1 To List1.ListCount
If List1.Selected(i) Then
Print List1.List(i)
End If
Next i

End Sub

Private Sub Form_Load()
List1.AddItem "一"
List1.AddItem "二"
List1.AddItem "三"
List1.AddItem "四"
List1.AddItem "五"
List1.AddItem "六"
List1.AddItem "七"
List1.AddItem "八"
List1.AddItem "九"
List1.AddItem "十"
List1.AddItem "零"
End Sub

那里没-1就说我什么错误的...
请另外举一些关于LIST的用法..谢谢了噢!!

Answer 1

关于VB里LIST控件的一些用法。

如下参考：

1.首先，打开Excel表，如图所示，单击下面的文件1，右键单击并选择查看代码。

2、.进入学位后的代码页，可以在页面上看到当前版本的代码。

3.然后我们需要使用listbox的用法，如图所示，输入sheet1。细胞(1,3)=sheet1。细胞(1,1)+sheet1。单元格(1,2)，回车。

4.最后，返回到如图所示的页面。双击表格以查看数字。

Answer 2

list1.listcount是list1中的项目总数.从0开始计的.所以到最后一定要减1
6.---列表框的属性功能:
list1.list(i)---------保存了选项值的字符串型数组.下标从0开始
list1.index----------选中的项目在列表框中的位置下标从0开始
list1.listcount-------列表框中的项目总数
list1.selected(i)-----当在可以多选的情况下.列表框中所选中的项目
list1.text------------列表框中最后一次选中的项的内容
list1.selcount--------列表框中所选中的项目的总数
list1.multiselect-----是否允许多选
这是我自己的学习总结..我也是刚学的.高手看了别笑..

Answer 3

如何删除某一行:
Private Sub Command1_Click()
List1.RemoveItem 1 '删除第二行
End Sub

如何从鼠标单击选中的那一行获取行中数据:
Private Sub List1_Click()
MsgBox List1.Text 'List1.Text就是选中那行的数据
End Sub

Answer 4

楼上没错，List1.List等是基于0的数组
0 到List1.ListCount - 1有List1.ListCount 个数
For i = 0 To List1.ListCount - 1