Zobrazení/skrytí položek comba
Postup:
Deklarujte v
deklarační části formuláře:
Private Declare Function
SendMessageLong Lib _
"user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const CB_SHOWDROPDOWN = &H14F
Na formulář přidejte combo a dvě tlačítka. Kód formuláře je následující:
Sub Form_Load()
Combo1.AddItem "Item 1"
Combo1.AddItem "Item 2"
Combo1.AddItem "Item 3"
End Sub
Private Sub Command1_Click()
Dim r as Long
r = SendMessageLong(Combo1.hWnd, CB_SHOWDROPDOWN, True, 0)
End Sub
Private Sub Command2_Click()
Dim r as Long
r = SendMessageLong(Combo1.hWnd, CB_SHOWDROPDOWN, False,
0)
End Sub
Po stisku prvního tlačítka se automaticky combo rozbalí a po stisku druhého zase zmizí.