Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Capital de Croacia

| Sin comentarios

Descargar Formulario: Capital de Croacia

1.- Formulario con la Bandera de Croacia

Formulario1

(Para mayor visualización de la imagen, hacer click en la misma)

 

2.- Formulario con Datos Demograficos de Croacia

Formulario2

(Para mayor visualización de la imagen, hacer click en la misma)

3.- Formulario Preguntando la Capital de Croacia

Formulario3

(Para mayor visualización de la imagen, hacer click en la misma)

 

4.- Breve reseña de Croacia y funcionamiento de los fomularios

BREVE RESEÑA DE CROACIA

Croacia, está ubicada entre Europa Central, Europa Meridional y el Mar Mediterráneo y es miembro de la Unión Europea, su capital es Zagreb, tiene una extensión de 56,594km2 con una población de 4.29millones de habitantes de religión Católica.

FUNCIONAMIENTO DE FORMULARIOS

1.- El primer formulario hemos puesto la bandera, el mapa de Croacia y algunos lugares turísticos así como la foto de la Presidenta, para ello hemos insertado del cuadro de herramientas el control imagen al formulario, para nuestro ejemplo hemos puesto cinco controles de imagen, cada uno con su botón de comando para activar la imagen que queremos ver.

Private Sub CmdMapa_Click()
Image2.Visible = False
Image1.Visible = True
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
End Sub

Private Sub CmdBandera_Click()
Image2.Visible = True
Image1.Visible = False
Image3.Visible = False
Image4.Visible = False
Image5.Visible = False
End Sub

2.-En el segundo formulario, hemos colocado los datos demográficos en controles de etiqueta

Private Sub CommandButton1_Click()
UserForm2.Hide
End Sub

3.-En el tercer formulario, hemos puesto el control texto para el ingreso de la capital de Croacia y un botón de Comando para verificar si el texto ingresado es el correcto. Sale un mensaje de correcto si coincide, en caso contrario sale un mensaje que es incorrecto.

Private Sub Cmd1_Click()
If TextBox1 = "ZAGREB" Then
MsgBox "Respuesta Correcta"
Else
MsgBox "Respuesta Incorrecta, Intente Nuavemente"
End If

End Sub

4.-En el cuarto formulario, llamamos a cada uno de los formularios anteriores con botones de comando.

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Private Sub CommandButton2_Click()
UserForm2.Show
End Sub

Private Sub CommandButton3_Click()

UserForm3.Show
End Sub

4.-Formulario que llama a los anteriores

Formulario4

(Para mayor visualización de la imagen, hacer click en la misma)

Formulario: Capital de Croacia

Por: Victor Condor

 

Deja una respuesta

Los campos requeridos estan marcados con *.