|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Controles Intrínsecos (Padrão))
|
|
 |
Título da Dica: Abrir o ComboBox assim que receber o focu (usando API)
|
 |
|
|
|
Postada em 11/8/2002 por Alfterra
'''[CODE language=VB]
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Const CB_SHOWDROPDOWN As Long = &H14F
Private Sub Combo1_GotFocus()
Dim Tmp As Long
Tmp = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
End Sub
'''[/CODE]
|
|
|
|
|
