Selasa, 21 Juli 2009

Search for words in ListBox

'Copyright by x-vb @ jhie
'http://www.vbbego.cjb.net
'Author: x-vb @ jhie - 7/19/2004

Option explicit
Private Declare Function SendMessage lib "User32" _
Alias "SendMessageA" (ByVal hWnd As Long, ByVal _
wMsg As Integer, ByVal wParam As Integer, _ lParam
As Any) As Long
Const LB_FINDSTRING = & H18F

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 ()
List1.ListIndex = SendMessage (List1.hWnd, _
LB_FINDSTRING, -1, ByVal Text1.Text)
End Sub
> swap



Tidak ada komentar:

Posting Komentar