Programando o Excel ® Vba Para Leigos - 2ª Ed 2013 NoDRM (1)

298 Parte IV: Como se Comunicar com Seus Usuários
.AddItem “Julho”
.AddItem “Agosto”
.AddItem “Setembro”
.AddItem “Outubro”
.AddItem “Novembro”
.AddItem “Dezembro”
End With
‘ Selecione o primeiro item da lista
ListBox1.ListIndex = 0
End Sub
Esta rotina de inicialização roda automaticamente, sempre que o
seu UserForm for carregado. Assim, quando você usa o método
Show para o UserForm, o código é executado e a sua caixa de
listagem é preenchida com 12 itens, cada um acrescentado através
do método AddItem.
4. Insira um módulo VBA e digite um curto procedimento Sub para
exibir a caixa de diálogo:
Sub ShowList()
UserForm1.Show
End Sub
APAPO DE ESPECIALIST
Não é obrigatório usar o procedimento Initialize para preencher as suas
listas. Isso pode ser feito em um procedimento VBA normal. Usar esse
procedimento parece ser algo normal para cuidar de uma etapa tão
comum (ainda que importante). Se você ocultar o UserForm usando
UserForm_Hide e depois exibir novamente o formulário (UserForm1.
Show), o evento Initialize não dispara novamente.
Determinando o item selecionado
O código anterior simplesmente exibe uma caixa de diálogo com uma
caixa de listagem preenchida com nomes de meses. O que está faltando
é um procedimento para determinar qual item está selecionado na lista.
Acrescente o seguinte ao procedimento OKButton_Click:
Private Sub OKButton_Click()
Dim Msg As String
Msg = “Você selecionou o item # “
Msg = Msg & ListBox1.ListIndex
Msg = Mag & ListBox1.Value
MsgBox Msg
Unload UserForm1
End Sub
Este procedimento exibe uma caixa de mensagem com o número do
item selecionado e o item selecionado.