Rubrik: Controls · ComboBox | VB-Versionen: VB4, VB5, VB6 | 07.03.07 |
ComboBox per Pfeiltaste aufklappen Mit diesem Code ist es möglich, die ComboBox autom. per "Pfeil nach unten"-Taste statt standardmäßig per F4-Taste aufzuklappen. | ||
Autor: Dieter Otter | Bewertung: | Views: 9.373 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Standardmäßig lässt sich eine ComboBox bekanntlich per F4-Taste aufklappen. Oftmals sinnvoller erscheint es aber, wenn die ComboBox per "Pfeil nach unten"-Taste aufklappt, so dass der Anwender per Cursortasten sofort den Inhalt der Liste sieht bzw. den gewünschten Eintrag auswählen kann.
Mit Hilfe der SendMessage API-Funktion kann man die Standard-Tastatursteuerung "umbiegen", d.h. es lässt sich einstellen, ob für das Aufklappen der ComboBox-Liste F4 oder die "Pfeil nach unten"-Taste verwendet werden soll.
Option Explicit ' Benötigte API-Deklarationen Private Declare Function SendMessage 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_SETEXTENDEDUI = &H155
Private Sub Form_Load() ' Tastatur-Steuerung festlegen ' ' Parameter (wParam): ' 0& = ComboBox per F4 aufklappen ' 1& = ComboBox per "Pfeil nach unten" aufklappen SendMessage Combo1.hwnd, CB_SETEXTENDEDUI, 1&, 0& End Sub