Make your own free website on Tripod.com
Volver a Ejercicios-parte 10 Ir al Indice Ir a formularios-continación
Un programa puede estar compuesto por más de un formulario. Para poder agregar formularios a un proyecto hay que seleccionar la opción Agregar Formulario del menú Proyecto. Luego, habrá que establecer el nombre para el nuevo formulario.

Mostrar un Formulario:
Nombre del formulario.Show

Sacar un Formulario:
Unload Nombre del formulario | o si la orden se da desde el código del mismo formulario: Unload me

Veamos un ejemplo:
En el formulario Form1 hay dos botones, uno de ellos se llama btnAyuda y abre el formulario Form2, el otro se llama btnCerrar y saca el formulario. En el formulario Form2 hay una etiqueta lbl y en la ventana de propiedades se ha colocado en Caption un texto: "Mensaje de Ayuda". Otro botón btnCerrar, saca el formulario. Cuando descargamos el último formulario finaliza el programa.

Private Sub btnayuda_Click()
Form2.Show
End Sub
Private Sub btncerrar_Click()
Unload Me
End Sub
Como código de Form2 se colocará solamente el botón btnCerrar
Private Sub btncerrar_Click()
Unload Me
End Sub

Veamos un ejercicio con muchos formularios:
Un conjunto de 8 botones a los que llamaremos respectivamente btnVB, btnCobol, btnPascal, btnAssembler, btnC, btnJava, btnProlog y btnCliper, abrirán un formulario cada uno, dando una pequeña explicación sobre el lenguaje en cuestión. También existirá un botón llamado btnsalir. En los formularios se ha hecho uso de un botón llamado cmdSalir y también un cuadro de texto llamado Txtnombre del lenguaje. La cadena de caracteres que se encuentra dentro de cada Txt se escribió en el código de cada formulario. En la ventana de propiedades las cajas de texto de cada formulario deben colocarse en Multiline=True para que se pueda escribir más de un renglón. Si la caja de texto es más pequeña que la cantidad de renglones a mostrar se puede utilizar ScrollBars en2-Vertical, de lo contrario se debe mantener en 0-None
'1=Formulario modal (el usuario no puede cambiar de foco-ir a otro formulario p.ej.- hasta no salir de este.
Private Sub btnvB_Click()
FrmVB.Show 1
End Sub
Private Sub btncobol_Click()
FrmCobol.Show 1
End Sub
Private Sub btnPascal_Click()
FrmPascal.Show 1
End Sub
Private Sub btnassembler_Click()
FrmAssembler.Show 1
End Sub
Private Sub btnprolog_Click()
FrmProlog2.Show 1
End Sub
Private Sub btnc_Click()
FrmC.Show 1
End Sub
Private Sub btnjava_Click()
FrmJava.Show 1
End Sub
Private Sub btnclipper_Click()
FrmClipper.Show 1
End Sub
Private Sub btnsalir_Click()
End
End Sub
Hasta aquí se mostró todo el código relacionado con el Form1. En adelante lo que corresponde al código de cada formulario.
Private Sub Form_Load()
Txt1.Text = "Este lenguaje tiene su origen en el B.A.S.I.C.(Beginers All purpose Symbolic Instruccion Code). El lenguaje BASIC fue evolucionando hasta la aparición del Quick Basic y posteriormente con la aparición de Windows, Microsoft creó el Visual Basic. VB se hizo popular desde su versión 3.Fue en la versión 4 cuando comenzó a compilar datos tanto en 16 como en 32 bits. Ya en la versión 5 dejó de hacerlo en 16 bits. Con Visual Basic se pueden hacer programas de propósito general, casi todo se puede hacer en Vb, salvo juegos multimedia en 3D o manejo de Bases de Datos gigantes, siendo sinembargo muy bueno para el manejo de Bases de Datos medianas y pequeñas."
End Sub
Código correspondiente a Frm VB. (Visual Basic)
Private Sub Cmdsalir_Click()
Unload Me
End Sub
Código correspondiente a FrmCobol
Private Sub Form_Load()
Txtcobol.Text = "(Lenguaje Común de Programación Orientado a Negocios). Como su nombre lo indica es un lenguaje orientado a negocios, datos, información etc. especialemente para empresas."
End Sub
Private Sub btnsalir_Click()
Unload Me
End Sub
Código correspondiente a FrmPascal
Private Sub Form_Load()
TxtPascal.Text = "Lenguaje de propósito general, con programación estructurada. Incorpora la idea de programar en forma eficiente y moderna."
End Sub
Private Sub Cmdsalir_Click()
Unload Me
End Sub
Código correspondiente a FrmAssembler Private Sub Form_Load()
TxtAssembler.Text = "Fue el primer lenguaje que se desarrolló. Representa las instrucciones que posee la CPU. ¿Como funciona un compilador de Assembler? A partir de un archivo de texto es compilado a código de máquina. Traduce los códigos de la CPU a su equivalente binario. Se utiliza en pequeños componentes electrónicos y también para generar programas de alta velocidad. Muchos juegos tienen rutinas (parte de programas) en Assembler (para obtener más velocidad)."
End Sub
Private Sub Cmdsalir_Click()
Unload Me
End Sub
Falta incorporar el código para los formularios FrmC, FrmJava, FrmProlog y FrmClipper. Confío en que con los ejemplos anteriores puedas realizar sin problemas el código de los formularios que faltan. Es un buen ejercicio.
En la próxima veremos más sobre formularios.
Volver arriba Volver a Ejercicios-parte 10 Ir al Indice Ir a formularios-continación