USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Preencher um ComboBox com todos os meses do ano
Postada em 29/4/2002 por Alan            
Option Explicit

Private Sub Combo1_Click()
MsgBox "Mês selecionado " & Combo1.ItemData(Combo1.ListIndex)
End Sub

Private Sub Form_Load()

Dim i As Integer

Do While i < 12
    With Combo1
        i = i + 1
        .AddItem UCase(MonthName(i))
        .ItemData(.NewIndex) = i 'ItemData guarda o valor do MÊS
    End With
Loop

End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página