Please tell me what is '399 ( find/search , "send message")


Please tell me why &H18F is used.... '399



Dim db As Database
Dim rs As Recordset

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()

Set db = OpenDatabase(App.Path & "Alanis.mdb")
Set rs = db.OpenRecordset("Singer")
rs.MoveFirst
Do While Not rs.EOF
List1.AddItem rs!Name
rs.MoveNext
Loop
End Sub

Private Sub Text1_Change()
List1.Visible = True
List1.ListIndex = SendMessage(List1.hWnd, LB_FINDSTRING, -1, _
ByVal Text1.Text)

End Sub
Sign In or Register to comment.

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories