怎样在listbox里查找定位数据？

cwf6521783 2004-10-31 07:37:21

假设listbox里有下面几个数据：
苹果
橘子
香蕉
柿子
现要在listbox上找到"香蕉"，并使之成为选中状态
怎么做啊

...全文

231 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

51365133 2004-10-31

打赏
举报

Private Sub Command1_Click()
For i = 1 To List1.ListCount
If List1.List(i) = Text1.Text Then
MsgBox Text1.Text & "在第" & i & "处"
End
End If
Next i
End Sub

Private Sub Form_Load()
For i = 1 To 50
List1.AddItem Int(Rnd * 40) + 20
Next i
End Sub

northwolves 2004-10-31

打赏
举报

Private Sub Command1_Click()
List1.SetFocus
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.List(i) = "香蕉" Then
List1.Selected(i) = True
Exit For
End If
Next
End Sub

Private Sub Form_Load()
List1.AddItem "苹果"
List1.AddItem "橘子"
List1.AddItem "香蕉"
List1.AddItem "柿子"
End Sub

cdwzm 2004-10-31

打赏
举报

放置一个TEXT用来查询用!

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Any) As Long

Const LB_FINDSTRING = &H18F

Private Sub Form_Load()
With List1
.AddItem "苹果
.AddItem "香蕉"
.AddItem "柿子"
End With
End Sub
Private Sub Text1_Change()
List1.ListIndex = SendMessage(List1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
End Sub

cwf6521783 2004-10-31