Rozbalení comba na šipku dolů
Postup:
Založte nový projekt. Na
formulář dejte combo a tlačítko. Do deklarační části formuláře
zapište:
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_GETEXTENDEDUI = &H156
Private Const CB_SETEXTENDEDUI = &H155
'Proměnná pro přepínání
stavu comba
Dim Cstate As
Boolean
Na událost Load formuláře zapište kód pro načtení testovacích položek do comba:
Private Sub Form_Load()
Dim i As Long
For i = 1 To 20
Combo1.AddItem
"Testovací položka " & i
Next i
Cstate = False
End Sub
Na událost click tlačítka:
Private Sub Command1_Click()
Cstate = Not Cstate
SendMessageLong Combo1.hwnd, CB_SETEXTENDEDUI, Abs(Cstate),
0
End Sub