Поиск в ListBox'e (?)

[Tok]

Нужно найти Item в Листе. Т. е. если есть в итемах некоторая строчка, то MsgBox "True".

[A.A.Z.]

1)

Код: Выделить всё

Sub FindString(ByVal What As String)
Dim I&
For I = 0 To List1.ListCount - 1
List1.ListIndex = I
If List1.Text = What Then MsgBox "Есть": Exit Sub
Next
MsgBox "Нет"
End Sub

2)

Код: Выделить всё

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 Const LB_FINDSTRING As Long = &H18F

Sub FindString(ByVal What As String)
Dim Res1&, Res2 As Boolean
Res1 = SendMessage(List1.hWnd, LB_FINDSTRING, -1, What)
Select Case Res1
Case 0
MsgBox "Нет!"
Case Else
MsgBox "Есть!"
End Select
End Sub

[Tok]

Спасибо! Как все оказалось просто...
Еще раз - Большое Спасибо!

[Tok]

Хм... Почему-то второй код находит строку только если она первая в листбоксе. (?)

А в первом коде подскажите как продолжить действия после MsgBox "Есть", т.е. после этой мессаги мне надо где-то кнопочку сделать активной, где-то что-то скрыть\показать?
Просто еще никогда не встречал строку со странным двоеточием (If List1.Text = What Then MsgBox "Есть": Exit Sub)...

[Tarik]

Двоеточие - это то же самое, что и переход на другую строку. То есть куски

Код: Выделить всё

If List1.Text = What Then MsgBox "Есть": Exit Sub


и

Код: Выделить всё

If List1.Text = What Then
MsgBox "Есть"
[сюда можно вставить что-то своё]
Exit Sub
End if


абсолютно идентичны

[Tok]

Да, но тогда выскакивает ошибка компиляции: "Next without For"!