🚀 go-pugleaf

Buonasera,

sto scrivendo un programma in Visual Basic 6 per controllarne un altro
scritto in Visual C++.
Il programma da controllare è composto da quattro oggetti di tipo
SysListView32.
Con il codice seguente posso recuperare gli handle dei quattro
controlli e su questi posso effettuare operazioni di aggiunta e
rimozione elementi. L'unico messaggio che non mi funziona è quello per
selzionare uno o tutti gli elementi della SysListView.
Infatti quando mando questo messaggio ricevo un errore fatale
dell'applicazione in Visual C++ con riferimento al file COMCTL32.OCX.
Ecco il codice:

Type LVITEM
    mask As Long
    iItem As Long
    iSubItem As Long
    state As Long
    stateMask As Long
    pszText As Long
    cchTextMax As Long
    iImage As Long
    lParam As Long
    iIndent As Long
End Type

Private Const LVM_FIRST = &H1000 '// Costanti messaggi per listview
Private Const LVM_SETITEMSTATE = (LVM_FIRST + 43)
Private Const LVIS_SELECTED = &H2
Private Const LVIF_STATE = &H8

Public hSysListView32(3) As Long 'handle delle varie SysListView32
Public SysListAttrib(3) As LVITEM

Sub TestButton()
    hFound = FindWindowEx(0, 0, vbNullString, "Visual C++ Program")

    If hFound > 0 Then
        result = EnumChildWindows(hFound, AddressOf EnumChildProc,
ByVal 0&)
    End If
End Sub

Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As
Long) As Long
    Dim sClass As String
    Dim ret&
    Dim totalItem As Integer
    Static i As Integer

    sClass = Space$(64)
    ret = GetClassName(hwnd, sClass, 64)

    If InStr(Left(sClass, ret), "SysListView32") Then

            hSysListView32(i) = hwnd

        i = i + 1
    End If

    EnumChildProc = 1
End Function

Sub Select() 'richiamata da un pulsante della form

    Dim x

    For x = 0 To 3

        SysListAttrib(x).mask = LVIF_STATE
        SysListAttrib(x).state = True
        SysListAttrib(x).stateMask = LVIS_SELECTED

            Call SendMessage(hSysListView32(x), LVM_SETITEMSTATE, -1,
SysListAttrib(x))
            Call UpdateWindow(hSysListView32(x))
    Next x

End Sub

Cosa ne pensate di questo comportamento? In pratica mi funziona tutto
tranne l'unico messaggio che veramente mi serve! :-)

Grazie, Emilio.