Mundo Visual Visual Basic Tema4

Programación profesional

Vamos a programar a partir de ahora nuestras propias aplicaciones.
Es mejor practicar que llenar este curso de palabras y teoría. Para aprender a programar es fundamental practicar, practicar y practicar. De momento y en las tres lecciones anteriores, hemos dado buena cuenta de práctica mezclada con teoría, porque es indispensable conocer antes el entorno de trabajodonde nos moveremos, para no perdernos más tarde por él.

Las aplicaciones que tratemos a partir de ahora, constituirán el uso de lo visto ya con nuevos controles, código y técnicas.

La programación en Visual Basic es una programación orientada a eventos, es decir, no posee código estructurado claro, sino dentro de los eventos, siendo uno el comienzo y otro el final, pero puede haber varios (másde uno) finales en nuestros programas (p. ej.: error grave detectado en la ejecución de una sentencia que no nos permita continuar para no degradar el programa o el resultado de este).

Ejemplo 1. (Parte 1)
Editor de texto

Vamos a escribir un programa que tenga las funciones básicas de un editor de texto.
Para ello, deberemos pensar cuáles son los objetivos del programa para utilizar loscontroles justos.
Deseamos hacer un editor de texto que permita leer archivos en formato Txt, Wri, Me, BBS y *.* (todos).
Añadiremos a nuestro formulario un control CommonDialog que nos permitirá abrir la ventana de grabación y apertura de archivos (nos ahorrará mucho trabajo).
Utilizaremos un TextBox, y crearemos un menú de opciones para abrir un fichero, salvar un fichero y salir de la aplicación.Pongámonos manos a la obra.

Haga click en el formulario una vez y pulse las teclas Ctrl+E.
Escriba lo siguiente:
Caption: &Abrir
Name: mnuAbrir
Pulse el botón Siguiente.
Caption: &Guardar
Name: mnuGuardar
Pulse el botón Siguiente.
Caption: &Salir
Name: mnuSalir

Ponga un TextBox en el formulario y escriba las siguientes propiedades:
Text: ""
Multiline: True
ScrollBars: Vertical

Escriba el títulode nuestro formulario:
Caption: Editor

En el control CommonDialog escriba:
InitDir: C:\
CancelError: True (checked)

Ahora ajustaremos el tamaño del TextBox al tamaño del formulario, para darle una vista más atractiva.
Para ello escribimos el siguiente texto:
Private Sub Form_Resize()
Text1.Left = 0
Text1.Top = 0
Text1.Height = Form1.ScaleHeight
Text1.Width = Form1.ScaleWidth
EndSub

Con este evento logramos que cada vez que cambiemos el tamaño de nuestra ventana (maximizar, minimizar, … etc), el control TextBox se ajuste en tamaño con este a la vez.

Ahora añadimos la propiedad WindowState del formulario a valor 2-Maximized.

El resultado obtenido es algo parecido a este:


Aún, nos queda el código más importante, ya que de momento le hemos dado el aspecto GUI deseado anuestro programa. Es indispensable que nuestro programa realice bien su trabajo y por tanto nos quedará por escribir todas las instrucciones necesarias para ello.

Añada el siguiente código:

' Menu: Salir
Private Sub mnuSalir_Click()
Dim Respuesta As Integer
Respuesta = MsgBox("¿Desea salir del editor?", 36, "Editor")
If Respuesta = 6 Then
Unload Form1
End If
End Sub'Menu Abrir
Private Sub mnuAbrir_Click()
Dim nLen, nCanal As Integer
On Error GoTo error
CommonDialog1.DialogTitle = "Abrir archivo"
CommonDialog1.Filter = "Archivos de Texto (*.txt;*.wri;*.me;*.bbs)|*.txt;*.wri;*.me;*.bbs|Todos los ficheros(*.*)|*.*"
CommonDialog1.ShowOpen
nCanal = FreeFile
Open CommonDialog1.filename For Binary As #nCanal
nLen = LOF(nCanal)Texto$ = Space$(nLen)
Get #nCanal, , Texto$
Text1.Text = RTrim$(Texto$)
Close #nCanal
Exit Sub
error:
'Escribe o gestiona el error aquí si quieres
Exit Sub
End Sub

'Menu Guardar
Private Sub mnuGuardar_Click()
Dim nCanal As Integer
On Error GoTo error
CommonDialog1.DialogTitle = "Guardar archivo"
CommonDialog1.Filter = "Archivos de Texto...