afficher le contenu d'un combobox sans la souris

Question

Ibrahima vous salue bienIbrahima vous salue bien

J'ai developpé une  application qui marche bien mais j'aimerai l'améliorer .
La chose que je veux est la suivante : pouvoir afficher le contenu d'un combo box rien qu'en tabulant à parti du champ qui juste avant le combo sanc clic de souris
Merci etUrgent

cs_wape · Answer

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
 (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const VK_TAB = &H9
Const CB_SHOWDROPDOWN = &H14F

Private Sub Combo1_GotFocus()

   'Si la touche "Tab" a été pressée et la combo n'est pas vide
   If GetKeyState(VK_TAB) < 0 And Combo1.ListCount > 0 Then
      'Ouvrir la combo
      DropDown Combo1
      'Si nécessaire...
      Combo1.ListIndex = 0
   End If
   
End Sub

Public Sub DropDown(ComboBox As ComboBox)
  
  SendMessage ComboBox.hwnd, CB_SHOWDROPDOWN, True, 0
  
End Sub

@+ et bonne année.

wape

Afficher le contenu d'un combobox sans la souris

1 réponse

Discussions similaires