sendmessage: not on correct line???

Code:

---

Option Explicit
Private Declare Function sendMessageByString& Lib "user32" _
    Alias "SendMessageA" (ByVal hwnd As Long, _
    ByVal wMsg As Long, ByVal wParam As Long, _
    ByVal lParam As String)

Private Sub Command1_Click()
 Dim lngEntryNum As Long
 Dim strTxtToFind As String
 
    lngEntryNum = sendMessageByString(List1.hwnd, &H18C, 0, "abc")

End Sub

Private Sub Form_Load()
    List1.AddItem "abc"
    List1.AddItem "abcd"
    List1.AddItem "abcd d"
    List1.AddItem "abdd e"
    List1.AddItem "abd"
    List1.AddItem "abdec"
End Sub

---

when I use this code, he selects the second line, instead of the first. Why???

Ouch that hurts my eyes :eek:

Code:

---


    lngEntryNum = sendMessageByString(List1.hwnd, &H18C, 0, "abc")

---

neeevvvvvvver :rolleyes: use that kindof hex values ;)

use constants instead.


like this:

Code:

---

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

---

I think it's selecting the first item because you did:

Code:

---


    lngEntryNum = sendMessageByString(List1.hwnd, &H18C, 0, "abc")

---

and that should be:

Code:

---


    lngEntryNum = sendMessageByString(List1.hwnd, LB_FINDSTRING, -1, "abc")

---

so with all code that would make:

Code:

---

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

Private Sub Command1_Click()
 Dim lngEntryNum As Long
 Dim strTxtToFind As String

    lngEntryNum = sendMessage(List1.hwnd, LB_FINDSTRING, -1, "abc")



End Sub

Private Sub Form_Load()
    List1.AddItem "abc"
    List1.AddItem "abcd"
    List1.AddItem "abcd d"
    List1.AddItem "abdd e"
    List1.AddItem "abd"
    List1.AddItem "abdec"
End Sub

---

Did that fixed the prob?

&H18C is the value for the message LB_SELECTSTRING

yes, it is working. Thanks a lot Jop & Mad Compie.

Quote:

---

Originally posted by Mad Compie
&H18C is the value for the message LB_SELECTSTRING

---

OOPS wasn't paying attention :o
sorry, but fine it's working :)