AGPELE92 - Estado Civil (case)

3.- Estado Civil (case)

Realizar una aplicación en el que pida el nombre de la persona, la edad, el sexo y el estado civil de la persona.

Si la persona es solter@, casad@ o divorciad@ entonces mostrara la imagen correspondiente.

Se abre un nuevo formulario (UserForm) en el editor de visual basic de Excel.

Se insertara 3 etiquetas de texto, 3 cajas de texto, 2 botones de comando y 3 imágenes.

Seleccione la propiedad (Name) de la primera etiqueta de texto escriba Nom y en la propiedad (Caption) escriba Nombre.

Seleccione la propiedad (Name) de la primera etiqueta de texto escriba Ed y en la propiedad (Caption) escriba Edad.

Seleccione la propiedad (Name) de la primera etiqueta de texto escriba estadocivil y en la propiedad (Caption) escriba Estado Civil.

Seleccione la propiedad (Name) del primer botón de comando y escriba Cmdlimpiar, y en lapropiedad Caption escriba: Nuevo.

Seleccione el segundo botón de comando, y en la propiedad (Name) escriba Cmdsalir, y en la propiedad Caption escriba: Salir.

Seleccione la propiedad (Name) de la primera caja de texto y escriba Text1.

Seleccione la propiedad (Name) de la segunda caja de texto y escriba Text2.

Seleccione la propiedad (Name) de la tercera caja de texto y escriba Text3.

Seleccione la propiedad (Name) de la primera imagen escriba imgsol y en la propiedad visible elija false, para ajustar la imagen elija la propiedad PictureSizeMode.

Seleccione la propiedad (Name) de la primera imagen escriba imgcas y en la propiedad visible elija false para ajustar la imagen elija la propiedad PictureSizeMode.

Seleccione la propiedad (Name) de la primera imagen escriba imgdiv y en la propiedad visible elija falsepara ajustar la imagen elija la propiedad PictureSizeMode.

Haga doble clic en el formulario.

Aparecerá la ventana del Code Editor (Editor de código) con el cursor parpadeando dentro del procedimiento Click de la caja de texto.

Dentro del procedimiento Click escriba las siguientes líneas de código:

Select Case Text2

Case "soltero"

imgsol.Visible = True

imgdiv.Visible = False

imgcas.Visible = False

Image1.Visible = False

Case "casado"

imgcas.Visible = True

imgsol.Visible = False

imgdiv.Visible = False

Image1.Visible = False

Case "divorciado"

imgdiv.Visible = True

imgsol.Visible = False

imgcas.Visible = False

Image1.Visible = False

Case Else

MsgBox ("Estado desconocido")

Image1.Visible = True

imgsol.Visible = False

imgdiv.Visible = False

imgcas.Visible = False

End Select

El procedimiento codificado quedaría de la siguiente manera:

Private SubUserForm_Click()

Select Case Text2

Case "soltero"

imgsol.Visible = True

imgdiv.Visible = False

imgcas.Visible = False

Image1.Visible = False

Case "casado"

imgcas.Visible = True

imgsol.Visible = False

imgdiv.Visible = False

Image1.Visible = False

Case "divorciado"

imgdiv.Visible = True

imgsol.Visible = False

imgcas.Visible = False

Image1.Visible = False

Case Else

MsgBox ("Estado desconocido")

Image1.Visible = True

imgsol.Visible = False

imgdiv.Visible = False

imgcas.Visible = False

End Select

End Sub

Haga doble clic en el botón Nuevo.

Dentro del procedimiento Click escriba las siguientes líneas de código:

Text1 = ""

Text2 = ""

Text3 = ""

Text1.SetFocus

El procedimiento codificado quedaría de la siguiente manera:

Private Sub Cmdlimpiar_Click()

Text1 = ""

Text2 = ""

Text3 = ""

Text1.SetFocus

End Sub

Haga doble clic en el botón Salir.

Dentro del procedimiento Click escriba las siguientes líneas de código:

end

El procedimiento codificado quedaría de la siguiente manera:

Private Sub Cmdsalir_Click()

End

End Sub

Pulse la tecla [F5] para correr la aplicación.