vb中怎样返回list中的一个值
发布网友
发布时间：2024-10-22 13:05
共2个回答
热心网友
时间：2024-10-22 17:28
这是你想要的
Private Sub Command1_Click()MsgBox List1.List(1)
End Sub
Private Sub Form_Load()
List1.AddItem 1
List1.AddItem 2
List1.AddItem 3
End Sub
热心网友
时间：2024-10-22 17:29
如果是要找某一个项
Private Sub Command1_Click()
Dim i As Integer
Dim Key as String
Key = InputBox("输入要找的值！")
For i = 0 To List1.ListCount - 1
If List1.List(i) = Key Then
MsgBox List1.List(i)
Exit Sub
End If
Next i
MsgBox "找不到"
End Sub
如果是要找指定序号的项，比如第2项
msgbox List1.List(2)
注意：项目的序号从0开始编号
