EJERCICIO 2.6
VISUAL BASIC
(Formularios MDI)
Ahora realizaremos un proyecto nuevo con un
formulario MDI y cuatro formularios standar
-
Abrir Visual basic
-
Archivo Nuevo
-
Proyecto
insertar
formulario MDI
-
Insertar 4
formularios estándar
-
En cada
formulario
estándar realizar un tema diferente, lo mas hermoso posible
Ahora realizaremos la programacion del formulario
MDI, le agregamos un menú y una barra de herramientas
-
A los cuatro
formularios cambie las propiedades: WindowsStates=2 y MDIChild=True
-
Abrir el
formulario
MDI, cambiar la propiedad WindowsStates=2
-
Haga clic en
Herramientas - Editor de Menús

-
En
caption escriba Archivo, en Name escriba Archivo; clic en siguiente,
Clic en la flecha,
escriba el nombre del primer formulario estándar (por ejemplo
la pulga, 'en name no deje espacios'); clic en siguiente, escriba el
nombre del segundo formulario; clic en siguiente, escriba el nombre
del tercer formulario, clic en siguiente,
escriba el nombre del cuarto formulario; clic en siguiente, escriba
- y en name escriba raya; clic en siguiente, escriba ayuda; clic en
siguiente, escriba salir.
-
Programe cada
menú
haciendo clic sobre él. En ayuda escriba msgbox("el
mensaje es escriba lo que quiera de ayuda aquí")
-
Haga clic en
aceptar
-
Haga clic en
proyecto
componetes seleccione Microsoft Windows Common Control 5.0
-
Dibuje un
Toolbar
-
Clic
derecho,
seleccione propiedades
-
seleccione la
pestaña
Botones
-
clic en insertar
botones (10 botones)
-
Los botones
3,4,7,8
son separadores, seleccione Style =3, separator
-
Aceptar
-
Dibuje un
ImageList
-
clic derecho
sobre el
imagelist, seleccione propiedades
-
seleccione 16x16
-
seleccione la
pestaña
imagenes, insertar imagenes (10 imagenes)
-
Aceptar
-
Clic derecho
sobre el
Toolbar
-
En ImageList,
seleccione ImageList1
-
Seleccione
Botones
-
En Image escriba
el
numero 1
-
Clic en index al
siguiente boton y coloque 2, asi sucesivamente hasta llegar al 10
-
Aceptar
-
Ahora seleccione
el
Toolbar y oprima F7
-
escriba
select
case button.index
case 1
form1.show
case 2
form2.show
case 5
form3.show
case 6
form4.show
case 9
msgbox(“si
no
he cambiado este aviso, es porque no he terminado. Debo cambiar
este aviso por uno PROPIO MIO”)
case 10
end
end
select
-
Ahora debo probar el proyecto con F5, debo
corregir la alineación, los colores, la presentación.
-
GUARDAR
|