Bonsoir,
Voici un exemple d'Api, place sur une Form un Combobox et 1 ou plusieur contrôles (TextBox par exemple)
Place quelques données dans le Combo
Private Sub Form_Load()
Combo1.AddiTem "Bonjour"
Combo1.AddItem "Au revoir"
End Sub
Insère un Module stantard et place ce code .
Declare Function SendMessage Lib "user32" Alias _
"SendMessageA" (ByVal hwnd As Long, ByVal _
wMsg As Long, ByVal wParam As Long, _
lParam As Long) As Long
ensuite dans la procédure GotFocus du Combo
Private Sub Combo1_GotFocus()
Const CB_SHOWDROPDOWN = &H14F
Dim Tmp
Tmp = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, _
1, ByVal 0&)
End Sub
Lance l'application et appuie sur la touche TAB jusqu'au moment ou le combo reçoit le focus
jpleroisse
|