Rubrik: Controls · ListBox & ComboBox | VB-Versionen: VB2005, VB2008 | 14.06.10 |
Nachfolgender Code zeigt, wie sich die ComboBox-Liste autom. aufklappen lässt, sobald der Anwender die "Pfeil-Nach-Unten"-Taste drückt, so dass er per Cursortasten sofort den Inhalt der Liste sieht bzw. den gewünschten Eintrag
auswählen kann.
Private Sub ComboBox1_KeyDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
' Wurde die Pfeil-Nach-Unten Taste gedrückt?
If e.KeyCode = Keys.Down AndAlso e.Shift = 0 Then
With DirectCast(sender, ComboBox)
' ComboBox-Liste autom. aufklappen, falls noch nicht sichtbar
If Not .DroppedDown Then .DroppedDown = True
End With
End If
End Sub