7.-APRENDE VISUAL BASIC

INICIO EN VISUAL BASIC

A WEB 100% MEXICANA

________________________________________________

________________________________________________

CAJAS DE DIÁLOGO ESTÁNDAR (CONTROLES COMMON DIALOG)

El control de cuadro de diálogo estándarde Windows 95/NT (Common Dialog) ofrece una forma sencilla y eficiente de realizar algunas de las tareas más comunes de un programa, tales como la selección de un fichero para lectura/escritura, la impresión de un fichero o la selección de un tipo de letra o un color.

Lo primero que hay que hacer es ubicar el control en el formulario. El control se representará como un icono de tamaño invariable. No es posible especificar la ubicación que tendrá la caja de diálogo cuando se abra en la pantalla, ya que se trata de una propiedad no accesible por el usuario. Un único cuadro de diálogo estándarpuede bastar para realizar todas las funciones que se deseen, es decir, no es necesario insertar un cuadro de diálogo para imprimir un texto y otro para guardarlo, sino que ambos pueden compartir el mismo cuadro de diálogo simplemente invocando a uno u otro tipo en tiempo de ejecución (no es posible indicarlo en tiempo de diseño). Para ello se dispone de los métodos siguientes: ShowColor, ShowFont, ShowHelp, ShowOpen, ShowPrinter y ShowSave. En ocasiones interesará introducir varios controles diferentes por motivos de claridad o para que ciertas propiedades sean distintas.

se pueden observar distintos tipos de control Common Dialog. Por ejemplo, si se desea visualizar un cuadro de diálogo para abrir un fichero, habrá que escribir: dlgAbrir.ShowOpen

donde dlgAbrir es el nombre asignado al control Common Dialog.

Las principales propiedades de este control en cada una de sus variantes se explican en los apartados siguientes. La propiedad Flag existe para todos los controles y determina algunas de sus características más importantes.

Open/Save Dialog Control

Las propiedades más importantes de este control son:

• DefaultExt: Es la extensión por defecto a utilizar para abrir/salvar archivos. Con Save, si el nombre del fichero se teclea sin extensión, se añade esta extensión por defecto.

• DialogTitle: Devuelve o da valor al título de la caja de diálogo (cadena de caracteres).

• FileName: Nombre completo del archivo a abrir/salvar, incluyendo el path.

• FileTitle: Nombre del archivo a abrir/salvar pero sin la ruta de acceso correspondiente.

• Filter: Contiene los filtros de selección que aparecerán indicados en la parte inferior de la pantalla en la lista de tipos de archivo. Pueden indicarse múltiples tipos de archivo, separándolos mediante un barra vertical (Alt Gr +< 1> ). Su sintaxis es la siguiente:

Objeto.Filter = "(descripción a aparecer en la listbox)|filtro"

Por ejemplo:

"Texto (*.txt)|*.txt|Imágenes(*.bmp;*.ico)|*.bmp;*.ico"

• FilterIndex: Indica el índice (con respecto a la lista de tipos) del filtro por defecto. Se empiezan a numerar por "1".

• InitDir: Contiene el nombre del directorio por defecto. Si no se especifica, se utiliza el directorio actual.

• Flags: Esta propiedad puede tomar muchos valores con objeto de fijar los detalles concretos de este control (por ejemplo, abrir un fichero en modo read only, avisar antes de escribir sobre un fichero ya existente, etc.). Estos valores están definidos por constantes de Visual Basic 6.0 cuyos nombres empiezan con las letras cdl. Para más información en el Help de Common Dialog Control buscar Properties, Flags Properties (Open, Save As Dialogs). Por ejemplo, el valor definido por la constante cdlOFNOverwritePrompt hace que antes de escribir en un fichero ya existente se pida confirmación al usuario. Para establecer varias opciones a la vez se le asigna a Flags la suma de las constantes correspondientes. Las distintas constantes disponibles se pueden encontrar en el Help buscando Constants/CommonDialog Control.

Print Dialog Control

Las propiedades más importantes de este control son:

• Copies: Determina el número de copias a realizar por la impresora.

• FromPage: Selecciona el número de # a partir del cual comienza el rango de impresión.

• ToPage: Selecciona el número de # hasta la cual llega el rango de impresión.

• PrinterDefault: Cuando es True se imprime en el objeto Visual Basic Printer. Además las opciones actuales de impresión que se cambien serán asignadas como las opciones de impresión por defecto del sistema.

• Flags: Ver con ayuda del Help los posibles valores de esta propiedad

Font Dialog Control

Las propiedades más importantes de este control son:

• Color: Color de impresión. Para usar esta propiedad hace falta establecer la propiedad Flags al valor de la constante cdlCFEffects.

• FontBold, FontItalic, FontStrikethru, FontUnderline: Devuelve o asigna los valores de los estilos de la fuente actual.

• FontName: Devuelve o asigna el nombre de la fuente en uso.

• FontSize: Devuelve o asigna el tamaño de la fuente en uso.

• Min y Max: Asigna o lee los valores del tamaño de fuente mínimo y máximo respectivamente que aparecerán en la lista de selección de tamaños de la fuente.

• Flags: Indica si los tipos de letra que se van a mostrar son los de la pantalla (cdlCFScreenFonts), los de la impresora (cdlCFPrinterFonts) o ambos (cdlCFBoth). Con la constante cdlCFEffects se puede indicar que se permite cambiar efectos como el color, subrayado y cruzado con una línea. Si Flags vale 0 da un error en tiempo de ejecución inndicando que no hay fonts instaladas.

Color Dialog Control

Las propiedades más importantes de este control son:

• Color: Devuelve o asigna el valor del color actual.

• Flags: Ver con ayuda del Help los posibles valores de esta propiedad. Por ejemplo, con el valor cdlCCFullOpen muestra el cuadro de diálogo completo, mientras que el valor cdlCCPreventFullOpen muestra sólo los colores predefinidos, impidiendo definir otros nuevos. Con el valor cdlCCRGBInit se establece el color inicial para el cuadro de diálogo.

FORMULARIOS MÚLTIPLES

Un programa puede contener más de un formulario. De hecho, habitualmente los programas contienen múltiples formularios. Recuérdese que el formulario es la ventana de máximo nivel en la que aparecen los distintos controles. Sin embargo, un programa siempre debe tener un formulario principal, que es el que aparece al arrancar el programa. Se puede indicar cuál debe ser el formulario principal en el menú

Project/Project Properties, en la lengüeta General, en la sección Startup Form. Por defecto, el programa considera como formulario principal el primero que se haya creado. El resto de formularios que se incluyan en el programa serán cargados en su momento, a lo largo de la ejecución del programa.

Para añadir en tiempo de diseño nuevos formularios al programa, hay que acudir al menú Project/Add Form. La forma de cargar y descargar estos formularios se ha explicado con anterioridad. Es importante sin embargo recordar que conviene descargar aquellos sub-formularios que ya no sean de utilidad, ya que así se ahorran recursos al sistema.

Para activar en tiempo de ejecución un formulario distinto del inicial (o del que esté activo en ese momento), se utiliza el método Show (frmName.Show). El método Hide oculta el formulario, pero lo deja cargado; el método Activate lo vuelve a mostrar. El método Unload elimina los elementos gráficos del formulario, pero no las variables y el código. El métodoUnload Me descarga el propio formulario que lo llama. Para eliminar completamente un formulario se puede utilizar el comando:

Set frmName = NOTHING

que llama al evento Terminate (hay que utilizar también los métodosHide o Unload para que desaparezca de la pantalla). Para referirse desde un formulario a los objetos y variables de otro formulario se utiliza el operador punto (frmName.Object.Property).

Apertura de controles en forma modal

En ciertas ocasiones se desea que el programa no realice ninguna acción hasta que el usuario cierre una ventana o formulario en la que se le pregunta algo o en la que tiene que tomar alguna decisión. En esos casos, al utilizar el método Show, es necesario utilizar el argumento Style con valor 1. A esto se le llama mostrar una ventana en forma modal. Esto quiere decir que no se permitirá al usuario hacer activa ninguna pantalla hasta que el usuario cierre esa ventana modal. Esto se hace así:

frmName.Show 1

o bien,

frmName.Show vbModal

Formularios MDI (Multiple Document Interface)

En algunos casos puede ser interesante establecer una jerarquía entre las ventanas o formularios que van apareciendo sucesiva-mente en la pantalla del ordenador, de tal manera que al cerrar una que se haya establecido como princi-pal, se cierren también todas las que se han abierto desde ella y dentro de ella. De esta forma una misma aplicación puede tener varios documentos abiertos, uno en cada ventana hija. Así trabajan por ejemplo Word y Excel, que pueden tener varios documentos abiertos dentro de la ventana principal de la aplicación. En el mundo de las Windows de Microsoft a esto se llama MDI (Multiple Document Interface). Un ejemplo de formulario MDI. En Visual Basic 6.0 estos formularios que tienen sub-formularios hijos se conocen como MDIForms. Los formularios MDI se crean desde el menú de Visual Basic 6.0 con el comando Project/Add MDI Form. En una aplicación sólo puede haber un formulario MDI, pero éste puede tener varios hijos. Si se quiere que un formulario sea Child, debe tener su propiedad MDIChild como True. Si al iniciar una aplicación el formulario que se carga en primer lugar es un formulario Child, el formulario MDI se carga al mismo tiempo. Al cerrar un formulario MDIForm se cierran todos sus formularios Child; por ejemplo, al cerrar Word también se cierran todos los documentos que estuvieran abiertos. Los formularios Child se minimizan y maximizan dentro de los límites del formulario MDI. Cuando están maximizados, suCaption aparece junto al Caption del formulario MDI. Los formularios Child no tienen menús propios, sino que sus menús aparecen en la barra de menús del formulario MDI. En una aplicación con un formulario MDI y uno o más formulariosChild, puede haber otros formularios que no sean Child y que se abren fuera de los límites del formulario MDI cuando son requeridos

ARRAYS DE CONTROLES

Un array de controles esta formado por controles del mismo tipo que comparten el nombre y los procedimientos o funciones para gestionar los eventos. Para identificar a cada uno de los controles pertenecientes al array se utiliza Index o índice, que es una propiedad más de cada control. Suponiendo que el sistema tenga memoria suficiente un array en Windows 95/98/NT podría llegar a tener hasta 32767 elementos. La utilidad principal de los arrays se presenta en aquellos casos en los que el programa debe responder de forma semejante a un mismo evento sobre varios controles del mismo tipo. Los ejemplos más claros son los botones de opción y los menús. En estos casos el programa responde de manera semejante independientemente de cuál es la opción seleccionada. Los arrays de controles comparten código, lo cual quiere decir que sólo hay que programar una función para responder a un evento de un determinado tipo sobre cualquier control del array. Las funciones que gestionan los eventos de un array tienen siempre u argumento adicional del tipo Index As Integer que indica qué control del array ha recibido el evento. Una opción avanzada de Visual Basic 6.0 permite crear objetos en tiempo de ejecución, siempre que sean elementos de un array ya existente, con la instrucción Load. De forma análoga se pueden destruir con Unload.

MENÚS

Entre las capacidades de Visual Basic 6.0 no podía faltar la de construir menús con gran facilidad. Sin embargo, hay algunas diferencias respecto al modo el que se construyen los controles. Para crear menús Visual Basic dispone de una herramienta especial que se activa mediante el comando Menu Editor del menú Tools. El cuadro de diálogo que se abre., Más adelante se verá cómo se utiliza esta herramienta; antes, conviene recordar brevemente las características más importantes de los menús de Windows 95/98/NT. Los menús presentan sobre los demás controles la ventaja de que ocupan menos espacio en pantalla, pero tienen el inconveniente de que sus posibilidades no están a la vista más que cuando se despliegan.

INTRODUCCIÓN A LAS POSIBILIDADES DE LOS MENÚS

La mayor parte de las aplicaciones de Windows 95 utilizan menús. Aunque todo el mundo está familiarizado con sus funciones más básicas, conviene ver algunas posibilidades menos usuales. Se utilizarán para ello unas aplicaciones tan conocidas como Word y Excel. Recoge el aspecto del menú View de Word , en el que conviene destacar las siguientes características:

1. Lo primero que llama la atención es que los menús aparecen divididos en grupos de opciones separados por líneas horizontales.

2. Algunos items como Page Layout tienen un icono resaltado a su izquierda. Esto quiere decir que ese ítem es la opción elegida entre los cuatro items de su grupo. En este sentido los menús se parecen a los controles OptionButton. Visual Basic 6.0 no permite hacer esto directamente, pero lo puede simular.

3. Otros items como Ruler tienen una marca de selección a su izquierda. En este caso el menú realiza la función de las cajas de selección ( CheckBox).

4. Todas las opciones del menú tienen una letra subrayada. La finalidad es poder desplegar y activar los menús desde teclado, sin ayuda del ratón (con Alt y la letra subrayada).

MENÚ de EXCEL:

5. También se observa que el ítem Comments aparece en gris claro. Esto quiere decir que en este momento no está activo y por tanto no es seleccionable.

6. Otros items como Toolbars están seguidos por un pequeño triángulo. Eso quiere decir que existe un menú secundario con más opciones. Otros items comoZoom aparecen seguidos por puntos suspensivos (...). Este es un convenio utilizado para indicar que eligiendo esa opción se abrirá un cuadro de diálogo en el que habrá que tomar otras decisiones.

Por lo que respecta al menú de Excel la característica más importante es que tiene sub-menús (señalados mediante un pequeño triángulo a su derecha), que se abren al colocar el cursor sobre el ítem correspondiente. Estos menús se suelen llamar menús en cascada, y son muy frecuentes en Windows 95/98/NT. Otra característica de los menús, es la posibilidad de definir combinaciones de teclas que realizan la misma función que una opción del menú. Por ejemplo, en muchas aplicaciones Ctrl+C equivale a Edit/Copy y Ctrl+V a Edit/Paste. Estas combinaciones de teclas se llaman accesos rápidos (shortcut) y hay que distinguirlas de acceder a los menús mediante la tecla Alt y las letras subrayadas de los nombres.

EL EDITOR DE MENÚS (MENU EDITOR)

Se vuelve a recoger -a mayor tamaño y con algunos elementos ya definidos- el editor que se abre con Tools/Menu Editor o clicando en el botón correspondiente de la barra de herramientas.

Se llama título a cada elemento que aparece en la barra de menús y línea o ítem a cada elemento que aparece al desplegarse un título. Para introducir un nuevo título en la barra de menús hay que definir, en la caja de texto Caption El Nombre con el que se quiere que aparezca. Si se desea acceder a dicho título mediante teclado (Alt+letra), la letra que se desea utilizar deberá ir precedida por el carácter (&). Además, y al igual que todos los controles deVisual Basic 6.0, conviene que el título tenga un nombre (caja de texto Name) para que se pueda acceder a él desde programa. Los nombres de los títulos de los menús suelen comenzar por las letras mnu, como por ejemplo mnuFile, mnuEdit o mnuHelp.

La caja de texto Index hace referencia a la posibilidad de crear arrays de menús. Se puede definir también un shortcut en la caja de texto correspondiente. En esta figura aparecen cuatro checkButtons (Enabled, Checked, Visible y WindowList) con los que se pueden especificar algunas propiedades iniciales del menú, como por ejemplo que esté activado o que sea visible.

Se pueden introducir items subordinados a un título por medio de la flecha hacia la derecha. Para ello basta definirlos del modo habitual y luego clicar sobre dicha flecha. El resultado es que aparecen unos puntos a la izquierda del caption correspondiente., Exit es una línea subordinada del menú File, mientras que Undo, Repeat, Cut, Copy y Paste son items subordinados del menú Edit. En este último caso se ha introducido una línea de separación entre Repeat y Cut; para ello

basta introducir un ítem más cuyocaption sea el caráctermenos (-).

La Figura Form1 muestra el resultado de ejecutar la aplicacióncuyos menús están definidos en el Menu Editor Obsérvese la línea horizontal de separación, los shortcuts y las letras subrayadas para poder abrir el menú desde teclado.

Respecto a los nombres de los items, lo habitual es seguir la nomenclatura que ya se muestra en la Figura Menu Editor para Undo: primero se ponen las tres letras mnu, y después los nombres del título y del ítem comenzando por mayúscula: mnuEditUndo. Caso que haya menús en cascada, se ponen los distintos nombres siguiendo estas mismas normas. De esta forma siempre queda claro a partir del nombre a qué elemento del menú se está haciendo referencia.

La Figura Menu Editor es bastante auto-explicativa respecto a cómo se debe proceder para estructurar un menú, añadiendo, borrando o cambiando de posición los distintos elementos. De forma resumida, se pueden establecer las siguientes normas generales:

1. Para insertar un título o ítem basta seleccionar la línea por encima de la cual se quiere insertar y clicar en el botón Insert. Para añadir un nuevo ítem al final de la lista se selecciona el último elemento introducido y se clica en el botón Next. Para borrar un elemento, se selecciona y se clica en el botón Delete.

2. Se puede cambiar de posición un título o ítem seleccionándolo y clicando en los botones que muestran las flechas hacia arriba y hacia abajo. Para convertir un título en ítem o para cambiar el nivel de un ítem se selecciona y se utilizan las flechas hacia la derecha y hacia la izquierda. Conviene recordar que los nombres de los items (por ejemplo mnuEditCopy) deben estar siempre de acuerdo con su posición, según las normas explicadas anteriormente.

AÑADIR CÓDIGO A LOS MENÚS

Los items de los menús admiten un único evento: el evento click, que consiste en ser seleccionados por medio del ratón o del teclado. Para añadir el código correspondiente basta elegir en el menú, estando en modo diseño, el ítem correspondiente para que se abra la ventana de código en el procedimiento ligado a ese evento. También puede buscarse directamente el objeto y el evento correspondiente en las listas desplegables de la ventana de código.

En ocasiones habrá que cambiar las propiedades checked, active y visible desde los procedimientos. A estas propiedades se accede del modo habitual, con el nombre del ítem y el operador punto (.)

ARRAYS DE MENÚS

De la misma manera que pueden definirse arrays de controles, también pueden definirse arrays de items (y de títulos) en un menú. La ventaja de definir arrays de items es que basta definir un único procedimiento que se haga cargo del evento click de todos los items del array. Este procedimiento recibe como parámetro la variable enteraIndex, que indica que ítem del array ha sido seleccionado por el usuario. Dentro de este procedimiento se podrá utilizar por ejemplo la sentenciaSelect Case para tratar de forma adecuada cada uno de los casos.

EJEMPLO: MENÚ PARA DETERMINAR LAS CARACTERÍSTICAS DE UN TEXTO

Formulario que contiene una caja de texto con una frase (“ Visual Basic es el lenguaje de programación que hace más fácil el desarrollar aplicaciones para Windows 95”) a la que se puede dar formato desde el menú Text. El menú Text tiene tres submenús: Font, Size y Style. El menú File sólo tiene la opción Exit, que termina la ejecución.

El sub-menú Font tiene tres opciones: Arial, Courier New y Times New Roman. El sub-menú Size tiene 5 opciones: 10, 11, 12, 13, y 14. El sub-menú Style tiene 2 opciones: Bold e Italic. Los tipos de letra y los tamaños deben actuar como los Option Buttons: sólo una opción puede estar seleccionada para el texto de la caja. Sin embargo, los estilos Bold e Italic actúan como Checked Boxes: el texto puede ser a la vez Bold e Italic, y puede no ser ninguna de las dos cosas. Para los tamaños de letra se debe utilizar un array de menús con cinco elementos (propiedad Index de 0 a 4). Se deja al usuario que ponga los nombres que desee a los controles de la Figura 5.6, o que utilice los del código del programa que se muestra a continuación. Nótese que con los menús que se comportan como Option Buttons la propiedad Checked se pone a False en todas las opciones antes de poner a True la que el usuario ha elegido. Con el menú que se comporta como Checked Box simplemente se cambia la propiedad Checked de True a False o viceversa, cuando el usuario la elige. El código se muestra a continuación:

Option Explicit

Private Sub Form_Load()

txtBox.Text = "Visual Basic es el lenguaje de programación " & _ "que hace más fácil el desarrollar aplicaciones para Windows 95"

txtBox.Font.Name = "Arial" mnuTextFontArial.Checked = True txtBox.Font.Size = 10 mnuTextSizeA(0).Checked = True txtBox.Font.Bold = False txtBox.Font.Italic = False

End Sub

Private Sub mnuFileExit_Click()

End

End Sub

Private Sub mnuTextFontArial_Click() mnuTextFontCou.Checked = False mnuTextFontTimes.Checked = False txtBox.Font.Name = "Arial" mnuTextFontArial.Checked = True

End Sub

Private Sub mnuTextFontCou_Click() mnuTextFontArial.Checked = False mnuTextFontTimes.Checked = False txtBox.Font.Name = "Courier New" mnuTextFontCou.Checked = True

End Sub

Private Sub mnuTextFontTimes_Click() mnuTextFontArial.Checked = False mnuTextFontCou.Checked = False txtBox.Font.Name = "Times New Roman" mnuTextFontTimes.Checked = True

End Sub

Private Sub mnuTextSizeA_Click(Index As Integer) Dim i As Integer

For i = 0 To 4 mnuTextSizeA(i).Checked = False

Next i

Select Case Index Case 0

txtBox.Font.Size = 10 Case 1

txtBox.Font.Size = 11 Case 2

txtBox.Font.Size = 12 Case 3

txtBox.Font.Size = 13 Case 4

txtBox.Font.Size = 14 End Select

mnuTextSizeA(Index).Checked = True End Sub

Private Sub mnuTextStyleBold_Click() txtBox.Font.Bold = Not txtBox.Font.Bold

mnuTextStyleBold.Checked = Not mnuTextStyleBold.Checked End Sub

Private Sub mnuTextStyleItalic_Click() txtBox.Font.Italic = Not txtBox.Font.Italic

mnuTextStyleItalic.Checked = Not mnuTextStyleItalic.Checked End Sub

MENÚS CONTEXTUALES (POPUP MENU)

Los menús contextuales aparecen cuando el usuario clica con el botón derecho sobre un elemento de la aplicación. El programa debe reconocer el evento MouseUp o MouseDown, ver si el usuario ha clicado con el botón derecho (argumento Button igual a 2) y llamar al método PopupMenu, que tiene la siguiente forma general:

PopupMenu menuName [,flags[,x[,y]]]

donde menuName ee el nombre de un menú (con al menos un elemento), x e y son las coordenadas base para hacer aparecer el menú contextual, y flags son unas constantes que determinan más en concreto dónde y cómo se muestra el menú. Las constantes que determinan dónde aparece el menú son: vbPopupMenuLeftAlign (default), vbPopupMenuCenterAlign y vbPopupMenuRightAlign. Por otra parte vbPopupMenuLeftButton (default) y vbPopupMenuRightButton determinan si el comando se activa con el botón izquierdo o con cualquiera de los dos botones. Las constantes se combina con el operador Or. El nombre del menú que aparece en el métodoPopupMenu debe haber sido creado con el Menu Editor, aunque puede tener la propiedad Visible a False, si no se desea que se vea.

GRÁFICOS EN VISUAL BASIC 6.0

Visual Basic 6.0, además de hacer fácil la construcción de interfaces gráficas de usuario, tiene también grandes posibilidades gráficas en lo que se refiere a dibujo de líneas y formas geométricas, así como en lo referente a la introducción de gráficos y figuras realizados con otras aplicaciones. En este capítulo se presentarán brevemente las posibilidades gráficas más importantes Visualde Basic 6.0.

TRATAMIENTO DEL COLOR

Antes de ver cómo se dibuja en Visual Basic 6.0 se verá cómo se definen los colores. Al igual que en tantas aplicaciones informáticas, los colores de Visual Basic se definen por medio de las componentes fundamentales RGB (Red, Green and Blue). La intensidad de cada color fundamental se define con un byte, es decir con un número entero entre 0 y 255. Se utilizan pues tres bytes para definir los tres colores. Visual Basic 6.0 utiliza un entero long (32 bits, 4 bytes) para guardar un color, lo cual quiere decir que existe un byte adicional donde se podrá guardar alguna otra información .

Representación hexadecimal de los colores

Para los números enteros entre 0 y 255 se utilizan dos dígitos hexadecimales. Con esta notación el cero es el “00” y el 255 el “FF”. El número que indica el color va precedido por el carácter “&” y la letra “H”. Así, el color verde se define en la forma: &H00FF00. Con esta notación es posible prescindir de los ceros situados a la izquierda. Por ejemplo, el color rojo se puede escribir como &H0000FF y como &HFF. Visual Basic 6.0 dispone también de nombres para los colores fundamentales y los que son combinación de los colores fundamentales, según puede verse en la Tabla