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

[cwf6521783]

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

[cwf6521783]

咋办

[northwolves]

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

[northwolves]

或者
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
Private Sub Command1_Click()
List1.ListIndex = SendMessage(List1.hwnd, &H18F, -1, "香蕉")
End Sub

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

[yingxiangchen]

第二种比较爽一点喔！二话不说，就一句！

[niefuhua]

告诉你一个更简单的方法,这是我今天摸索出来的,与大家共享
Private Sub Form_Load()
List1.AddItem "苹果"
List1.AddItem "橘子"
List1.AddItem "香蕉"
List1.AddItem "柿子"
End Sub
Private Sub Command1_Click()
List1.Text="香蕉"
End Sub
够绝吧,给分吧