2.- Estado Civil (if).
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 la caja de texto text3.
Aparecerá la ventana del Code Editor (Editor de código) con el cursor parpadeando dentro del procedimiento Enter de la caja de texto.
Dentro del procedimiento Enter escriba las siguientes líneas de código:
If Text2.Text = "soltero" Then
imgsol.Visible = True
imgcas.Visible = False
imgdiv.Visible = False
Else
If Text2.Text = "casado" Then
imgcas.Visible = True
imgdiv.Visible = False
imgsol.Visible = False
Else
If Text2.Text = "divorciado" Then
imgdiv.Visible = True
imgcas.Visible = False
imgsol.Visible = False
End If
End If
EndIf
El procedimiento codificado quedaría de la siguiente manera:
Private Sub Text3_Enter()
If Text2.Text = "soltero" Then
imgsol.Visible = True
imgcas.Visible= False
imgdiv.Visible= False
Else
If Text2.Text = "casado" Then
imgcas.Visible = True
imgdiv.Visible = False
imgsol.Visible = False
Else
If Text2.Text = "divorciado" Then
imgdiv.Visible = True
imgcas.Visible = False
imgsol.Visible = False
End If
End If
EndIf
End Sub
Haga doble clic en el formulario.
Dentro del procedimiento mousemove escriba la siguiente sentencia:
Text1.Enabled = True
El procedimiento codificado quedaría de la siguiente manera:
Private SubUserForm_MouseMove(ByVal Button As Integer, ByValShift As Integer, ByVal X As Single, ByVal Y As Single)
Text1.Enabled = True
End Sub
Haga doble clic en el botón Nuevo.
Dentro del procedimiento Click del botón Salir escriba la siguiente sentencia:
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 del botón Salir escriba la siguiente sentencia:
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. Y podrá tener el formulario en función.
|
Hola a tod@s bienvenidos a Programación Orientada a Objetos
|
