Listbox API

[HeLta_SkeLta]

I know there is an API call that will retrieve the contents of a list box from another program. But, I don't know which one. If anyone knows what API to use and how to use it please tell me. Thank you.

[Aaron Young]

You need the SendMessage API with the LB_GETTEXT API Constant, ie.

Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const LB_GETCOUNT = &H18B
Private Const LB_GETTEXT = &H189
Private Const LB_GETTEXTLEN = &H18A

Private Sub Command1_Click()
    Dim tPOS As POINTAPI
    Dim lHwnd As Long
    Dim lCount As Long
    Dim lIndex As Long
    Dim lLen As Long
    Dim sItem As String
    
    Call GetCursorPos(tPOS)
    lHwnd = WindowFromPoint(tPOS.x, tPOS.y)
    lCount = SendMessage(lHwnd, LB_GETCOUNT, 0&, ByVal 0&)
    List1.Clear
    While lIndex < lCount
        lLen = SendMessage(lHwnd, LB_GETTEXTLEN, lIndex, ByVal 0&)
        sItem = Space(lLen)
        Call SendMessage(lHwnd, LB_GETTEXT, lIndex, ByVal sItem)
        List1.AddItem sItem
        lIndex = lIndex + 1
    Wend
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]