El entorno de programación de Visual Basic 6.0
Cuando Visual Basic 6.0 arranca vemos una pantalla similar a la imagen de abajo.
Elementos que componen Visual Basic 6.0
1.-La barra de títulos, la barra de menús y la barra de herramientas de Visual Basic 6.0.
2.-Caja de herramientas (toolbox) con loscontroles disponibles
3.-Formulario (form) donde se insertan los controles. Está diseñado de una rejilla (en forma de cuadros) para facilitar la alineación de los controles.
4.-Ventana de proyecto, que muestra los formularios y otros módulos de programas que forman parte de la aplicación
5.-Ventana de Propiedades, en la que se pueden ver las propiedades del objeto seleccionado o del propio formulario, si no esta visible se muestra con la tecla
6. Ventana FormLayout, que permite determinar la forma en que se abrirá la aplicación cuando comienza a ejecutarse.
Ejemplos
Posicionamiento de un formulario
En este ejemplo vamos a utilizar dos tipos de formularios esto no lo mencione anteriormente en el articulo conociendo Visual Basic 6.0, Formulario MDI (Multiple Document Interface) Formulario de interfaz múltiple, es decir dentro de un formulario MDI se puede abrir varios sub-formularios hijos. Un Formulario MDI también se conoce como Formulario padre o como principal, en cada aplicación solo se puede agregar un formulario MDI y todos los demás formularios como formularios hijas.
Los formularios normales para agregar un formulario como hija (Child) se cambiar como verdadero (True) en su propiedad MDIChild
Los formularios Hijas se minimizan y maximizan dentro de los límites del formulario MDI. Cuando están maximizados, su Caption aparece junto al Caption del formulario MDI. Los formularios hija no tienen menús propios, sino que sus menús aparecen en la barra de menús del formulario MDI y también en una aplicación con un formulario MDI que tenga varios formularios hijas también puede tener algunos formularios no hijas es decir que abran afuera de los limites del formulario MDI.
Vamos a utilizar las propiedades Top, Left, Height y Width para hacer que el formulario interior (formulario hija) se mueva a la izquierda arriba, derecha arriba, centro, izquierda abajo y derecha abajo.
Vista previa
Controles
Código Fuente
----------------------------------------------------------------------------------------------------------
Private Sub cmdCentro_Click()
frmCuadro.Top = (Val(MDIfrmPrincipal.Height) - Val(Me.Height)) / 2
frmCuadro.Left = (Val(MDIfrmPrincipal.Width) - Val(Me.Width)) / 2
End Sub
Private Sub cmdDerAbajo_Click()
frmCuadro.Top = Val(MDIfrmPrincipal.Height) - Val(Me.Height)
frmCuadro.Left = Val(MDIfrmPrincipal.Width) - Val(Me.Width)
End Sub
Private Sub cmdDerArriba_Click()
frmCuadro.Top = 0
frmCuadro.Left = Val(MDIfrmPrincipal.Width) - Val(Me.Width)
End Sub
Private Sub cmdIzqAbajo_Click()
frmCuadro.Top = Val(MDIfrmPrincipal.Height) - Val(Me.Height)
frmCuadro.Left = 0
End Sub
Private Sub cmdIzqArriba_Click()
frmCuadro.Top = 0
frmCuadro.Left = 0
End Sub
-----------------------------------------------------------------------------------------------------------
Descargar el codigo fuente
Cargar y descargar un formulario
Cuando se visualiza o se ejecuta un formulario por primera vez se producen varios eventos consecutivos: Initialize, Load, Activate y Paint. Cada uno estos eventos se pueden aprovechar para realizar ciertas operaciones.
Al ocultar, cerrar o eliminar un formulario se producen otra serie de eventos: Deactivate, QueryUnload, Unload y Terminate
El método Show o en su propiedad (visible = True) muestra un formulario oculto y el método Hide o en su propiedad (Visible = False) oculta un formulario aunque sus variables y propiedades sigan estando accesibles y conservando sus valores.
El meto End cierra toda la aplicación
El evento Initialize se activa antes de Load se utiliza para inicializar las variables definidas a nivel de módulo
El evento Load se activa al cargar un formulario
El evento Activate cuando se visualiza un formulario oculto utilizando el método Show o Visible = True en este tambien se usa el evento Paint.
El Evento Paint se activa cuando se formulario se dibuja
El evento Deactivate se activa cuando el formulario se desactiva es decir que el formulario se oculto con el método Hide.
El evento Unluad se activa cuando se cierra la ventana. Si se detiene el programa desde el botón Stop de Visual Basic 6.0 o con un End, no se pasa por el evento Unload. Para pasar por el evento Unload es necesario cerrar la ventana con el botón de cerrar (X).
El evento Terminate se activa cuando se descarga o se cierra el formulario.
Vista previa
Controles
Código fuente
--------------------------------------------------------------------------------------------------------------
Formulario frmPrincipal
Private Sub cmdCargar_Click()
frmventana.Show
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Formulario frmventana
Private Sub cmdOcultar_Click()
Me.Hide
End Sub
Private Sub Form_Activate()
MsgBox "Evento Activate"
End Sub
Private Sub Form_Deactivate()
MsgBox "Evento Deactivate"
End Sub
Private Sub Form_Initialize()
MsgBox "Evento Initialize"
End Sub
Private Sub Form_Load()
MsgBox "Evento Load"
End Sub
Private Sub Form_Paint()
MsgBox "Evento Paint"
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
MsgBox "Evento QueryUnload"
End Sub
Private Sub Form_Terminate()
MsgBox "Evento Terminate"
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "Evento Unload"
End Sub
---------------------------------------------------------------------------------------------------------------
Descargar el codigo fuente
Minicalculadora
En este ejemplo se utiliza los operadores aritméticos ( +, - , *, /) en Visual Basic 6.0 haciendo una mini calculadora que realiza las cuatro operaciones (sumar, restar, multiplicar y dividir) utilizando unos variables y el teclado numérico.
En este ejemplo también utilizamos el Evento Keypress, el evento keypress se activa cuando presionamos un botón del teclado por ejemplo el signo (+) del teclado numérico, cuando se presiona un botón del teclado el teclado envía el valor en código ascii, el evento keypress recibe el valor en ascii.
También se utiliza la función val() que convierte una cadena de tipo string a cadena numérico para poder hacer las operaciones numéricas.
Vista previa
Controles
Codigo fuente
----------------------------------------------------------------------------------------------------------------
Dim num1 As Long, igu As Boolean, operacion As Boolean, signo As String
Private Sub cmdCE_Click()
num1 = 0
num2 = 0
txtLetrero.Text = "0"
txtLetrero.SetFocus
operacion = False
signo = ""
End Sub
Private Sub cmdDiv_Click()
operacion = True
cmdIgual_Click
signo = "Div"
End Sub
Private Sub cmdIgual_Click()
Select Case signo
Case "Sum"
txtLetrero.Text = num1 + Val(txtLetrero.Text)
Case "Res"
txtLetrero.Text = num1 - Val(txtLetrero.Text)
Case "Mul"
txtLetrero.Text = num1 * Val(txtLetrero.Text)
Case "Div"
txtLetrero.Text = num1 / Val(txtLetrero.Text)
End Select
igu = True
txtLetrero.SetFocus
End Sub
Private Sub cmdMult_Click()
operacion = True
cmdIgual_Click
signo = "Mul"
End Sub
Private Sub cmdRes_Click()
operacion = True
cmdIgual_Click
signo = "Res"
End Sub
Private Sub cmdSum_Click()
operacion = True
cmdIgual_Click
signo = "Sum"
End Sub
Private Sub Form_Load()
num1 = 0
num2 = 0
operacion = False
igu = False
signo = ""
txtLetrero.Text = ""
End Sub
Private Sub txtLetrero_KeyPress(KeyAscii As Integer)
If txtLetrero.Text = "0" Then
txtLetrero.Text = ""
SetFocus
End If
If igu = True Then
num1 = Val(txtLetrero.Text)
txtLetrero.Text = ""
igu = False
End If
'Boton Sumar (cuando presionamos el signo + del teclado)
If KeyAscii = 43 Then
cmdSum_Click
End If
'boton Restar (cuando presionamos el signo - del teclado)
If KeyAscii = 45 Then
cmdRes_Click
End If
'Boton Multiplicar (cuando presionamos el signo * del teclado)
If KeyAscii = 42 Then
cmdMult_Click
End If
'Boton Dividir (cuando presionamos el signo / del teclado)
If KeyAscii = 47 Then
cmdDiv_Click
End If
'Boton Igual (cuando presionamos el intro o enter del teclado)
If KeyAscii = 13 Then
cmdIgual_Click
End If
End Sub
-------------------------------------------------------------------------------------------------------------------
Descargar el codigo fuente
Actualizando ......
No hay comentarios:
Publicar un comentario