USUÁRIO:
SENHA:
SALVAR LOGIN ?
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-2024 - Todos os direitos reservados.
Powered by
HostingZone -
A melhor hospedagem para seu site
