Public Const LB_SELECTSTRING = &H18C
Option Explicit
Private Sub Cancel_Click()
End
End Sub
Private Sub Ok_Click()
MsgBox "您选择了" + List1.Text
End Sub
Private Sub Text1_Change()
Dim Search As String, Index As Long
Search = Text1.Text
If Len(Search) > 0 Then
Index = SendMessage(List1.hwnd, LB_SELECTSTRING, -1, ByVal Search)
Else
List1.ListIndex = 0
End If
End Sub