Visual basic

DESARROLLO II - 5º AÑO
Controles comunes de Visual Basic
Los controles comunes de Visual Basic se encuentran dentro del archivo ejecutable de Visual Basic.
Los controles intrínsecos están siempre incluidos en el cuadro de herramientas, no como
los controles ActiveX y los objetos insertables, que se pueden quitar o agregar al cuadro de
herramientas.
En la tabla siguiente se enumeran los controles intrínsecos del cuadro de herramientas de Visual
Basic.
Icono Nombre del control Nombre de clase Descripción
Casilla de verificación CheckBox Presenta una opción de tipo
Verdadero o Falso, o Sí o No. Puede
activar varias casillas de verificación
al mismo tiempo.
Cuadro combinado ComboBox Combina un cuadro de texto y un
cuadro de lista. Permite que el usuario
escriba una selección o seleccione un
elemento de la lista desplegable.
Botón de comando CommandButton Ejecuta un comando o una acción
cuando un usuario hace clic en él.
Datos Data Permite conectar con una base de
datos existente y presentar
información de ella en formularios.
Cuadro de lista de DirListBox Presenta directorios y rutas de acceso,
directorios y permite que el usuario los
seleccione.
Cuadro de lista de DriveListBox Presenta unidades de disco válidas y
unidades permite que el usuario las seleccione.
Cuadro de lista de FileListBox Presenta una lista de archivos y
archivos permite que el usuario los seleccione.
Marco Frame Proporciona un contenedor visual y
funcional para otros controles.
Barras de HScrollBar y VScrollBar Permite que un usuario agregue
desplazamiento barras de desplazamiento a controles
horizontal y vertical que no las tienen de forma
automática. (No son las barras de
desplazamiento incorporadas que se
incluyen en muchos controles.)
Imagen Image Presenta mapas de bits, iconos o
metarchivos de Windows, archivos
JPEG o GIF, y actúa como un botón de
comando cuando se hace clic en él.
Etiqueta Label Presenta texto con el que el usuario
no puede interactuar ni modificar.
Línea Line Agrega un segmento de línea resta a
un formulario.
Cuadro de lista ListBox Presenta una lista de elementos entre
los que el usuario puede elegir.
Visual Basic 1

FUNDAMENTOS DE INFORMÁTICA Departamento de Ingeniieríía Elléctriica
Icono Nombre del control Nombre de clase Descripción
Contenedor OLE OLE Incrusta datos en una aplicación de
Visual Basic. Se utiliza para presentar
ymanipulardatosdeotras
aplicaciones de Windows, como
Microsoft Excel y Microsoft Word.
Botón de opción OptionButton El control OptionButton, como parte
de un grupo de opciones con otros
botones de opción, presenta varias
opciones entre las que el usuario sólo
puede elegir una.
Cuadro de imagen PictureBox Presenta mapas de bits, iconos o
metarchivos de Windows, archivos
JPEG o GIF. También presenta texto o
actúa como contenedor visual para
otros controles.
Forma Shape Agrega un rectángulo, un cuadrado,
una elipse o un círculo a un
formulario, marco o cuadro de
imagen.
Cuadro de texto TextBox Proporciona un área para escribir o
presentar texto.
Cronómetro Timer Ejecuta eventos periódicos a
intervalos de tiempo especificados.
La herramienta puntero proporciona una forma de mover y cambiar el tamaño de los
formularios y controles. No es un control.
Durante los capítulos anteriores se ha trabajados con algunos de ellos, por lo que, a continuación
se detallarán brevemente algunos.
Visual Basic 2

Label
Un control Label es un control gráfico que puede usar para mostrar texto que el usuario no podrá
cambiar directamente.
Puede escribir código que cambie el texto mostrado por un control Label como respuesta a eventos
en tiempo de ejecución. Por ejemplo, si la aplicación tarda unos minutos en realizar un
cambio, puede mostrar un mensaje de estado del proceso en un control Label. También puede usar
Label para identificar un control, como un control TextBox, que no tenga su propia propiedad
Caption.
Establezca las propiedades AutoSize y WordWrap si desea que Label muestre líneas de longitud
variable o números variables de líneas.
Eventos a los que responde el control Label:
Eventos Descripción
Change Cambia el contenido del control Label. Ocurre cuando un vínculo
DDE actualiza los datos o cuando usted cambia la configuración de
la propiedad Caption mediante código
Clic Ocurre cuando el usuario presiona y suelta un botón del mouse
(ratón) en un objeto. También puede ocurrir cuando se cambia el
valor de un control.
DblClick Se produce cuando un usuario presiona y suelta un botón del
mouse (ratón) dos veces sobre un objeto.
DragDrop Ocurre cuando se completa una operación de arrastrar y colocar
como resultado de arrastrar un control sobre un objeto y soltar el
botón del mouse o usar el método Drag con su argumento acción
establecido a 2 (Drop).
DragOver Ocurre cuando una operación de arrastrar y colocar está en curso.
Puede usar este evento para controlar el puntero del mouse a
medida que entra, sale o descansa directamente sobre un destino
válido. La posición del puntero del mouse determina el objeto de
destino que recibe este evento.
LinkClose Ocurre cuando termina una conversación DDE. Cualquier aplicación
de una conversación DDE puede terminar una conversación en
cualquier momento.
LinkError Ocurre cuando se produce un error durante una conversación DDE.
Este evento sólo se reconoce como el resultado de un error
relacionado con DDE que ocurre cuando no se está ejecutando
código de Visual Basic. El número de error se pasa como un
argumento.
LinkNotify Ocurre cuando el origen ha cambiado los datos definidos por el
vínculo DDE si la propiedad LinkMode del control de destino está
establecida a 3 (Notify).
LinkOpen Ocurre cuando se está iniciando una conversación DDE.
MouseDown y Ocurren cuando el usuario presiona (MouseDown) o suelta
MouseUp (MouseUp) un botón del mouse.
MouseMove Ocurre cuando el usuario mueve el mouse.
OLECompleteDrag Se produce cuando un componente de origen se coloca en un
componente de destino e informa al componente de origen de que
se ha realizado o cancelado una operación de arrastre.
Visual Basic 3

OLEDragDrop Se produce cuando un componente de origen se coloca en un
componente de destino, si el componente de origen determina que la
colocación puede realizarse.
Este evento sólo se produce cuando OLEDropMode está establecido
a 1 (Manual).
OLEDragOver Se produce cuando un componente se arrastra sobre otro.
OLEGiveFeedback Se produce después de cada evento OLEDragOver. OLEGiveFeedback
permite al componente de origen proporcionar al usuario una
indicación visual, como cambiar el cursor del mouse para indicar lo
que ocurrirá si coloca el objeto o señalar visualmente la selección (en
el componente de origen) para indicar lo que va a ocurrir.
OLESetData Se produce en un componente de origen cuando un componente de
destino realiza el método GetData sobre el objeto DataObject del
origen, pero antes de que se carguen los datos del formato
especificado.
OLEStartDrag Se produce cuando se ejecuta el método OLEDrag de un componente
o cuando un componente inicia una operación OLE de arrastrar y
colocar, y la propiedad OLEDragMode está establecida a Automatic.
Este evento especifica los formatos de los datos y los efectos de
colocación que admite el componente de origen. También puede
usarlo para insertar datos en el objeto DataObject.
Métodos correspondientes al control Label:
Métodos Descripción
Drag Inicia, termina o cancela una operación de arrastre de cualquier control
excepto los controles Line, Menu, Shape, Timer o CommonDialog. No
acepta argumentos con nombre.
LinkExecute Envía una cadena de comandos a la aplicación de origen de una
conversación DDE. No acepta argumentos con nombre.
LinkPoke Transfiere el contenido de un control Label, PictureBox o TextBox a la
aplicación de origen de una conversación DDE.
LinkRequest Pide a la aplicación de origen de una conversación DDE que actualice el
contenido de un control Label, PictureBox o TextBox.
LinkSend Transfiere el contenido de un control PictureBox a la aplicación de destino
de una conversación DDE.
Move Mueve objetos MDIForm o Form, o controles. No acepta argumentos con
nombre.
OLEDrag Hace que un componente inicie una operación OLE de arrastrar y colocar.
Refresh Fuerza el volver a dibujar un formulario o un control completo.
ShowWhatsThis Muestra un tema seleccionado de un archivo de Ayuda utilizando el menú
emergente ¿Qué es esto? que ofrece la Ayuda de Windows 95.
Zorder Coloca un objeto MDIForm o Form, o un control al principio o al final del
orden z dentro de su nivel gráfico. No acepta argumentos con nombre.
Visual Basic 4

Propiedades correspondientes al control Label:
Propiedades Descripción
Alignment Devuelve o establece un valor que determina la alineación del
control.
Appearance Devuelve o establece el estilo de dibujo de los controles de un
objeto MDIForm o Form en tiempo de diseño. Es de sólo lectura en
tiempo de ejecución.
AutoSize Devuelve o establece un valor que determina si el tamaño de un
control cambia automáticamente para presentar todo su contenido.
BackColor y ForeColor BackColor: devuelve o establece el color de fondo de un objeto.
ForeColor: devuelve o establece el color de primer plano utilizado
para mostrar texto y gráficos en un objeto.
BackStyle Devuelve o establece un valor que indica si un control Label o el
fondo de un color Shape es transparente u opaco.
BorderStyle Devuelve o establece el estilo del borde de un objeto. Para el objeto
Form y el control TextBox es de sólo lectura en tiempo de
ejecución.
Caption Determina el texto que se muestra en el control.
Container Devuelve o establece el contenedor de un control de un Form. No
está disponible en tiempo de diseño.
DataChanged Devuelve o establece un valor que indica que algún proceso distinto
de la recuperación de datos del registro actual ha cambiado los
datos del control enlazado. No está disponible en tiempo de diseño.
DataField Devuelve o establece el nombre de un campo al que será enlazado
un receptor de datos.
DataFormat Devuelve o establece el objeto StdDataFormat al que está adjunto
un objeto vinculado. Lectura y escritura en tiempo de diseño y en
DataMember Devuelve o establece un miembro de datos especificado entre los
varios que ofrece el proveedor de datos.
DataSource Devuelve o establece el origen de datos mediante el cual un
receptor de datos enlaza con una base de datos.
DragIcon Devuelve o establece el icono que se presenta como puntero en una
operación de arrastrar y colocar.
DragMode Devuelve o establece un valor que determina si se usa el modo de
arrastre manual o automático en una operación de arrastrar y
colocar.
Enabled Devuelve o establece un valor que determina si un formulario o un
control puede responder a eventos generados por el usuario.
Font Devuelve un objeto Font.
FontBold, FontItalic, Devuelve o establece los estilos de fuente en los siguientes
FontStrikethru y formatos: Negrita, Cursiva, Tachado y Subrayado.
FontUnderline
FontName Devuelve o establece la fuente utilizada para mostrar texto en un
control o en una operación de dibujo o impresión en tiempo de
ejecución.
Visual Basic 5

FontSize Devuelve o establece el tamaño de la fuente que se va a usar para
el texto mostrado en un control o en una operación de dibujo o
impresión en tiempo de ejecución.
Height y Width Devuelven o establecen las dimensiones de un objeto o el ancho del
objeto Colu mns de un control DataGrid. Para los objetos Printer y
Screen, no están disponibles en tiempo de diseño.
Index(Matrizde Devuelve o establece el número que identifica un control de forma
controles) exclusiva en una matriz de controles. Sólo está disponible si el control
forma parte de una matriz de controles.
Left y Top Left: devuelve o establece la distancia entre el borde interno izquierdo
de un objeto y el borde izquierdo de su contenedor.
Top: devuelve o establece la distancia entre el borde interno superior
de un objeto y el borde superior de su contenedor.
LinkItem Devuelve o establece los datos pasados a un control de destino en una
conversación DDE con otra aplicación.
LinkMode Devuelve o establece el tipo de vínculo usado en una conversación
DDE y activa la conexión de la forma siguiente. Permite que un control
de destino de un formulario de Visual Basic inicie una conversación,
como se especifica en las propiedades LinkTopic y LinkItem.
LinkTimeout Devuelve o establece la cantidad de tiempo que un control espera una
respuesta a un mensaje DDE.
LinkTopic Para un control de destino, devuelve o establece la aplicación de
origen y el tema correspondiente (el agrupamiento de datos
fundamental utilizado en esa aplicación). Utilice LinkTopic con la
propiedad LinkItem para especificar el vínculo de datos completo.
MouseIcon Devuelve o establece un icono personalizado de mouse (ratón).
MousePointer Devuelve o establece un valor que indica el tipo de puntero de mouse
que aparece cuando se sitúa el mouse sobre un área determinada de
un objeto en tiempo de ejecución.
Name Devuelve el nombre utilizado en el código para identificar un
formulario, un control o un objeto de acceso a datos. Es de sólo
lectura en tiempo de ejecución.
OLEDrag Hace que un componente inicie una operación OLE de arrastrar y
colocar.
OLEDropMode Devuelve o establece el modo en que un componente de destino
realiza las operaciones de colocación.
Parent Devuelve el formulario, objeto o colección que contiene un control u
otro objeto o colección.
RightToLeft El control Label permite configurar la dirección de alineación y el
orden de lectura del texto de la etiqueta.
Los controles Label se crean inicialmente con una posición
determinada por el valor predeterminado de la propiedad RightToLeft
del formulario primario.
TabIndex Devuelve o establece el orden de tabulación de la mayoría de los
objetos dentro de su formulario primario.
Tag Devuelve o establece una expresión que almacena cualquie r dato
adicional que necesite el programa. Al contrario de lo que sucede con
Visual Basic 6

otras propiedades, Visual Basic no utiliza el valor de Tag. Puede usar
esta propiedad para identificar objetos.
ToolTipText Devuelve o establece Información sobre herramientas.
UseMnemonic Devuelve o establece un valor que indica si al incluir el signo & en el
texto de la propiedad Caption del control Label se define una tecla de
acceso
Visible Devuelve o establece un valor que indica si un objeto es visible o está
oculto.
WhatsThisHelpID Devuelve o establece un número de contexto asociado a un objeto. Se
utiliza para dotar a las aplicaciones de Ayuda interactiva con el menú
emergente ¿Qué es esto? de la Ayuda de Windows 95.
WordWrap Devuelve o establece un valor que indica si un control Label con el
valor True en su propiedad AutoSize se expande vertical u
horizontalmente para adaptarse al texto especificado en su propiedad
Caption.
A continuación se desarrollará una aplicación que consiste en utilizar las propiedades FontItalic,
FontBold y FontUnderline de una etiqueta llamada Label1 de acuerdo al botón pulsado.
En el menú Archivo, seleccione la opción Nuevo proyecto y pulse Aceptar para crear un nuevo
archivo ejecutable de tipo estándar.
Ajuste el tamaño del formulario hasta que alcance las dimensiones de un cuadro de diálogo de
tamaño medio.
Pulse el control Label y cree una etiqueta alargada en la parte superior del formulario.
Cree cuatro botones de pulsación. Básese en la figura siguiente para determinar su
emplazamiento.
Asigne las siguientes propiedades para los objetos mencionados.
Objeto Propiedad Valor
Label1 Caption UTN
Command1 Nombre cmdNegrita
Caption Negrita
Command2 Nombre cmdSubrayado
Caption Subrayado
Command3 Nombre cmdCursiva
Caption Cursiva
Command4 Nombre cmdEstadoOriginal
Caption EstadoOriginal
A continuación, deberá introducir el código asociado con los cuatro procedimientos de evento clic.
Realice una doble pulsación sobre el objeto cmdNegrita. El procedimiento de evento
cmdNegrita_Click aparecerá en la ventana Código. Escriba lo siguiente:
Private Sub cmdNegrita_Click()
Label1.FontBold = True
Visual Basic 7

End Sub
Esto hará que la etiqueta se torne negrita.
Ahora escriba el código correspondiente al evento clic del botón de pulsación cmdSubrayado:
Private Sub cmdSubrayado_Click()
Label1.FontUnderline = True
End Sub
Introduzca las siguientes sentencias de programa en el procedimiento de evento cmdCursiva_Clic:
Private Sub cmdCursiva_Click()
Label1.FontItalic = True
End Sub
Para que la etiqueta vuelva a su fuente original escriba el siguiente código en el evento clic del
botón de pulsación cmdEstadoOriginal.
Private Sub cmdEstadoOriginal_Click()
Label1.FontItalic = False
Label1.FontBold = False
Label1.FontUnderline = False
End Sub
Al ejecutar la aplicación, por ejemplo al pulsar el botón Negrita y luego Cursiva, la ventana se
mostrará como en la imagen que sigue:
Visual Basic 8

TextBox (Caja de texto)
Un control TextBox, también denominado control de campo de edición o control de edición,
muestra información introducida en tiempo de diseño, introducida por el usuario o asignada al
control en código en tiempo de ejecución.
Para mostrar múltiples líneas de texto en un control TextBox, establezca la propiedad MultiLine a
True. Si un TextBox de múltiples líneas no tiene una barra de desplazamiento horizontal, el texto
se ajustará automáticamente aunque se ajuste el tamaño de TextBox. Para personalizar la
combinación de barra de desplazamiento en un TextBox, establezca la propiedad ScrollBars.
Las barras de desplazamiento siempre aparecerán en el TextBox cuando su propiedad MultiLine se
haya establecido a True y su propiedad ScrollBars a cualquier cosa excepto None (0).
Si establece la propiedad MultiLine a True, podrá emplear la propiedad Alignment para establecer la
alineación del texto dentro del TextBox. El texto está justificado a la izquierda de forma
predeterminada. Si la propiedad MultiLine es False, el valor de la propiedad Alignment no tiene
ningún efecto.
Eventos a los que responde el control TextBox:
Change Indica que el contenido de una caja de texto ha cambiado. Ocurre cuando
un vínculo DDE actualiza los datos, cuando un usuario cambia el texto o
cuando cambia la configuración de la propiedad Text mediante código.
Click Ocurre cuando el usuario presiona y suelta un botón del mouse (ratón) en
un objeto. También puede ocurrir cuando se cambia el valor de un control.
DblClick Se produce cuando un usuario presiona y suelta un botón del mouse
(ratón) dos veces sobre un objeto.
DragDrop Ocurre cuando se completa una operación de arrastrar y colocar como
resultado de arrastrar un control sobre un objeto y soltar el botón del
mouse o usar el método Drag con su argumento acción establecido a 2
(Drop).
DragOver Ocurre cuando una operación de arrastrar y colocar está en curso. Puede
usar este evento para controlar el puntero del mouse a medida que entra,
sale o descansa directamente sobre un destino válido. La posición del
puntero del mouse determina el objeto de destino que recibe este evento.
GotFocus Ocurre cuando un objeto recibe el enfoque, ya sea mediante una acción
del usuario, como tabular o hacer clic en el objeto, o cambiando el
enfoque en el código mediante el método SetFocus.
KeyDown y KeyUp Ocurren cuando el usuario presiona (KeyDown) o suelta (KeyUp) una tecla
mientas un objeto tiene el enfoque.
KeyPress Ocurre cuando el usuario presiona y suelta una tecla ANSI.
LinkClose Ocurre cuando termina una conversación DDE. Cualquier aplicación de
una conversación DDE puede terminar una conversación en cualquier
momento .
LinkError Ocurre cuando se produce un error durante una conversación DDE. Este
evento sólo se reconoce como el resultado de un error relacionado con
DDE que ocurre cuando no se está ejecutando código de Visual Basic. El
número de error se pasa como un a rgumento.
LinkNotify Ocurre cuando el origen ha cambiado los datos definidos por el vínculo
DDE si la propiedad LinkMode del control de destino está establecida a 3
(Notify).
Visual Basic 9

LostFocus Ocurre cuando un objeto pierde el enfoque, ya sea por una acción del
usuario, como tabular o hacer clic en otro objeto, o bien mediante un
cambio del enfoque en el código con el método SetFocus.
MouseDown y Ocurren cuando el usuario presiona (MouseDown) o suelta (MouseUp) un
MouseUp botón del mouse.
OLECompleteDrag Se produce cuando un componente de origen se coloca en un componente
de destino e informa al componente de origen de que se ha realizado o
cancelado una operación de arrastre.
(Controles de destino e informa al componente de origen de que se ha realizado o
ActiveX) cancelado una operación de arrastre.
OLEDragDrop Se produce cuando un componente de origen se coloca en un componente
de destino, si el componente de origen determina que la colocación puede
realizarse.
Nota: Este evento sólo se produce cuando OLEDropMode está
establecido a 1 (Manual).
(Controles
ActiveX)
OLEGiveFeedback Se produ ce después de cada evento OLEDragOver. OLEGiveFeedback
permite al componente de origen proporcionar al usuario una indicación
visual, como cambiar el cursor del mouse para indicar lo que ocurrirá si
coloca el objeto o señalar visualmente la selección (en el componente de
origen) para indicar lo que va a ocurrir.
destino realiza el método GetData sobre el objeto DataObject del origen,
pero antes de que se carguen los datos del formato especificado.
OLEStartDrag Se produce cuando se ejecuta el método OLEDrag de un componente o
cuando un componente inicia una operación OLE de arrastrar y colocar, y
la propiedad OLEDragMode está establecida a Automatic.
Validate Ocurre cuando el foco cambia a un (segundo) control que tiene su
propiedad CausesValidation establecida a True.
Métodos correspondientes al control TextBox:
Drag Inicia, termina o cancela una operación de arrastre del control.
LinkExecute Envía una cadena de comandos a la aplicación de origen de una conversación
DDE. No acepta argumentos con nombre.
LinkPoke Transfiere el contenido del control a la aplicación de origen de una conversación
DDE.
contenido de un control.
LinkSend Transfiere el contenido de un control PictureBox a la aplicación de destino de
una conversación DDE.
Visual Basic 10

Move Mueve controles. No acepta argumentos con nombre.
SetFocus Mueve el enfoque al control o formulario especificado.
ZOrder Coloca un control al principio o al final del orden z dentro de su nivel gráfico.
No acepta argumentos con nombre.
Propiedades correspondientes al control TextBox:
Alignment Devuelve o establece un valor que determina la alineación del texto de el
control. Es de sólo lectura en tiempo de ejecución para este control.
Appearance Devuelve o establece el estilo de dibujo de los controles de un objeto
MDIForm o Form en tiempo de diseño. Es de sólo lectura en tiempo de
ejecución.
BackColor y BackColor: devuelve o establece el color de fondo de un objeto.
ForeColor ForeColor: devuelve o establece el color de primer plano utilizado para
mostrar texto y gráficos en un objeto.
BorderStyle Devuelve o establece el estilo del borde de un objeto. Para este control es
de sólo lectura en tiempo de ejecución.
Container Devuelve o establece el contenedor de un control de un Form. No está
disponible en tiempo de diseño
DataChanged Devuelve o establece un valor que indica que algún proceso distinto de la
recuperación de datos del registro actual ha cambiado los datos del control
enlazado. No está disponible en tiempo de diseño.
DataField Devuelve o establece el nombre de un campo al que será enlazado un
receptor de datos.
DataFormat Devuelve o establece el objeto StdDataFormat al que está adjunto un
objeto vinculado. Lectura y escritura en tiempo de diseño y en tiempo de
ejecución.
DataMember Devuelve o establece un miembro de datos especificado entre los varios
que ofrece el proveedor de datos.
DataSource Devuelve o establece el origen de datos mediante el cual un receptor de
datos enlaza con una base de datos.
DragMode Devuelve o establece un valor que determina si se usa el modo de arrastre
manual o automático en una operación de arrastrar y colocar.
Enabled Devuelve o establece un valor que determina si un la caja de texto puede
responder a eventos generados por el usuario.
Visual Basic 11

FontBold, FontItalic, Devuelve o establece los estilos de fuente en los siguientes formatos:
FontStrikethru y Negrita, Cursiva, Tachado y Subrayado.
FontUnderline
FontName Devuelve o establece la fuente utilizada para mostrar texto en el control.
FontSize Devuelve o establece el tamaño de la fuente que se va a usar para el texto
mostrado en el contro l.
Height y Width Devuelven o establecen las dimensiones del control.
HelpContextID Devuelve o establece un número de contexto asociado a un objeto. Se
utiliza para proporcionar Ayuda interactiva para la aplicación.
HideSelection Devuelve un valor que determina si el texto seleccionado aparece
resaltado cuando un control pierde el enfoque.
hWnd Devuelve el controlador de un formulario o un control.
Nota: Esta propiedad no es compatible con el control contenedor OLE.
Index (Control Devuelve o establece el número que identifica un control de forma
Array) exclusiva en una matriz de controles. Sólo está disponible si el control
Left y Top Left: devuelve o establece la distancia entre el borde interno izquierdo de
un objeto y el borde izquierdo de su contenedor.
Top: devuelve o establece la distancia entre el borde interno superior de
un objeto y el borde superior de su contenedor.
LinkMode Devuelve o establece el tipo de vínculo usado en una conversación DDE y
activa la conexión de la forma siguiente: permite que un control de destino
de un formulario de Visual Basic inicie una conversación, como se
especifica en las propiedades LinkTopic y LinkItem.
LinkTimeout Devuelve o establece la cantidad de tiempo que un control espera una
LinkTopic Para un control de destino, devuelve o establece la aplicación de origen y
el tema correspondiente (el agrupamiento de datos fundamental utilizado
en esa aplicación). Utilice LinkTopic con la propiedad LinkItem para
especificar el vínculo de datos completo.
Locked Devuelve o establece un valor que indica si un control se puede modificar.
MaxLength Devuelve o establece un valor que indica si existe un número máximo de
caracteres que se pueden introducir en un control TextBox y, en caso
afirmativo, especifica dicho valor máximo.
MousePointer Devuelve o establece un valor que indica el tipo de puntero de mouse que
aparece cuando se sitúa el mouse sobre un área determinada de un objeto
en tiempo de ejecución.
MultiLine Devuelve o establece un valor que indica si un control TextBox ace pta y
muestra múltiples líneas de texto. Es de sólo lectura en tiempo de
ejecución.
Name Devuelve el nombre utilizado en el código para identificar al control. Es de
sólo lectura en tiempo de eje cución.
OLEDragMode Devuelve o establece un valor que indica si las operaciones OLE de
Visual Basic 12

arrastrar y colocar las controla el componente o el programador.
OLEDropMode Devuelve o establece el modo en que un componente de destino realiza las
operaciones de colocación.
OLEDropMode Devuelve o establece el modo en que un componente de destino realiza las
(Controles ActiveX) operaciones de colocación.
Parent Devuelve el formulario, objeto o colección que contiene al control u otro
objeto o colección.
PasswordChar Devuelve o establece un valor que indica si en un control TextBox
aparecen los caracteres que escribe el usuario o un carácter marcador de
posición. Devuelve o establece el carácter utilizado como marcador de
posición.
ScrollBars Devuelve o establece un valor que indica si un objeto tiene barras de
desplazamiento horizontal o vertical. Es de sólo lectura en tiempo de
ejecución.
SelLength, SelStart SelLength: devuelve o establece el número de caracteres seleccionados.
y SelText SelStart: devuelve o establece el punto inicial del texto seleccionado,
indicando la posición del punto de inserción si no se ha seleccionado texto.
SelText: devuelve o establece una cadena con el texto seleccionado
actualmente o es una cadena de longitud cero ("") si no hay caracteres
seleccionados.
Estas propiedades no están disponibles en tiempo de diseño.
TabIndex Devuelve o establece el orden de tabulación de la mayoría de los objetos
dentro de su formulario primario.
TabStop Devuelve o establece un valor que indica si el usuario puede usar la tecla
TAB para llevar el enfoque a un objeto.
Tag Devuelve o establece una expresión que almacena cualquier dato adicional
que necesite el programa. Al contrario de lo que sucede con otras
propiedades, Visual Basic no utiliza el valor de Tag. Puede usar esta
propiedad para identificar objetos.
Text Devuelve o establece el texto contenido en el área de edición.
oculto.
utiliza para dotar a asl aplicaciones de Ayuda interactiva con el menú
A continuación se desarrollará una aplicación que consiste en un formulario en donde se
ingresarán, por medio de cajas de texto, el código, nombre y fecha de nacimiento de odontólogos
que trabaja en clínica Smile. Luego, al hacer clic sobre el botón de pulsación Validar, se verificará si
los datos solicitados han sido ingresado y que los mismos sean correctos. En el menú Archivo,
seleccione la opción Nuevo proyecto y pulse Aceptar para crear un nuevo archivo ejecutable de tipo
estándar.
Pulse el control TextBox y cree tres cajas de texto en el formulario.
Cree un botón de pulsación. Básese en la figura siguiente para determinar su emplazamiento.
Visual Basic 13

En el evento clic del botón de pulsación Validar, se realizarán cinco validaciones. Comencemos a
describirlas.
La primer validación será la verificación de que el código del odontólogo haya sido ingresado:
If txtCodigo.Text = "" Then
MsgBox "Ingrese el código del odontólogo.", vbCritical,_
"Atención"
txtCodigo.SetFocus
Exit Sub
End If
Esta sección de código, mediante una sentencia If ... Then, verifica si la caja de texto es igual a
una cadena vacía. Si lo es, muestra un mensaje de advertencia, coloca el cursor en dicha caja y
sale del procedimiento.
Luego se valida si en la misma caja de texto se ha ingresado un valor numérico.
If Not IsNumeric(txtCodigo.Text) Then
MsgBox "Ingrese el código del odontólogo correctamentamente",_
vbCritical, "Atención"
txtCodigo.SetFocus
Exit Sub
End If
La función IsNumeric devuelve un valor de tipo Boolean que indica si una expresión se puede
evaluar como un número. La función IsNumeric devuelve True si la expresión completa se
reconoce como un número; en otro caso, devuelve False. La función IsNumeric devuelve False si
expresión es una expresión de fecha.
Además se evalúa si los datos correspondiente al nombre y fecha de nacimiento del odontólogo han
sido ingresados de la misma forma que en la primera validación.
If txtNombre.Text = "" Then
MsgBox "Ingrese el nombre del odontólogo.", vbCritical,_
"Atención"
txtNombre.SetFocus
Exit Sub
End If
If txtFecha.Text = "" Then
MsgBo x "Ingrese la fecha de nacimiento del odontólogo.",_
vbCritical, "Atención"
txtFecha.SetFocus
Exit Sub
End If
También se validará si la fecha de nacimiento es del tipo Date:
If Not IsDate(txtFecha.Text) Then
MsgBox "Ingrese la fecha de nacimiento del " & _
"odontólogo correctamentamente.", vbCritical, "Atención"
txtFecha.SetFocus
Exit Sub
Visual Basic 14

End If
La función IsDate devuelve un valor de tipo Boolean que indica si una expresión se puede
convertir en una fecha. El argumento expresión requerido, es un tipo de datos Variant que
contiene una expresión de fecha o una expresión de cadena reconocible como una fecha o una
hora.
La función IsDate devuelve True si la expresión es una fecha o se puede reconocer como una fecha
válida; en caso contrario, devuelve False. En Microsoft Windows, el intervalo de fechas válidas va
desde el 1 de enero de 100 D. de C. hasta el 31 de diciembre de 9999 D. de C.; los intervalos
varían de un sistema operativo a otro.
Por último, si se han ingresado los datos correctamente en las cajas de texto, se mostrará un
mensaje informando tal situación.
MsgBox "LOS DATO S HAN SIDO INGRESADOS CORRECTAMENTE",_
vbInformation, "INFORMACIÓN"
Este tipo de validaciones es la que se utilizará en todos las aplicaciones en las cuales sea necesario
controlar los datos ingresados por el usuario.
Visual Basic 15

CommandButton (Botón de comando)
Utilice un control CommandButton para comenzar, interrumpir o terminar un proceso. Cuando está
activado, un CommandButton aparece presionado y a veces se denomina botón de
comando.
Para mostrar texto en un control CommandButton, establezca su propiedad Caption . Un usuario
siempre puede elegir un CommandButton si hace clic en él. Para permitir que el usuario lo elija
presionando la tecla ENTRAR, establezca la propiedad Default a True.
Eventos a los que responde el control CommandButton:
Click Ocurre cuando el usuario presiona y suelta un botón del mouse (ratón) en
un objeto. Para un control, este evento ocurre cuando el usuario: Presiona
ENTRAR cuando un formulario tiene un control CommandButton con su
propiedad Default establecida a True.
resultado de arrastrar un control sobre un objeto y soltar el botón del
(Drop).
enfoque en el código mediante el método SetFocus. Un formulario recibe
el enfoque sólo cuando todos los controles visibles están desactivados.
KeyDown y KeyUp Ocurren cuando el usuario presiona (KeyDown) o suelta (KeyUp) una tecla
mientas un objeto tiene el enfoque. (Para interpretar los caracteres ANSI,
utilice el evento KeyPress.)
MouseDown y Ocurren cuando el usuario presiona (MouseDown) o suelta (MouseUp) un
MouseUp botón del mouse.
realizarse.
Nota: Este evento sólo se produce cuando OLEDropMode está establecido
a 1 (Manual).
Visual Basic 16

pero antes de que se carguen los datos del formato especificado.
colocación que admite el componente de origen. También puede usarlo
para insertar datos en el objeto DataObject.
Métodos correspondientes al control CommandButton :
Drag Inicia, termina o cancela una operación de arrastre del control. No acepta
argumentos con nombre.
Move Mueve el control. No acepta argumentos con nombre.
emergente ¿Qué es esto? Que ofrece la Ayuda de Windows 95.
ZOrder Coloca al control al principio o al final del orden z dentro de su nivel gráfico. No
Propiedades correspondientes al control CommandButton:
ejecución.
Cancel Devuelve o establece un valor que indica si un botón de comando es el
botón Cancelar de un formulario. Este botón de comando puede ser un
control CommandButton o cualquier otro objeto contenido en un control
contenedor OLE que se comporte como un botón de comando.
Caption Determina el texto que se muestra en un control.
disponible en tiempo de diseño.
Visual Basic 17

Default Devuelve o establece un valor que determina qué control CommandButton
es el botón de comando predeterminado de un formulario.
DisabledPicture Devuelve o establece una referencia a una imagen que se va a mostrar en
un control cuando está inactivo. (Es decir, cuando su propiedad Enabled
se establece a False).
DownPicture Devuelve o establece una referencia a una imagen que se muestra en un
control cuando se hace clic en él y está presionado.
arrastre manual o automático en una operación de arrastrar y colocar.
Enabled Devuelve o establece un valor que determina si un formulario o un control
puede responder a eventos generados por el usuario.
Font Devuelve un ob jeto Font.
FontUnderline
FontName Devuelve o establece la fuente utilizada para mostrar texto en el control.
FontSize Devuelve o establece el tamaño de la fuente que se va a usar para el
texto mostrado en el control.
Index(Control Array) Devuelve o establece el número que identifica un control de forma
exclusiva en una matriz de controles. Sólo está disponible si el control
MaskColor Devuelve o establece un color de la imagen del botón que actuará de
"máscara" (es decir, será transparente).
aparece cuando se sitúa el mouse sobre un área determinada de un objeto
en tiempo de ejecución.
Name Devuelve el nombre utilizado en el código para identificar un formulario,
un control o un objeto de acceso a datos. Es de sólo lectura en tiempo de
ejecución.
OLEDropMode Devuelve o establece el modo en que un componente de destino realiza
las operaciones de colocación.
Parent Devuelve el formulario, objeto o colección que contiene al control.
Picture Devuelve el formulario, objeto o colección que contiene al control u otro
Visual Basic 18

RightToLeft El control CommandButton permite configurar el orden de lectura del título
y proporciona compatibilidad bidireccional de idioma para el título del
botón de comando. El orden predeterminado de lectura se hereda del
valor de la propiedad RightToLeft del formulario primario; no obstante, es
posible cambiar esta dirección mediante la propiedad RightToLeft del
propio control CommandButton..
Style Devuelve o establece un valor que indica el tipo de muestra y el
comportamiento del control. Es de sólo lectura en tiempo de ejecución.
UseMaskColor Devuelve o establece un valor que determina si el color asignado en la
propiedad MaskColor se usa como "máscara", es decir, se usa para crear
zonas transparentes.
Value Devuelve o establece un valor que indica si se ha elegido el botón. No está
oculto.
A continuación desarrollaremos una aplicación utilizando varias propiedades y eventos del control
CommandButton. La inte rfaz será similar a la siguiente:
El objetivo de esta aplicación es que al pasar el mouse sobre uno de los tres botones de
pulsación superiores, la fuente del botón Reestablecer cambiará dependiendo del botón de
pulsación por el que se pasó el mouse y dicho botón será deshabilitado. Al pulsar Reestablecer,
los botones superiores que se encontraban deshabilitados se habilitarán. A continuación se
muestra una tabla con los controles y el valor de sus propiedades en tiempo de diseño:
CommandButton1 Nombre cmdNegrita
Caption Negrita
Style 1 – Graphical
Picture Negrita.bmp
Visual Basic 19

CommandButton2 Nombre cmdCursiva
Caption Cursiva
Picture Cursiva.bmp
CommandButton3 Nombre cmdSubrayado
Caption Subrayado
Picture Subrayado.bmp
CommandButton4 Nombre cmdReestablecer
Caption Reestablecer
BackColor Amarillo
Para cada uno de los botones de pulsación superiores, en el evento MouseMove escribiremos:
Private Sub cmdNegrita_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
cmdReestablecer.FontBold = True
cmdNegrita.Enabled = False
End Sub
Private Sub cmdCursiva_MouseMove(Button As Integer, _
cmdReestablecer.FontItalic = True
cmdCursiva.Enabled = False
End Sub
Private Sub cmdSubrayado_MouseMove(Button As Integer, _
cmdReestablecer.FontUnderline = True
cmdSubrayado.Enabled = False
End Sub
El efecto que causa cada uno de estos procedimientos de suceso es modificar el título del botón de
pulsación Reestablecer a negrita, cursiva o subrayado y luego se deshabilitará el botón el cual se
pasó el mouse. El evento MouseMove ocurre cada vez que el usuario mueve el puntero del ratón a
nueva posición dentro del control.
El argumento Button indica qué botón se ha pulsado, y el argumento Shift si simultáneamente se
ha pulsado una tecla Shift, Ctrl o Alt. Para comprobar los argumentos Button o Shift , puede utilizar
las constantes que se listan en la biblioteca de objetos del examinador de objetos de Visual Basic.
Argumento Button:
Constante Valor Descripción
vbLeftButton 1 Se ha pulsado el botón
izquierdo
vbRightButton 2 Se ha pulsado el botón
derecho
vbMiddleBu tton 4 Se ha pulsado el botón
central
Argumento Shift:
vbShiftMask 1 Está presionada la tecla Mayús
(Shift)
Visual Basic 20

vbCtrlMask 2 Está presionada la tecla Ctrl
vbAltMask 4 Está presionada la tecla Alt
Para que los botones de pulsación vuelvan a su estado original, al hacer clic sobre
cmdReestablecer, escriba el siguiente código:
Private Sub cmdReestablecer_Click()
cmdNegrita.Enabled = True
cmdCursiva.Enabled = True
cmdSubrayado.Enabled = True
cmdReestablecer.FontBold = False
cmdReestablecer.FontItalic = False
cmdReestablecer.FontUnderline = False
End Sub
Ejecute la aplicación y observe los resultados.
Visual Basic 21

Picture Box (imagen)
Un control PictureBox puede mostrar un gráfico a partir de un mapa de bits, un icono o un
metarchivo, así como un metarchivo mejorado, un archivo JPEG o un archivo GIF. Recorta el
gráfico si el control no es lo bastante grande para mostrar la imagen completa.
También puede utilizar un control PictureBox para agrupar controles OptionButton y mostrar el
resultado de métodos gráficos y texto escrito con el método Print.
Para hacer que un control PictureBox ajuste automáticamente su tamaño para mostrar un gráfico
completo, establezca su propiedad AutoSize a True.
Eventos a los que responde el control PictureBox:
Change Indica que el contenido de un control ha cambiado. Ocurre cuando
un vínculo DDE actualiza los datos o cuando usted cambia la
configuración de la propiedad Picture mediante código
Clic Ocurre cuando el usuario presio na y suelta un botón del mouse
GotFocus Ocurre cuando un objeto recibe el enfoque, ya sea mediante una
acción del usuario, como tabular o hacer clic en el objeto, o
cambiando el enfoque en el código mediante el método SetFocus. Un
formulario recibe el enfoque sólo cuando todos los controles visibles
están desactivados.
KeyDown y KeyUp Ocurren cuando el usuario presiona (KeyDown) o suelta (KeyUp) una
tecla mientas un objeto tiene el enfoque. (Para interpretar los
caracteres ANSI, utilice el evento KeyPress.)
LinkClose Ocurre cuando termina una conversación DDE. Cualquier aplicación
de una conversación DDE puede terminar una conversación en
cualquier momento.
LinkError Ocurre cuando se produce un error durante una conversación DDE.
Este evento sólo se reconoce como el resultado de un error
relacionado con DDE que ocurre cuando no se está ejecutando código
de Visual Basic. El número de error se pasa como un argumento.
LinkNotify Ocurre cuando el origen ha cambiado los datos definidos por el
vínculo DDE si la propiedad LinkMode del control de destino está
establecida a 3 (Notify).
Visual Basic 22

a 1 (Manual).
OLESetData Se produce en un componente de origen cuando un componente
de destino realiza el método GetData sobre el objeto DataObject
del origen, pero antes de que se carguen los datos del formato
especificado.
Paint Ocurre cuando un objeto entero o una parte del mismo se expone
después de haberse movido o ampliado, o después de haberse
movido una ventana que lo estaba cubriendo.
Resize Ocurre cuando un objeto se muestra primero o cuando cambia el
estado de una ventana. (Por ejemplo, cuando se maximiza,
minimiza o restaura un formulario.)
Métodos correspondientes al control PictureBox:
Circle Dibuja un círculo, una elipse o un arco en un objeto.
Cls Borra los gráficos y el texto generados en tiempo de ejecución de los controles
Form o PictureBox
Drag Inicia, termina o cancela una operación de arrastre de cualquier control excepto
los controles Line, Menu, Shape, Timer o CommonDialog. No acepta
Visual Basic 23

Line Dibuja líneas y rectángulos en un objeto
LinkExecute Envía una cadena de comandos a la aplicación de origen de una conversación
DDE. No acepta argumento s con nombre.
LinkPoke Transfiere el contenido de un control Label, PictureBox o TextBox a la
aplicación de origen de una conversación DDE.
contenido de un control Label, PictureBox o TextBox.
LinkSend Transfiere el contenido de un control PictureBox a la aplicación de destino de
una conversación DDE.
Move Mueve objetos MDIForm o Fo rm, o controles. No acepta argumentos con
nombre.
OleDrag Hace que un componente inicie una operación OLE de arrastrar y colocar.
PaintPicture Dibuja el contenido de un archivo gráfico (.bmp, .wmf, .emf, .cur, .ico o .dib)
en un objeto Form, PictureBox o Printer. No acepta argumentos con nombre.
Point Devuelve, como un valor de tipo Integer Long, el color rojo-verde -azul (RGB)
del punto especificado de un objeto Form o un control PictureBox. No acepta
PSet Establece un punto de un objeto a un color especificado.
Scale Define el sistema de coordenadas para un control Form, PictureBox o Printer.
ScaleX, ScaleY Convierten el valor del ancho o el alto de un control Form, PictureBox o Printer
de una unidad de medida de la propiedad ScaleMode a otra. No aceptan
TextHeight Devuelve el alto de una cadena de texto tal y como se imprimiría con la fuente
actual de un objeto Form, PictureBox o Printer. No acepta argumentos co n
nombre.
TextWidth Devuelve el ancho de una cadena de texto, tal como se imprimiría con la fuente
actual de un objeto Form, PictureBox o Printer. No acepta argumentos con
nombre.
ZOrder Coloca al control al principio o al final del orden z dentro de su nivel gráfico. No
Visual Basic 24

Propiedades correspondientes al control PictureBox
Align Devuelve o establece un valor que determina si un objeto se presenta en
cualquier tamaño y posición dentro de un formulario o si se presenta en
la parte superior, inferior, izquierda o derecha del mismo y si su tamaño
se ajusta automáticamente al ancho del formulario.
ejecución.
AutoRedraw Devuelve o establece el resultado de un método gráfico como gráfico
persistente.
AutoSize Devuelve o establece un valor que determina si el tamaño de un control
cambia automáticamente para presentar todo su contenido
BorderStyle Devuelve o establece el estilo del borde de un objeto.
ClipControls Devuelve o establece un valor que determina si los métodos gráficos en
eventos Paint vuelven a dibujar el objeto entero o sólo las áreas recién
expuestas. También determina si el entorno operativo Microsoft Windows
crea un área de recorte que excluya los controles no gráficos contenidos
en el objeto. Es de sólo lectura en tiempo de ejecución.
CurrntX, CurrentY Devuelven o establecen las coordenadas horizontal (CurrentX) o vertical
(CurrentY) para el siguiente método gráfico o de impresión. No están
disponibles en tiempo de diseño.
DataChanged Devuelve o establece un valor que indica que algún proceso distinto de la
recuperación de datos del registro actual ha cambiado los datos del
control enlazado. No está disponible en tiempo de diseño.
DataField Devuelve o establece el nombre de un campo al que será enlazado un
receptor de datos.
objeto vinculado. Lectura y escritura en tiempo de diseño y en tiempo de
ejecución.
DataMember Devuelve o establece un miembro de datos especificado entre los varios
que ofrece el proveedor de datos.
DataSource Devuelve o establece el origen de datos mediante el cual un receptor de
datos enlaza con una base de datos.
arrastre manual o automático en una operación de arrastrar y colocar.
DrawMode Devuelve o establece un valor que determina la apariencia del resultado
de un método gráfico o la apariencia de un control Shape o Line.
DrawStyle Devuelve o establece un valor que determina el estilo de línea del
Visual Basic 25

resultado de métodos gráficos.
DrawWidth Devuelve o establece el ancho de línea para el resultado de los métodos
gráficos.
Enabled Devuelve o establece un valor que determina si un formulario o un control
puede responder a eventos generados por el usuario.
FillColor Devuelve o establece el color usado para llenar formas; FillColor también
se usa para llenar círculos y cuadros creados con los métodos gráficos
Circle y Line.
FillStyle Devuelve o establece el patrón usado para llenar controles Shape, así
como los círculos y los cuadros creados con los métodos gráficos Circle y
Line.
FontUnderline
FontName Devuelve o establece la fuent e utilizada para mostrar texto en el control.
FontTransparent Devuelve o establece un valor que determina si el texto y los gráficos de
fondo de un objeto Form o Printer, o de un control PictureBox, se
muestran en el espacio situado entre los caracteres.
hDC Devuelve un controlador proporcionado por el entorno operativo Microsoft
Windows para el contexto de dispositivo de un objeto.
Image Devuelve un controlador de un gráfico persistente; el controlador lo
proporciona el entorno operativo Microsoft Windows.
exclusiva en una matriz de controles. Sólo está disponible si el control
Top: devuelve o es tablece la distancia entre el borde interno superior de
LinkMode Devuelve o establece el tipo de vínculo usado en una conversación DDE y
activa la conexión de la forma siguiente:
Control: permite que un control de destino de un formulario de Visual
Basic inicie una conversación, como se especifica en las propiedades
LinkTopic y LinkItem.
LinkTimeOut Devuelve o establece la cantidad de tiempo que un control espera una
LinkTopic Para un control de destino, devuelve o establece la aplicación de origen y
Visual Basic 26

el tema correspondiente (el agrupamiento de datos fundamental utilizado
en esa aplicación). Utilice LinkTopic con la propiedad LinkItem para
especificar el vínculo de datos completo.
Para un formulario de origen, devuelve o establece el tema al que el
formulario de origen responde en una conversación DDE.
aparece cuando se sitúa el mouse sobre un área determinada de un
objeto en tiempo de ejecución.
un control o un objeto de acceso a datos. Es de sólo lectura en tiempo de
ejecución.
Negotiate Establece un valor que determina si un control que puede alinearse se
muestra cuando un objeto activo del formulario muestra una o más
barras de herramientas. No está disponible en tiempo de ejecución.
Picture Devuelve el formulario, objeto o colección que contiene al control u otro
RightToLeft El control CommandButton permite configurar el orden de lectura del
título y proporciona compatibilidad bidireccional de idioma para el título
del botón de comando. El orden predeterminado de lectura se hereda del
valor de la propiedad RightToLeft del formulario primario; no obstante, es
posible cambiar esta dirección mediante la propiedad RightToLeft del
propio control CommandButton..
ScaleHeight, Devuelven o establecen el número de unidades de medida horizontal
ScelaWidth (ScaleWidth) y vertical (ScaleHeight) del interior de un objeto al usar
métodos gráficos o al colocar controles. Para los objetos MDIForm, no
está disponible en tiempo de diseño y es de sólo lectura en tiempo de
ejecución.
ScaleLeft, ScaleTop Devuelven o establecen las coordenadas horizontal (ScaleLeft) y vertical
(ScaleTop) de los bordes izquierdo y superior de un objeto al usar
métodos gráficos o al situar controles.
ScaleMode Devuelve o establece un valor que indica la unidad de medida de las
coordenadas de un objeto al usar métodos gráficos o al situar controles.
Tag Devuelve o establece una expresión que almacena cualquier dato
otras propiedades, Visual Basic no utiliza el valor de Tag. Puede usar esta
propiedad para identificar objetos.
Visual Basic 27

oculto.
utiliza para dotar a las aplicaciones de Ayuda in teractiva con el menú
emergente ¿Qué es esto? De la Ayuda de Windows 95.
Ahora creemos otra aplicación un tanto más compleja: Consta de un formulario con dos cajas
de texto, un botón de pulsación y siete cajas de imágenes. El diseño del formulario es el
siguiente:
A continuación se muestran los controles y sus propiedades incluidos en el formulario:
Text1 Name txtTexto
Text2 Name txtTamano
CommandButton1 Caption Mostrar
Name cmdMostrar
PictureBox1 Name picRojo
BackColor &H000000FF&
PictureBox2 Name picNaranja
BackColor &H000080FF&
PictureBox3 Name picAmarillo
BackColor &H0000FFFF&
PictureBox4 Name picVerde
BackColor &H0000FF00&
PictureBox5 Name picAzul
BackColor &H00FF0000&
PictureBox6 Name picElegido
BackCo lor &H00000000&
PictureBox7 Name picSalida
El objeto de esta aplicación es escribir en la caja de texto txtTexto, elegir el estilo de la fuente y
al hacer clic en Imprimir, lo ingresado en la caja de texto será copiado al control pictureBox
picSalida en el formato elegido. Además, al seleccionar un color de los cinco disponibles se
deberá cambiar el color al control picElegido por el seleccionado. Esto requiere que en el evento
clic de cada uno de los controles pictureBox que muestran los colores disponibles se transfiera el
color al picElegido:
Private Sub picRojo_Click()
Visual Basic 28

PicElegido.BackColor = picRojo.BackColor
End Sub
El código correspondiente al evento clic del botón de pulsación es el siguiente:
Private Sub cmdMostrar_Click()
picSalida.FontSize = Val(txtTamaño.Text)
picSalida.ForeColor = picElegido.BackColor
picSalida.Print txtTexto.Text
End Sub
Por ejemplo si escribe Visual Basic en la caja de texto, selecciona un color y asigna un tamaño de
texto, al pulsar mostrar la ventana se mostrará como en la figura siguiente:
Visual Basic 29

Frame (Marco)
Un marco, también denominado caja de grupo, permite identificar fácilmente un grupo de
controles. Un marco tiene propiedades propias (por ejemplo, título, color, etc.), característica
que aprovechamos cuando queremos realzar el aspecto de un formulario.
Para crear un marco, proceda como se indica a continuación:
1. Diríjase a la caja de herramientas y haga un doble clic sobre la herramienta marco, o bien
seleccione esta herramienta utilizando la tecla Tab y pulse Entrar.
2. Ajuste el tamaño del marco y muévalo a la posición deseada. Puede hacerlo con el ratón o
modificando las propiedades correspondientes.
3. Si lo desea, ponga un título al marco. Seleccione su propiedad Caption y escriba el título
que desee.
Una vez creado el marco, puede añadir los controles que van a estar agrupados en el mismo. Para
añadir un control, diríjase a la caja de herramientas, haga un clic sobre él, desplace cursor
del ratón (+) al interior del marco y con el botón izquierdo del ratón pulsado, arrastre hasta
dibujarlo.
Para garantizar que los controles pertenezcan al marco, usted no puede dibujar un control fuera
del marco y después arrastrarlo dentro de él. Si hace esto, el control estaría encima del marco,
no dentro de él.
Para seleccionar va rios controles pertenecientes a un marco, mantenga pulsada la tecla Mayús o
Ctrl y haga clic en cada uno de los controles, o bien arrastre el ratón con el botón izquierdo pulsado
hasta rodear los controles deseados (para selecciones múltiples combine con las teclas
Mayús o Ctrl).
Agrupando botones
Un botón de opción siempre trabaja como parte de un grupo; esto es, cuando se selecciona uno,
automáticamente quedan los demás sin seleccionar.
Todos los botones de opción que coloquemos directamente en un formulario forman un único
grupo. Para crear diferentes grupos de botones de opción, hay que encerrar cada uno de ellos en
un marco.
Eventos a los que responde el control Frame:
(ratón) en un objeto.
componente de destino e informa al componente de origen de que se
ha realizado o cancelado una operación de arrastre.
Visual Basic 30

indicación visual, como cambiar el cursor del mouse para ndicar lo
especificado.
Métodos correspondientes a l control Frame:
ZOrder Coloca al control al principio o al final del orden z dentro de su nivel gráfico.
Propiedades correspondientes al control Frame:
MDIForm o Form en tiempo de diseño. Es de sólo lectura en tiempo
de ejecución.
Visual Basic 31

ClipControls Devuelve o establece un valor que determina si los métodos gráficos
en eventos Paint vuelven a dibujar el objeto entero o sólo las áreas
recién expuestas. También determina si el entorno operativo
Microsoft Windows crea un área de recorte que excluya los controles
no gráficos contenidos en el objeto. Es de sólo lectura en tiempo de
ejecución.
colocar.
FontUnderline
FontName Devuelve o establece la fuente utilizada para mostrar texto en el
contro l.
HelpContextID Devuelve o establece un número de contexto asociado a un objeto.
Se utiliza para proporcionar Ayuda interactiva para la aplicación.
HWnd Devuelve el controlador de un formulario o un control.
Nota: Esta propiedad no es compatible con el control contenedor
OLE.
exclusiva en una matriz de controles. Sólo está disponible si el
control forma parte de una matriz de controles.
Left y Top Left: devuelve o establece la distancia entre el borde interno
izquierdo de un objeto y el borde izquierdo de su contenedor.
Visual Basic 32

RightToLeft Devuelve un valor booleano que indica el sentido de presentación del
texto y controla la apariencia visual en un sistema bidireccional.
Visible Devuelve o establece un valor que indica si un objeto es visible o
está oculto.
WhatsThisHelpID Devuelve o establece un número de contexto asociado a un objeto.
Se utiliza para dotar a las aplicaciones de Ayuda interactiva con el
menú emergente ¿Qué es esto? de la Ayuda de Windows 95.
Creemos una nueva aplicación para aplicar estos conocimientos. La aplicación estará compuesta de
un formulario el cual contendrá un frame, dos cajas de texto dentro de él y cuatro botones de
pulsación. El diseño del formulario es el siguiente.
Por medio de este ejemplo observaremos cómo funciona un marco como agrupador de controles.
Los botones de pulsación habilitarán, deshabilitarán, harán visible e invisible al marco Frame1. Es
código correspondiente a cada botón de pulsación se muestra a continuación.
Private Sub cmdDeshabilitar_Click()
Frame1.Enabled = False
End Sub
Private Sub cmdHabilitar_Click()
Frame1.Enabled = True
End Sub
Private Sub cmdInvisible_Click()
Frame1.Visible = False
End Sub
Private Sub cmdVisible_Click()
Frame1.Visible = True
End Sub
Con esto podrá observar que al deshabilitar el marco, las cajas de texto incluidas en él también son
deshabilitadas, es decir que los controles agrupados en un marco dependen de dicho marco y
cuando sus propiedades son alteradas tienen efecto sobre los controles contenidos.
Visual Basic 33

Casillas de verificación (CheckBox)
Una casilla de verificación es un control que indica si una opción particular está activada o
desactivada. Cada casilla de verificación es independiente de las demás, ya que cada una de ellas
tiene su propio nombre (propiedad Name). El número de opciones representadas de esta
forma puede ser cualquiera y el usuario puede seleccionar todas las que desee cada vez.
Si en tiempo de ejecución se hace clic en una casilla de verificación, la opción queda seleccionada
( ). Una opción ya seleccionada puede pasar a no estarlo haciendo clic de nuevo sobre la casilla
de verificación correspondiente ( ). Todo esto suponiendo que el convenio adoptado es: , opción
seleccionada, y , opción no seleccionada.
Casilla de verificación
Para saber si una determinada opción está seleccionada, hay que verificar el valor de su propiedad
Value. Este valor pue de ser: 0, la casilla aparece vacía; l, la casilla aparece con una , y 2, 1a
casilla aparece en gris .
También se puede inhabilitar una casilla de verificación (aparece en gris) poniendo su propiedad
Enabled a valor False.
Por ejemplo, diseñe una caja de diálogo como la de la figura anterior, de tal forma que cuando el
usuario seleccione la opción “ Negrita”, todo el texto que haya escrito en la caja de texto txtTexto
aparezca en negrita y cuando seleccione “Cursiva” se le aplique dicho formato. Inserte un & antes
del carácter que desea que aparezca subrayado en el título de la casilla de verificación, por
ejemplo antes de la N, y podrá activar o desactivar la opción pulsando Alt + N.
Asigne a la caja de texto el nombre txtTexto, a la primer casilla de verificación chkNegrita y a la
segunda chkCursiva.
Cuando el usuario seleccione la opción “Negrita”, haciendo clic, pulsando Alt más el carácter que
aparece subrayado o eligiéndola con la tecla Tab y pulsando espacio, la casilla de verificación
reconoce el evento Click. Por lo tanto, será el procedimiento conducido por este evento el que
convierta a negrita y a cursiva el contenido de la caja de texto.
Private Sub chkNegrita_Click()
If chkNegrita.Value = 1 Then
txtTexto.FontBold = True
Else
txtTexto.FontBold = False
End If
End Sub
Private Sub chkCursiva_Click()
If chkCursiva.Value = 1 Then
txtTexto.FontItalic = True
Else
txtTexto.FontItalic = False
End If
End Sub
Cuando el usuario haga clic sobre la opción “Negrita” y la propiedad Value valga 1, el texto de la
caja txtTexto se convierte a negrita utilizando la función txtTexto.FontBold = True.
Un razonamiento análogo corresponde para la opción “Cursiva”.
Visual Basic 34

Eventos a los que responde el control CheckBox:
valor de un control. Para un CheckBox, este evento ocurre cuando el
usuario: Presiona la BARRA ESP ACIADORA cuando un control
CheckBox tiene el enfoque.
especificado.
Visual Basic 35

Métodos correspondientes al control CheckBox:
Refresh Fuerza el volve r a dibujar un formulario o un control completo.
Propiedades correspondientes al control CheckBox:
Alignment Devuelve o establece un valor que determina la alineación de un
control CheckBox u OptionButton, del texto de un control. Es de sólo
lectura en tiempo de ejecución para los controles CheckBox,
OptionButton y TextBox.
de ejecución.
DataChanded Devuelve o establece un valor que indica que algún proceso distinto
de la recuperación de datos del registro actual ha cambiado los datos
del control enlazado. No está disponible en tiempo de diseño.
Visual Basic 36

objeto vinculado. Lectura y escritura en tiempo de diseño y en
DisabledPicture Devuelve o establece una referencia a una imagen que se va a
mostrar en un control cuando está inactivo. (Es decir, cuando su
propiedad Enabled se establece a False).
DownPicture Devuelve o establece una referencia a una imagen que se muestra
en un control cuando se hace clic en él y está presionado.
colocar.
FontUnderline
control.
OLE.
Visual Basic 37

Picture Devuelve el formulario, objeto o colección que contiene al control u
comportamiento del control. Es de sólo lectura en tiempo de
ejecución.
TabStop Devuelve o establece un valor que indica si el usuario puede usar la
tecla TAB para llevar el enfoque a un objeto.
UseMaskColor Devuelve o establece un valor que determina si el color asignado en
la propiedad MaskColor se usa como "máscara", es decir, se usa para
crear zonas transparentes.
Value Devuelve o establece el estado del control.
está oculto.
Visual Basic 38

Botón de opción (OptionButton)
Un botón de opción es un control que indica si una determinada opción está activada o
desactivada. Ca da botón de opción es independiente de los demás, ya que cada uno de ellos
tiene su propio nombre (propiedad Name). El número de opciones representadas de esta forma
puede ser cualquiera, y de ellas el usuario sólo puede seleccionar una cada vez.
Si durante la ejecución se hace clic sobre un botón de opción, la opción queda seleccionada ( ). La
selección de una opción de este tipo provoca que si hay otra opción del mismo grupo
actualmente seleccionada pase a no estarlo.
Para saber si una determinada opción está seleccionada, hay que verificar el valor de su propiedad
Value. Este valor puede ser falso (False), el botón aparece vacío, o verdadero (True), el botón
aparece con un . Cuando se hace clic sobre un botón de opción , se da el evento Click. Cuando
una de estas opciones está deshabilitada, la etiqueta asociada aparece en gris. Esto se consigue
poniendo su propiedad Enabled al valor False.
Por ejemplo, retomando la aplicación anterior, agregue al formulario dos botones de opción de
forma que el diseño se asemeje a la siguiente figura.
Cuando seleccione uno de los botones de opción
“Mayúscula” o “Minúscula”, el contenido de la caja de texto
txtTexto se convertirá según la selección realizada. Asigne
a la propiedad Name el valor de optMayuscula para el
primer botón de opción y optMinuscula para el segundo.
El código correspondiente al evento Clic de cada botón de
opción es el siguiente:
Private Sub optMayuscula_Click()
If optMayuscula.Value = True Then
txtTexto.Text = UCase(txtTexto.Text)
End If
End Sub
Private Sub optMinuscula_Click()
If optMinuscula.Value = True Then
txtTexto.Text = LCase(txtTexto.Text)
End If
End Sub
Eventos a los que responde el control OptionButton:
valor de un control. Para un OptionButton, este evento ocurre
cuando el usuario: Presiona la BARRA ESPACIADORA cuando un
control CheckBox tiene el enfoque.
Visual Basic 39

especificado.
Visual Basic 40

Métodos correspondientes al control OptionButton:
Zorder Coloca al control al principio o al final del orden z dentro de su nivel gráfico.
Propiedades correspondientes al control OptionButton :
Alignment Devuelve o establece un valor que determina la alineación de un
control CheckBox u OptionButton, del texto de un control. Es de sólo
lectura en tiempo de ejecución para los controles CheckBox,
OptionButton y TextBox.
de ejecución.
DisabledPicture Devuelve o establece una referencia a una imagen que se va a
mostrar en un control cuando está inactivo. (Es decir, cuando su
propiedad Enabled se establece a False).
DownPicture Devuelve o establece una referencia a una imagen que se muestra
en un control cuando se hace clic en él y está presionado.
arrastre manual o auto mático en una operación de arrastrar y
colocar.
Visual Basic 41

FontUnderline
control.
OLE.
Picture Devuelve el formulario, objeto o colección que contiene al control u
ejecución.
Visual Basic 42

UseMaskColor Devuelve o establece un valor que determina si el color asignado en
la propiedad MaskColor se usa como "máscara", es decir, se usa para
crear zonas transparentes.
Value Devuelve o establece el estado del control.
está oculto.
Visual Basic 43

Listas (ListBox)
Una lista es un control que pone a disposición del usuario un conjunto de elementos, de los cuales
elegirá uno. Si la cantidad de elementos rebasa el número de los que pueden ser
visualizados simultáneamente en el espacio disponible en la lista, aparecerá automáticamente una
barra de desplazamiento vertical para que el usuario pueda desplazar los elementos de la
lista hacia arriba o hacia abajo. Generalmente, una lista es apropiada cuando se quiere limitar la
entrada a una serie de elementos determinados.
Por omisión, los elementos de una lista son visualizados verticalmente en una a columna, aunque
usted puede, si quiere, establecer múltiples columnas (sólo a en listas simples no en listas
desplegables, propiedad Columns). Si el ancho total las columnas supera el ancho de la lista,
aparecerá automáticamente una barra de desplazamiento horizontal para que el usuario pueda
desplazar las columnas hacia la izquierda o hacia la derecha.
Una lista desplegable es un control que combina las características de una caja de texto y de una
lista. Esto permite al usuario elegir un elemento de varios, escribiéndolo directamente en la caja de
texto o seleccionándolo de la lista. Generalmente, un control combinado es apropiado cuando hay
una lista de elemento sugeridos; además, el usuario puede introducir otros que no estén en la
lista.
Utilización de listas
Nuestra aplicación va a constar de una ventana principal que permita introducir, visualizar o borrar
los datos de ingresados en una ca ja de texto y transferidos a una lista con el fin de
conformar una lista de los pacientes que son atendidos en la clínica odontológica Smile.
Para diseñar esta aplicación, comience un nuevo proyecto. A continuación añada los controles que
se especifican en la tabla siguiente:
Control Propiedad Valor
Label1 Caption Nombre para
agregar
Text1 Name txtNombre
ListBox1 Name lstPacientes
CommandButton1 Name cmdAgregar
Caption Agregar
Enabled False
CommandButton2 Name cmdQuitar
Caption Quitar
Enabled False
CommandButton3 Name cmdBorrar
Caption Borrar
Enabled False
CommandButton4 Name cmdCerrar
Caption Cerrar
Visual Basic 44

Label2 Caption Nº de pacientes
Label3 Name lblNroPacientes
Caption (nada)
Al iniciar la ejecución de la aplicación notará que el único botón habitado es el botón Cerrar.
Cuando el usuario ingrese el nombre del cliente en la caja de texto txtNombre, el botón Agregar
será habilitado. Esto quiere decir que hasta que se escriba una letra dentro de la caja texto no
podrá usar dicho botón. Entonces escribamos el código correspondiente al evento KeyPress de la
caja de texto txtNombre:
Private Sub txtNombre_KeyPress(KeyAscii As Integer)
cmdAgregar.Enabled = True
End Sub
Agregar un elemento a la lista
A continuación vamos a escribir el código correspondiente al botón Agregar. Cuando el usuario
haga clic en este botón, deseará que el nombre del cliente ingresado en la caja de texto sea
transferido a la lista de clientes.
Private Sub cmdAgregar_Click()
lstPacientes.AddItem txtNombre.Text
txtNombre.Text = ""
txtNombre.SetFocus
lblNroPacientes.Caption = lstPacientes.ListCount
cmdBorrar.Enabled = True cmdAgregar.Enabled
= False
End Sub
El método AddItem permite añadir un elemento a una lista o lista desplegable. Su sintaxis es la
siguiente:
Nombre_lista.AddItem elemento[, índice]
Luego de agregar un elemento a la lista se asigna “” a la propiedad Text de la caja de texto y se le
coloca el cursor, esto se realiza para facilitar el ingreso del siguiente paciente. La sentencia
lblNroPacientes.Caption = lstPacientes.ListCount, asigna a la etiqueta lblNroPacientes la cantidad
de elementos con los que actualmente cuenta la lista.
Eliminar un elemento de una lista
Para eliminar un elemento de una lista o de una lista desplegable, se utiliza el método
RemoveItem. La sintaxis es la siguiente:
Nombre_lista.RemoveItem índice
donde nombre_lista es el nombre del control (lista o lista desplegable) y argumento índice indica la
posición del elemento que se desea eliminar. Un valor 0 indica la primera posición.
Cuando el usuario pulse el botón Quitar, el elemento seleccionado tiene que borrarse de la lista
lstPacientes.
Para borrar el elemento seleccionado de la lista tenemos que agregar el código siguiente al
evento Clic del botón Quitar, recuerde que deberá calcular nuevamente la cantidad de elementos
de la lista para asignarlo a la etiqueta correspondiente:
Private Sub cmdQuitar_Click()
Dim indice As Integer
indice = lstPacientes.ListIndex
If indice >= 0 Then
lstPacientes.RemoveItem indice
lblNroPacientes.Caption = lstPacientes.ListCount
Else
cmdQuitar.Enabled = False
End If
Visual Basic 45

End Sub
Borrar los elementos de una lista
Para borrar los elementos de una lista o de una lista desplegable, se utiliza el método Clear. La
sintaxis es la siguiente:
Nombre_lista.Clear
donde nombre-lista es el nombre del control (lista o lista desplegable).
Escribamos entonces el código correspondiente al evento Clic del botón Borrar:
Private Sub cmdBorrar_Click()
lstPacientes.Clear
cmdQuitar.Enabled = False
lblNroPacientes.Caption = 0
End Sub
Aquí debemos asignar a la etiqueta lblNroPacientes el número 0 puesto que la lista ya no
contiene elementos.
Al ejecutar la aplicación se mostrará como sigue:
Eventos, métodos y propiedades del control ListBox
(ratón) en un objeto.
Visual Basic 46

ItemCheck Se produce cuando la propiedad Style de un control ListBox se
establece a 1 (casillas de verificación) y se activa o se desactiva la
casilla de verificación de un elemento del control ListBox.
tecla mientas un objeto tiene el enfoque.
especificado.
Scroll Ocurre cuando el cuadro de desplazamiento de un control ScrollBar,
o un objeto que contenga una barra de desplazamiento, cambia de
posición o se desplaza horizontal o verticalmente.
AddItem Agrega un elemento a un control ListBox.
Clear Borra el contenido del control ListBox.
Visual Basic 47

RemoveItem Quita un elemento de un control ListBox.
de ejecución.
Columns Devuelve o establece un valor que determina si un control ListBox se
desplaza horizontal o verticalmente y cómo se presentan los
elementos en las columnas. Si se desplaza horizontalmente, la
propiedad Columns determina cuántas columnas se presentan.
DataSource Devuelve o establece el origen de datos mediante el cual un receptor
de datos enlaza con una base de datos.
colocar.
FontUnderline
Visual Basic 48

control.
OLE.
ItemData Devuelve o establece un número específico para cada elemento de
un control ComboBox o ListBox.
de u n objeto y el borde superior de su contenedor.
List Devuelve o establece los elementos contenidos en la parte de lista de
un control. La lista es una matriz de cadenas cuyos elementos se
corresponden con los de la lista.
ListCount Devuelve el número de elementos de la parte de lista de un control.
ListIndex Devuelve o establece el índice del elemento seleccionado
actualmente en el control. No está disponible en tiempo de diseño.
MultiSelect Devuelve o establece un valor que indica si el usuario puede realizar
selecciones múltiples en un control FileListBox o ListBox, y la forma
de llevarlas a cabo. Es de sólo lectura en tiempo de ejecución.
NewIndex Devuelve el índice del último elemento agregado a un control
ComboBox o ListBox. Es de sólo lectura en tiempo de ejecución.
SelCount Devuelve el número de elementos seleccionados en un control
Visual Basic 49

ListBox.
Selected Devuelve o establece el estado de selección de un elemento de un
control FileListBox o ListBox. Esta propiedad es una matriz de valores
booleanos con el mismo número de elementos que la propiedad List.
No está disponible en tiempo de diseño.
Sorted Devuelve un valor que indica si los elementos de un control se
colocan automáticamente en orden alfabético.
ejecución.
Text devuelve el elemento seleccionado en el cuadro de lista; el valor
devuelto es siempre equivalente al que devuelve la expresión
List(ListIndex).
TopIndex Devuelve o establece un valor que especifica el elemento de un
control ComboBox, DirListBox, DriveListBox, FileListBox o ListBox
que se muestra en el extremo superior del control. No está
está oculto.
Visual Basic 50

Listas desplegables (ComboBox)
La diferencia entre una lista fija y una lista desplegable (también denominada cuadro combinado)
es que la lista desplegable es una combinación de una lista y una caja de texto. Hay
tres estilos diferentes de listas desplegables, los cuales se muestran en la figura siguiente como
Combol , Combo2 y Combo3.
El control Combol representa una lista
desplegable estándar y se obtiene poniendo la
propiedad Style de dicho control a valor 0
(Dropdown Combo). Cuando el usuario haga
clic en la flecha, se
visualizará la lista de elementos y podrá optar por elegir un elemento de la lista o por escribir
directamente el elemento deseado en la caja de texto.
El control Combo2 representa una lista desplegable en la que la lista de elementos siempre está
visualizada y se obtiene poniendo la propiedad Style de dicho control a valor 1 (Simple Combo). El
usuario podrá optar por elegir un elemento de la lista o por escribir directamente el elemento
deseado en la caja de texto.
El control Combo3 representa una lista desplegable en la que, a diferencia de las anteriores, el
usuario sólo tiene la posibilidad de elegir un elemento de la lista; esto es, no se le permite escribir
en la caja de texto. Se obtiene poniendo la propiedad Style de dicho control a valor 2 (Dropdown
List). En otras palabras, Combo3 más que un combinado es una lista enrollable.
Para ver cómo trabaja este control crearemos una nueva aplicación, en la cual el formulario tendrá
un diseño similar al siguiente. El objetivo de esta aplicación es el de agregar un elemento al combo
desde el texto introducido en la caja de texto, mostrar cuál es el número del ítem seleccionad o,
mostrar la cantidad de elementos del combo y blanquearlo.
La codificación correspondiente al botón de pulsación Agregar Elemento es la siguiente:
Private Sub cmdAgregar_Click()
Combo1.AddItem Text1.Text
End Sub
El método AddItem agrega el texto introducido en la caja de texto como un elemento del combo
Combo1.
Para mostrar el número de elemento seleccionado en el combo se utiliza la propiedad ListIndex.
Private Sub cmdNroElemento_Click()
MsgBox Combo1.ListIndex
End Sub
Para mostrar el número de elementos de un combo se utiliza la propiedad ListCount.
Private Sub cmdCantidad_Click()
MsgBox Combo1.ListCount
End Sub
Y por último, para limpiar el combo, o sea para eliminar todos sus elementos se utiliza el método
Clear .
Visual Basic 51

Private Sub cmdLimpiar_Click()
Combo1.Clear
End Sub
Eventos, métodos y propiedades del control ComboBox
Change Indica que el contenido de un control ha cambiado. Cómo y cuándo ha
ocurrido este evento varía según el control, en este caso, cambia el texto
de la pa rte de cuadro de texto del control. Ocurre sólo si la propiedad
Style está establecida a 0 (Dropdown Combo) o 1 (Simple Combo) y el
usuario cambia el texto o usted cambia la configuración de la propiedad
Text mediante código.
Clic Ocurre cuando el usuario presiona y suelta un botón del mouse (ratón) en
un objeto.
DblClick Ocurre cuando hace doble clic en un elemento de un control ComboBox
cuya propiedad Style es 1 (Simple)
resu ltado de arrastrar un control sobre un objeto y soltar el botón del
(Drop).
enfoque en el código mediante el método SetFocus. Un formulario recibe
el enfoque sólo cuando todos los controles visibles están desactivados.
tecla mientas un objeto tiene el enfoque.
realizarse.
Nota: Este evento sólo se produce cuando OLEDropMode está establecido
a 1 (Manual).
Visual Basic 52

pero antes de que se carguen los datos del formato e specificado.
colocación que admite el componente de origen. También puede usarlo
para insertar datos en el objeto DataObject.
Scroll Ocurre cuando el cuadro de desplazamiento de un control ScrollBar, o un
objeto que contenga una barra de desplazamiento, cambia de posición o
se desplaza horizontal o verticalmente.
AddItem Agrega un elemento a un control ListBox.
Clear Borra el contenido del control ListBox.
RemoveItem Quita un elemento de un control ListBox.
de ejecución.
Visual Basic 53

colocar.
FontUnderline
control.
OLE.
IntegralHeight Devuelve o establece un valor que indica si el control muestra
elementos parciales. Es de sólo lectura en tiempo de ejecución.
ItemData Devuelve o establece un número específico para cada elemento de
un control ComboBox o ListBox.
List Devuelve o establece los elementos contenidos en la parte de lista de
un control. La lista es una matriz de cadenas cuyos elementos se
corresponden con los de la lista.
ListCount Devuelve el número de elementos de la parte de lista de un control.
ListIndex Devuelve o establece el índice del elemento seleccionado
actualmente en el control. No está disponible en tiempo de diseño.
Locked Devuelve o establece un valor que indica si un control se puede
modificar.
Visual Basic 54

que apare ce cuando se sitúa el mouse sobre un área determinada de
NewIndex Devuelve el índice del último elemento agregado a un control
ComboBox o ListBox. Es de sólo lectura en tiempo de ejecución.
SelLenght, SelStart, SelLength: devuelve o establece el número de caracteres
SelText seleccionados.
SelStart: devuelve o establece el punto inicial del texto seleccionado,
indicando la posición del punto de inserción si no se ha seleccionado
texto.
SelText: devuelve o establece una cadena con el texto seleccionado
actualmente o es una cadena de longitud cero ("") si no hay
caracteres seleccionados.
Sorted Devuelve un valor que indica si los elementos de un control se
colocan automáticamente en orden alfabético.
ejecución.
Text devuelve el elemento seleccionado en el cuadro de lista; el valor
devuelto es siempre equivalente al que devuelve la expresión
List(ListIndex).
TopIndex Devuelve o establece un valor que especifica el elemento de un
control ComboBox, DirListBox, DriveListBox, FileListBox o ListBox
que se muestra en el extremo superior del control. No está
Visual Basic 55

está oculto.
Visual Basic 56

Timer (Cronómetro)
Un temporizador es un control de Visual Basic que responde a intervalos regulares de tiempo. Es
útil para realizar procesos en segundo plano. Esto quiere decir que en el procedimiento asociado
con el mismo especificaremos las acciones que deseemos que se ejecuten cada vez que transcurra
un intervalo de tiempo.
Cada temporizador tiene una propiedad Interval que especifica el intervalo de tiempo en
milisegundos que tiene que transcurrir para que su procedimiento asociado se ejecute
independientemente del usuario. El va lor de la propiedad Interval puede oscilar entre 0 y 65535
milisegundos (0 a 65,5 segundos). Un valor 0, valor predeterminado, desactiva el temporizador. No
obstante, tenga en cuenta que como el sistema genera 18 tics de reloj por segundo, la precisión no
puede ser mayor de 1000/18 milésimas de segundo.
Una utilidad típica de este control es verificar de alguna forma al sistema, para ver si es el
momento de ejecutar alguna tarea.
Si su aplicación u otra aplicación está realizando una tarea que mantiene ocup ados los recursos
del ordenador por un espacio largo de tiempo, tal como un bucle largo, cálculos intensivos, acceso
a los puertos, etc., puede ser que su aplicación no responda de acuerdo con 1os intervalos de
tiempo programados.
El siguiente ejemplo le enseñará, entre otras cosas, a utilizar un temporizador. Para ello
diseñaremos un formulario como el siguiente:
El formulario está compuesto por una etiqueta Label1, dos botones de pulsación y un control
Timer con Interval igual a 1000. La etiqueta simulará un reloj el cual será detenido al hacer clic
sobre el botón de pulsación Detener y seguirá corriendo al hacer clic en el botón de
pulsación Continuar. Para que la etiqueta simule el reloj habrá que asignarle a la propiedad
Caption de la etiqueta lblReloj cada vez que se produzca el evento Timer del control Timer1.
Private Sub Timer1_Timer()
lblReloj.Caption = Time
End Sub
Para detener el contador habrá que deshabilitar el control Timer1.
Private Sub cmdDetener_Click()
Timer1.Enabled = False
End Sub
Para que el contador siga funcionando habrá que habilitar el control Timer1.
Private Sub cmdContinuar_Click()
Timer1.Enabled = True
End Sub
Y para poner en cero al contador tendremos que asignarle a la propiedad caption de la etiqueta
Label1 el valor cero, en el evento Form_Load.
Private Sub Form_Load()
lblReloj.Caption = "00:00:00"
End Sub
Visual Basic 57

Probemos ahora con un ejemplo un tanto más complejo. Simularemos una marquesina
desplazándose sobre el formulario. Para ello necesitaremos una etiqueta llamada Label1 y un
control Timer. Desplazaremos la etiqueta utilizando su propiedad Left, la cual indica la distancia
entre el borde interno de la etiqueta y el borde izquierdo del formulario. Cuando la
etiqueta llegue al borde izquierdo del formulario, la misma volverá a aparecer en el borde
derecho del formulario. El código siguiente corresponde al evento Timer del control Timer1.
Label1.Left = Label1.Left - 50
If Label1.Left < -615 Then
Label1.Left = 4800
End If
End Sub
Evento Descripción
Timer Ocurre cuando ha transcurrido un intervalo preestablecido para un control
Timer. La frecuencia del intervalo se almacena en la propiedad Interval del
control, que especifica el tiempo en milisegundos.
Enabled Devuelve o establece un valor que determina si un formulario o un control puede
responder a eventos generados por el usuario.
Index(Matriz) Devuelve o establece el número que identifica un control de forma exclusiva en
una matriz de controles. Sólo está disponible si el control forma parte de una
matriz de controles.
Interval Devuelve o establece el número de milisegundos entre las llamadas al evento
Timer de un control Timer.
Left y Top Left: devuelve o establece la distancia entre el borde interno izquierdo de un
objeto y el borde izquierdo de su contenedor.
Top: devuelve o establece la distancia entre el borde interno superior de un
objeto y el borde superior de su contenedor.
Name Devuelve el nombre utilizado en el código para identificar un formulario, un
control o un objeto de acceso a datos. Es de sólo lectura en tiempo de ejecución.
Tag Devuelve o establece una expresión que almacena cualquier dato adicional que
necesite el programa. Al contrario de lo que sucede con otras propiedades, Visual
Basic no utiliza el valor de Tag. Puede usar esta propiedad para identificar
objetos.
Visual Basic 58

Image (Imagen)
Utilice el control Image para mostrar un gráfico. Un control Image puede mostrar un gráfico
desde un mapa de bits, un icono o un metarchivo, así como un metarchivo mejorado, un
archivo JPEG o archivos GIF.
El control Image utiliza menos recursos del sistema y actualiza con más rapidez que un control
PictureBox, pero sólo admite un subconjunto de las propiedades, los eventos y los métodos de
PictureBox. Use la propiedad Stretch para determinar si el gráfico se escala para ajustarse al
control o viceversa. Aunque puede colocar un control Image dentro de un contenedor, un control
Image no puede actuar como contenedor.
El truco para crear animación en un programa consiste mover una imagen en un procedimiento de
evento temporizador de tal forma que, a determinados intervalos, el temporizador provocará el
movimiento de uno o más objetos por la pantalla. Cuando trabaje con animación, deberá asignar a
la propiedad Interval del temporizador una velocidad bastante más rápida: 1/5 segundos (200
milisegundos), 1/10 segundos ( 100 milisegundos ) o incluso menos. La velocidad exacta que
deberá elegir dependerá de la rapidez con la que desee que actúe la animación.
Otro truco será emplear las propiedades Top y Left para detectar el margen superior y el margen
izquierdo del formulario. El empleo de estos valores en un procedimiento de evento le permitirá
detener la animación (desactivar el temporizador) cuando el objeto alcance el borde del formulario.
También podrá emplear la propiedad Top, la propiedad Left, o ambas, en una
estructura de decisión If...Then o Select Case para simular el rebote de un objeto cuando éste
alcance alguno de los bordes del formulario.
El siguiente ejercicio muestra cómo podrá animar un cuadro de dibujo en un programa empleando
el método Left y un objeto temporizador. En este ejercicio añadirá un sol al programa. El sol se
moverá a través del formulario.
1. Abra un nuevo proyecto.
2. Pulse el control Image contenido en el cuadro de herramienta s y dibuje pequeño
rectángulo en la parte superior del formulario. Introducirá un icono sol dentro de este
cuadro cuando asigne las propiedades del objeto. Dibuje varios controles Image para
agregar nubes al formulario.
3. Pulse el control Timer del cuadro de herramientas y dibuje un objeto temporizador en la
esquina inferior izquierda del formulario. El objeto temporizador (Timer1) reajusta su
tamaño por sí solo en el formulario.
Después de asignar los iconos a los controles Image, su formulario se parecerá al de figura
siguiente.
Agregue las siguientes líneas de código en el evento Timer del control Time1r:
Image1.Left = Image1.Left - 50
If Image1.Left < -615 Then
Image1.Left = 4800
End If
End Sub
Las nuevas sentencias ponen en funcionamiento el temporizador para desplazar al sol. Como ya
ha ajustado el intervalo del temporizador a 100 milisegundos, el temporizador está listo para
ponerse en marcha. Sólo tendrá que añadir el método Left.
Visual Basic 59

Tal como podrá comprobar cuando ejecute el programa, estas instrucciones harán que el sol
parezca que se desplaza suavemente.
Cierre la ventana Código y pulse el botón Guardar proyecto para almacenar los cambios realizados.
Ahora ejecute el programa.
Eventos a los que responde el control Image:
a 1 (Manual).
OLESetData Se produce en un componente de origen cuando un componente
de destino realiza el método GetData sobre el objeto DataObject
del origen, pero antes de que se carguen los datos del formato
especificado.
Visual Basic 60

Métodos correspondientes al control Image:
Drag Inicia, termina o cancela una operación de arrastre de cualquier control
excepto los controles Line, Menu, Shape, Timer o CommonDialog. No
Move Mueve objetos MDIForm o Form, o controles. No acepta argumentos con
nombre.
ZOrder Coloca un objeto MDIForm o Form, o un control al principio o al final del
orden z dentro de su nivel gráfico. No acepta argumentos con nombre.
Propiedades correspondientes al control Image:
de ejecución.
DataMenber Devuelve o establece un miembro de datos especificado entre los
DataSource Devuelve o establece el origen de datos mediante el cual un receptor
de datos enlaza con una base de datos.
Visual Basic 61

colocar.
Height y Width Devuelven o establecen las dimensiones de un objeto.
Index (Control Devuelve o establece el número que identifica un control de forma
Array) exclusiva en una matriz de controles. Sólo está disponible si el control
MouseIcon Devuelve o establece el icono que se presenta como puntero en una
Left y Top Left: devuelve o establece la distancia entre el borde interno izquierdo
de un objeto y el borde izquierdo de su contenedor.
que aparece cuando se sitúa el mouse sobre un área determinada de un
objeto en tiempo de ejecución.
un control o un objeto de acceso a datos. Es de sólo lectura en tiempo
de ejecución.
OLEDragMode Hace que un componente inicie una operación OLE de arrastrar y
colocar.
Parent Devuelve el formulario, objeto o colección que contiene un control u
Picture Devuelve o establece un gráfico que se mostrará en un control. Para el
control contenedor OLE, no está disponible en tiempo de diseño y es de
sólo lectura en tiempo de ejecución.
Stretch Devuelve o establece un valor que indica si un gráfico cambia su
tamaño para ajustarse al de un control Image.
oculto.
Visual Basic 62

Inclusión de efectos artísticos utilizando los controles line y shape
Ya sabe cómo añadir mapas de bits, iconos y metaarchivos de Windows en un formulario creando
cuadros de dibujo y de imagen. Incluir dibujos artísticos predesarrollados en sus
programas le resultará una tarea muy fácil en Visual Basic. Ahora aprenderá a crear dibujos
artísticos originales utilizando los controles Line y Shape. Estas herramientas de gran utilidad
están localizadas en el cuadro de herramientas y podrá usarlas para construir una gran variedad de
imágenes de diferentes formas, tamaños y colores. Los objetos que cree utilizando estos controles
tendrán muy pocas limitaciones (por ejemplo, no pueden recibir el foco en tiempo de ejecución ni
pueden aparecer encima de otros objetos) a la vez que son muy potentes, rápidos y fáciles de
usar.
El control Line
Podrá utilizar el control Line para introducir líneas rectas en un formulario. Después podrá disponer
de una amplia variedad de propiedades para cambiar el aspecto de la línea que acaba de crear. Las
propiedades más importantes del objeto línea son: el ancho del borde (BorderWidth), el estilo del
borde (BorderStyle), el color del borde (BorderColor) y la visibilidad (Visible). La propiedad
BorderWidth ajusta el grosor de la línea contenida en su formulario. Esto
es especialmente útil cuando esté creando un subrayado o una línea que separa un objeto de otro.
La propiedad BorderStyle le permitirá crear una línea continua, punteada o a trazos y la
propiedad BorderColor le permitirá colorearla con cualquiera de los colores estándar de Visual
Basic. Finalmente, la propiedad Visible le permitirá ocultar o mostrar la línea según sea
necesario en su programa. Tendrá la oportunidad de trabajar con el control Line un poco más
adelante, después de que conozca algo del control Shape.
El control Shape
Podrá utilizar el control Shape para crear rectángulos, cuadrados, elipses y circunferencias en sus
formularios. Empleará este control para realizar el dibujo deseado y luego utilizará la
ventana Propiedades para ajustar las características de la imagen. La propiedad Shape controla la
forma de la imagen; podrá seleccionar un rectángulo, un rectángulo con bordes redondeados, un
cuadrado, un cuadrado redondeado, una elipse o una forma circular después de haber creado el
objeto. Podrá construir imágenes complejas dibujando varias formas y líneas. Entre otras
propiedades importantes que afectan a la forma de este tipo de objetos son: el color de relleno
(FillColor), que le permitirá especificar el color del objeto; el estilo de relleno (FillStyle), que le
permitirá establecer un patrón para el color de relleno, y el color del borde (BoderColor), con el
que podrá especificar un color distinto para el borde de la forma. Este tipo de objetos también
cuenta con la propiedad Visible, que le permitirá mostrar u ocultar el dibujo según sean sus
necesidades.
Los siguiente ejercicios le mostrarán el empleo de los controles Line y Shape. Utilizará estos
controles para crear una atractiva pantalla de bienvenida para un sistema odontológico
denominado Smile. La pantalla de bienvenida será similar a la mostrada a continuación:
Visual Basic 63

Empleo de los controles Line y Shape
1. Abra un nuevo proyecto estándar.
2. Oculte el formulario para disponer del suficiente espacio para incluir objetos de forma y
botones de órdenes.
3. Pulse el control Label del cuadro de herramientas y cree una etiqueta alargada en la parte
superior del formulario.
4. Abra la ventana Propiedades y asigne el valor Smile a la propiedad Caption de la etiqueta.
5. Asigne a la propiedad Font de la etiqueta el valor Times New Roman, Negrita, 26 puntos.
Asigne a la propiedad ForeColor el valor Naranja oscuro .La etiqueta deberá ocupar casi
todo el ancho de la pantalla. Deberá ajustar el ancho y el alto del cuadro etiqueta, si fuese
necesario, de manera que el nombre del sistema quepa en una única línea.
6. Pulse el control Line contenido en el cuadro de herramientas y cree una línea bajo el
nombre del sistema. Haga que la línea ocupe toda la anchura del formulario.
El control Line muestra manejadores de selección a cada lado de la línea una vez creada.
Podrá utilizar estos manejadores para aumentar o disminuir el tamaño de la línea, si fuese
necesario.
7. Pulse el botón Ventana de Propiedades para mostrar la ventana Propiedades y después
asigne los siguientes valores a las propiedades del objeto Line:
Line1 BorderWidth 5
BorderColor Azul oscuro
El nombre del objeto de línea es Linel. El valor de BorderWidth cambia el ancho de la línea a cinco
twips (un twip es equivalente a 1/20 puntos o a 1/1.440 pulgadas). La propiedad BorderColor
modificará el color de la línea a Azul oscuro.
A continuación, introducirá dos cuadros de imágenes en el formulario.
8. Pulse el control Shape contenido en el cuadro de herramientas y cree un rectángulo en la
parte izquierda del formulario.
Este rectángulo es el marco de la primera ventana. Más adelante ajustará la propiedad
FillStyle de este objeto para conseguir que se asemeje a una ventana enrejada.
9. Pulse otra vez el control Shape y cree un segundo rectángulo en la parte izquierda del
formulario, solapándose ligeramente con el primero.
El funcionamiento del control Shape es muy similar a las herramientas de dibujo de
propósito general presentes en los programas de dibujo artístico. El control crea la imagen
y luego deberá asignar las propiedades para configurar el dibujo con su aspecto
definitivo.
10. Puls e el botón Ventana Propiedades y asigne los siguientes valores para las propiedades
de los objetos que acaba de crear:
Shape1 Shape 0-Rectangle
FillColor Naranja
FillStyle 7-Diagonal Cross
BorderColor Naranja
Shape2 Shape 3-Circle
FillColor Amarillo
FillStyle 6-Cross
BorderColor Amarillo
Shape3 Shape 4-Rounded
rectangle
FillColor Verde
FillStyle 6-Cross
BorderColor Verde
Visual Basic 64

11. Cree una etiqueta en la parte derecha del formulario lo suficientemente estrecha como
para que el rótulo de la etiqueta se extienda por dos líneas completas. A continuación,
asigne las propiedades mostradas en la tabla siguiente.
Label2 Caption Sistema Integral Odontológico
Font Times New Roman, Cursiva, 12-
puntos
Alignment 1 - Rigth justify
12. Pulse el botón CommandButton del cuadro de herramientas y cree un botón de orden en
la esquina inferior derecha del formulario. Cree un segundo botón de orden a la
izquierda del primero.
13. Asigne los siguientes valores a las propiedades de los botones de orden.
Command1 Caption Salir
Command2 Caption Entrar
14. Pulse dos veces el botón de orden Salir, escriba End en el procedimiento de suceso
Command1_Click y luego cierre la ventana Código.
El formulario de bienvenida que está creando pretende ser una puerta de entrada
al programa, pero si el usuario quisiera abandonarlo sin recorrer el resto del
programa, el botón Salir le proporcionará una vía de salida. Puesto que la pantalla
de bienvenida es, por ahora, la única parte del programa que existe,
también utilizará el botón Salir para finalizar la ejecución del programa.
Visual Basic 65

Visual basic

Más contenido relacionado

La actualidad más candente (11)

Similar a Visual basic (20)

Más de Gaby Gonzalez (20)

Último (20)

Visual basic