Manual de Visual Basic Intermedio

Lección: 5

Capítulo: Ejercicio 5: Fecha Escrita

Crea un formulario con cinco etiquetas, tres cajas de texto, un marco, tres botones y escribe el siguiente código:

El botón Convertir

Private Sub Command1_Click()

Dim cadmes As String, mes As Integer

mes = Val(Text2)

Select Case mes

Case 1: cadmes = "Enero"

Case 2: cadmes = "Febrero"

Case 3: cadmes = "Marzo"

Case 4: cadmes = "Abril"

Case 5: cadmes = "Mayo"

Case 6: cadmes = "Junio"

Case 7: cadmes = "Julio"

Case 8: cadmes = "Agosto"

Case 9: cadmes = "Septiembre"

Case 10: cadmes = "Octubre"

Case 11: cadmes = "Noviembre"

Case 12: cadmes = "Diciembre"

Case Else

MsgBox "Revísalos Por Favor", vbCritical, "Hay un Error en los Datos...!!!"

Call Command2_Click

Exit Sub

End Select

Label4 = Text1 & " de " & cadmes & " de " & Text3

End Sub

El botón Limpiar

Private Sub Command2_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text1.SetFocus

End Sub

El botón Salir

Private Sub Command3_Click()

If MsgBox("¿Ya Quieres Salir del Programa?", vbQuestion + vbYesNo, "Tengo una Pregunta para Ti") = vbYes Then

End

Else: Call Command2_Click

End If

End Sub

Volver al índice!