Mencari Text pada List Box dengan mengetikkan text pada textbox pada Visual Basic 6.0

Contoh penggunaan : untuk memilih item kota hanya dengan mengetikkan salah satu huruf depannnya maka fokus akan menampilkan item yang dimulai dengan huruf depan tersebut. Berikut script programnya:

Option Explicit

Private Declare Function SendMessage Lib "User32" Alias "SendMessage" (ByVal hWnd As Long, ByVal wMsg as Integer, ByVal wParam As Integer, lParam as Any) As Long

Cons LB_FINDSTING = &H18F

Private sub Command1_Click()
     End
End Sub



Private Sub Form_Load()
     With List1
           .Clear
           .AddItem "CPU"
           .AddItem "RAM"
           .AddItem "ROM"
           .AddItem "Cache"
           .AddItem "Motherboard"
           .AddItem "Hard Disk"
           .AddItem "Floppy Disk"
      End With
End Sub

Private Sub Text1_Change()
             List.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, ByVal Text1.Text)
             Text1.Text = List1.Text
End Sub