Tipp 0154 ComboBox automatisch aufklappen
Autor/Einsender:
Datum:
  Angie
02.11.2001
Entwicklungsumgebung:   VB 5
Um eine ComboBox bei Erhalt des Fokus automatisch aufklappen zu lassen, bedarf es nur der API-Funktion SendMessage und einer Zeile Code im GotFocus-Ereignis der ComboBox.
 
Option Explicit

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_SHOWDROPDOWN = &H14F

Private Sub Form_Load()
  Dim i As Integer

  For i = 1 To 10
    Combo1.AddItem "List-Eintrag " & i
  Next i
  Combo1.ListIndex = 0
End Sub

Private Sub Combo1_GotFocus()
  SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, 0
End Sub
 
Weitere Links zum Thema
Auto-Vervollständigung in einer ComboBox

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
VB-Version
VBA 5
VBA 6
VB 4/16
VB 4/32
VB 5
VB 6


Download  (2 kB) Downloads bisher: [ 2075 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Samstag, 9. Juli 2011