Question

VB6.0中LISTBOX的查找问题

在Text中的字符串属于不属于listbox的因素. 这是自定义Function：
Public Function tawa(ByVal text As String, ByVal list As ListBox) As Boolean
Dim kg As Boolean
For i = 0 To list.ListCount - 1
list.ListIndex = i
If text = list.text Then
kg = True
Exit For
Else
kg = False
End If
Next i
tawa = kg
End Function
如果属于的话返回True ， 不属于的话返回Flase

Answer 1

你这个也没问题啊，哪里报错了。。不过还可以简化一下而已
Public Function tawa(ByVal text As String, ByVal list As ListBox) As Boolean
tawa = False
For i = 0 To list.ListCount - 1
If text = list.list(i) Then
tawa = True
Exit For
End If
Next i
End Function

Answer 2

If text = list.text Then 这句有问题，list.text是指列表中被选中的文本，应该改为：
if text=list.list(i) then
list.ListIndex = i 这句不起作用

Answer 3

Public Function tawa(ByVal text As String, ByVal list As ListBox) As Boolean
For i = 0 To list.ListCount - 1
list.ListIndex = i
If text = list.text Then tawa = True: Exit For
Next i
End Function