[Vb6] Aprire la combo

[Fado84]

ciao ragazzi come si fa per aprire una combo box??
si usa sendmessage e cb_showdropdown ma non so come usarle..
la sendmessagge la dichiaro così?

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

POI come si fa????

Altra cosa: se voglio aprire una datacombo esiste un altro metodo olte sendkeys che mi troppo macello?

grazie mille!

[Mabi]

Da una guida...

Const WM_USER = &H400
Const CB_SHOWDROPDOWN = (WM_USER + 15)
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0&
' Per aprire
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0&
' Per chiudere

[Fado84]

non funge.. mi puoi dare il link della guida se è online??
grazie

[Mabi]

Originariamente inviato da Fado84
non funge..

Hai dichiarato la SendMessage, come tu stesso hai scritto ?

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 Sub Command1_Click()
Const WM_USER = &H400
Const CB_SHOWDROPDOWN = (WM_USER + 15)
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0&
' Per aprire
SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0&
' Per chiudere
End Sub

[Fado84]

si.. l'ho messo sia nel form che in un modulo

[Fado84]

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 WM_USER = &H400
Private Const CB_SHOWDROPDOWN = WM_USER + 15

Private Sub Command1_click()
    'Apre La Lista
    SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&
End Sub

Come mai non funge? devo includere qualcosa?

[Mabi]

Non capisco...
La guida è una guida generale alle API. La puoi trovare qui.

[Fado84]

ma a te funziona?

[Mabi]

Si, proprio il tuo codice.
Mi basta inserire una Combo, un tasto e copiare.
L'apertura si vede ancora meglio inserendo degli elementi nella stessa Combo.

[Fado84]

Finalmente ho risolto il problema.. posto la soluzione nel caso qualcuno avesse avuto i miei stessi problemi..

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
Const CB_SHOWDROPDOWN = &H14F
Const CB_GETDROPPEDSTATE = &H157


    

Private Sub Command1_Click()
sendmessage Combo1.hwnd, CB_SHOWDROPDOWN, True, ByVal 0&
End Sub

CIAO!