Red de conocimiento informático - Conocimiento del nombre de dominio - Cómo configurar un calendario usando código VB para que febrero muestre 28 o 29 días

Cómo configurar un calendario usando código VB para que febrero muestre 28 o 29 días

Subcombinación privada Date_click(Índice como entero)

Si índice = 1 entonces

Fecha combinada(2).3, 5, 7, 8, 10, 12

Para j = 1 a 31

Fecha combinada(2).AddItem j

Siguiente j

Caso 4, 6, 9, 11

Para j = 1 a 30

Fecha combinada(2).

Siguiente j

Caso 2

Para j = 1 a 29

Fecha combinada(2).AddItem j

Siguiente j

Finalizar selección

Finalizar si

Fecha combinada(2).List.List.List.List.List.List.List.List.List.List.List.List.List.List.List.List.List.List.ListCombo Fecha(2) .List(0)

End Sub

Sub privado Form_Load()

Dim i, j como entero

Fecha combinada(0 ).Texto = Año(Fecha)

Fecha combinada(1).).Texto = Mes(Fecha)

Fecha combinada(2).Texto = Día(Fecha)

Etiqueta Fecha actual.Caption = "Fecha actual:" & Año(Fecha) & " Año " & Mes(Fecha) & " Mes " & Día(Fecha) & " Día "

Para i = 2010 a 2020

Fecha combinada(0).AddItem i

Siguiente i

Para i = 1 a 12

Fecha combinada(1).> Siguiente i

Seleccionar fecha combinada de caso(1).Text

Fecha combinada de caso(1).Texto = 1, 3, 5, 7 , 8, 10, 12

Para j = 1 a 31

Fecha combinada(2). Para j = 1 a 29

Fecha combinada(2) .AddItem j

Siguiente j

Finalizar selección

Fin Sub