|
Im Normalfall wird die Liste einer ComboBox per Tastatur über die Taste F4 oder über die Tastenkombinationen Alt+Abwärts bzw. Alt+Aufwärts geöffnet (bzw. ebenfalls wieder geschlossen). Es gibt jedoch einen weiteren Modus, "Extended UI" genannt, der sich über die Nachricht CB_SETEXTENDEDUI setzen lässt. In diesem Modus entfällt das Öffnen und Schließen über die F4-Taste, und es reicht das einfache Betätigen der Abwärts-Taste, um die Liste der ComboBox zu öffnen.
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
Public Sub CBSetExtendedUI(ComboBox As ComboBox, _
Optional ByVal ExtendedUI As Boolean = True)
Const CB_SETEXTENDEDUI = &H155
SendMessageLong _
ComboBox.hwnd, CB_SETEXTENDEDUI, Abs(ExtendedUI), 0
End Sub
Ob bei einer ComboBox dieser Modus gesetzt ist, können Sie über die Nachricht CB_GETEXTENDEDUI in Erfahrung bringen.
Public Function CBGetExtendedUI(ComboBox As ComboBox) As Boolean
Const CB_GETEXTENDEDUI = &H156
CBGetExtendedUI = _
CBool(SendMessageLong(ComboBox.hwnd, CB_GETEXTENDEDUI, 0, 0))
End Function
|