Abrindo uma combo automaticamente

Exibindo a lista de opções de uma Combo Box ao receber o foco

Que tal abrir a lista opções de um controle Combo box automaticamente quando ele receber o foco.

Simples e rápido. Vamos ao projeto e ao código:

Inicia um novo projeto no VB
Insira no formulário uma combo box , uma caixa de texto e dois botões de comandos conforme o layout abaixo:

Insira o seguinte código no formulário:

Secção General Declarations : define as API´s usadas no projeto

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
Private Const WM_USER = &H400
Private Const CB_SHOWDROPDOWN = WM_USER + 15

Evento Load do formulário: Preenche a combo

Private Sub Form_Load()
Dim i As Integer
' preenche combo
For i = 0 To 10
Combo1.AddItem " Dia " & i
Next
Combo1.ListIndex = 0
End Sub

Código associado ao Evento GotFocus da Combo : Ao receber o foco dispara a rotina abaixo

Private Sub Combo1_GotFocus()
Dim ret
'mostra
ret = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
End Sub

Código associado ao botão - Ocultar Opções - Esconde as opções exibidas: Oculta as opções da combo

Private Sub Combo1_GotFocus()
Dim ret
'mostra
ret = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)
End Sub

Ao executar o projeto quando a combo receber foco teremos:

Tchau.. ,