Guía VB - N3

GUÍA DE LABORATORIO
Parte III
ELABORADO POR
CARLOS CASTILLO PERALTA
[email protected]
Elaborado por Carlos Castillo Peralta [email protected] 1

INTRODUCCIÓN
La presente Guía de Laboratorio de Microsoft Visual Basic,
se elaboró con la finalidad de complementar la parte teórica
con la parte práctica del curso. Los problemas presentan un
grado de dificultad gradual, es decir, en cada práctica primero
se comienzan con problemas muy sencillos con la finalidad de
que el estudiante esclarezca dudas y quede claro en los
conceptos asimilados en la teoría, y luego en los problemas
posteriores se va incrementando el nivel de dificultad.
Esta guía explora una gran variedad de materias y contiene
muchos problemas recopilados a lo largo de varios años de
experiencia. Espero que satisfaga las necesidades de los
estudiantes y colegas, ya que ha sido elaborada teniendo en
cuenta los objetivos de aprendizaje del curso.
Si desean compartirla con otros colegas, me agradaría
mucho que lo hicieran, con la única condición de que siempre se
respete el derecho del autor.
Desde ya les deseo la mejor de las suertes en el
aprendizaje de Microsoft Visual Basic.
Lima, Diciembre del 2000

Carlos Castillo Peralta
Microsoft Visual Basic

GUÍA DE LABORATORIO Nº 9
Objetivos
Luego de completar este laboratorio, el estudiante será
capaz de:
· Crear y utilizar clases dentro de una aplicación Visual

Basic.
· Diseñar y utilizar controles ActiveX personalizados.
Consideraciones
Para el desarrollo del presente laboratorio Ud. deberá
crear una carpeta C:\FundVB\Lab9, para guardar sus trabajos
correspondientes a este laboratorio.
Aplicación Nº 1
Implementar una clase denominada Circulo, la cual debe
contar con las propiedades públicas Radio y Area. Para tal fin
seleccione la opción Agregar módulo de clase del Menú Proyecto:

En la ficha Nuevo seleccione la opción Módulo de clase y
haga click en Abrir. En seguida active la ventana de
propiedades y cambie el nombre de la nueva clase por Circulo.
La ventana de código de la clase debe presentar la siguiente
apariencia:
A continuación proceda a ingresar el siguiente código para

la clase:
Private R As Double
Public Property Get Radio() As Variant

Radio = R
End Property
Public Property Let Radio(ByVal vNewValue As Variant)
If IsNumeric(vNewValue) Then
R = CDbl(vNewValue)
Else
R = 0
End If
End Property
Public Property Get Area() As Variant

Area = 3.141592 * R * R
End Property
Private Sub Class_Initialize()
R = 0
End Sub
Luego proceda a ubicar los siguientes controles en el

formulario:
2 etiquetas
2 cajas de texto
3 botones de comando
A continuación proceda a establecer las propiedades según

se indica:
Form1
Nombre FrmEjemClaseCirculo
Caption Ejemplo con la clase Circulo
Label1
Nombre LblRadio

Caption Radio:
Label2
Nombre LblArea
Caption Area:
Text1
Nombre TxtRadio
Text
Text2
Nombre TxtArea
Text
Una vez que ha establecido las propiedades indicadas,

proceda a ingrese el siguiente código para el formulario de
prueba:
Dim A As Circulo
Private Sub Form_Load()

Set A = New Circulo
End Sub
Private Sub Form_Unload(Cancel As Integer)

Set A = Nothing
End Sub
Private Sub TxtRadio_Change()

A.Radio = TxtRadio
TxtArea = A.Area
End Sub

Guarde y pruebe su aplicación. El resultado debe ser
similar a la siguiente figura:
Aplicación Nº 2
Diseñar un control ActiveX que muestre el mensaje
“Bienvenido al Mundo de la Programación con ActiveX”.
Adicionalmente, el control debe permitir al usuario la
posibilidad de cambiar el color del texto.
Para comenzar nuestra aplicación, debe ingresar a Visual
Basic y en la ventana de diálogo Nuevo Proyecto seleccione
Control ActiveX, y luego haga click en el botón Aceptar.

Con esta opción, podrá crear un Control Active X. Las
diferencias entre una opción y la usual (EXE estándar) las verá
mejor conforme avance en el desarrollo de la presente Práctica
de Laboratorio.
En seguida añada un nuevo proyecto EXE estándar. Esto lo

puede realizar desde el Menú Archivo opción Agregar Proyecto.
Luego establezca las propiedades indicadas a continuación:
Proyecto1
Nombre ActiveXMiControl
UserControl1
Nombre MiControl
ToolboxBitmap C:\Archivos de programa\Microsoft Visual
Studio\Common\Graphics\Bitmaps\Assorted\
Heart.bmp
Proyecto2
Nombre VbpMiControl
Form1
Nombre FrmPruebaMiControl
Caption Prueba de Control ActiveX
BorderStyle 3-Fixed Dialog
La ventana del Explorador de proyectos debe presentar la

siguiente apariencia:

En la ventana anterior haga click con el botón derecho del
ratón sobre MiControl y elija la opción Ver código. En el
ComboBox General seleccione UserControl y en el ComboBox
Declaraciones seleccione Paint. Ahora ingrese el siguiente
código:
Private Sub UserControl_Paint()

Const Msg = “Bienvenido al Mundo de la Programación ” & _
“con ActiveX”
UserControl.Cls
UserControl.Print Msg
End Sub
Luego en el Explorador de proyectos, hacer click con el
botón derecho del ratón sobre la carpeta Controles de usuario y
seleccione la opción Propiedades de ActiveXMiControl. En
seguida se mostrará la ventana Propiedades del proyecto:

En la ventana anterior, en la ficha General, apartado
Descripción del proyecto, escribir “Este es mi primer Control
ActiveX”, tal como se muestra. Luego pulsar el botón Aceptar.
Cierre todas las ventanas abiertas y haga un sólo click

sobre la carpeta Controles de usuario. A continuación ingrese
al Menú Archivo y seleccione la opción Generar
ActiveXMiControl.ocx, guarde el archivo con su nombre por
defecto.
Luego, establezca como inicial el formulario

FrmPruebaMiControl y añadir desde el Cuadro de herramientas
nuestro control recientemente creado.
Del Menú Proyecto seleccione la opción Componentes y
veremos la descripción de nuestro control con su casilla de
verificación activada, tal como se muestra a continuación:

En seguida, guarde y ejecute su aplicación. El resultado
debe ser similar al siguiente:
En este momento, Ud. acaba de terminar el diseño de su

primer control ActiveX. No se preocupe por las diferencias que
puede haber encontrado con respecto a la forma tradicional de
programar. Conforme avancemos en el desarrollo de la práctica
veremos que esta forma de programar en base a componentes es
bastante sencilla.

Sin embargo, debemos modificar nuestro control, de tal
forma que nos permita cambiar el color de texto de
presentación. Para tal fin, vamos a hacer uso del Asistente
para interfaz de control ActiveX y el Asistente para páginas de
propiedades. Estos complementos deben ser instalados desde el
menú principal Complementos y seleccionar la opción
Administrador de complementos, tal como se indica a
continuación:
En la ventana anterior debe activar las casillas de

verificación Cargado/Descargado y Cargar al iniciar. Luego haga
click en el botón Aceptar.
En seguida el menú Complementos deberá presentar la

siguiente apariencia:

Luego, haga click sobre la opción Asistente para interfaz
de control ActiveX. En seguida, aparecerá una ventana de
presentación, haga doble click en el botón Siguiente. Tendremos
entonces una ventana similar a la que se muestra:
Haga click con el ratón sobre el botón << y a continuación

elija de la lista de la izquierda ForeColor y haga click sobre
el botón >. La propiedad ForeColor es la propiedad encargada de
cambiar el color de texto, la cual no está disponible en
nuestro control, por ello debemos asociarla. El aspecto del
Asistente para interfaz de control ActiveX debe ser similar a:
Pulse, luego el botón Siguiente. En seguida aparecerá otra
ventana, haga nuevamente click en el botón Siguiente.

Ahora hemos llegado a la ventana en la cual vamos a
asociar a nuestro control la propiedad ForeColor. Seleccione
del ComboBox Control UserControl y del ComboBox Miembro
ForeColor, tal como se indica en la ventana anterior. Pulse el
botón Siguiente y en la siguiente ventana pulse el botón
Finalizar. Aparecerá luego una ventana de información, lea
detenidamente su contenido y luego haga click en el botón
Cerrar. A continuación guarde su aplicación y genere nuevamente
el control.
Para probar el control abra el formulario

FrmPruebaMiControl y añada al Cuadro de herramientas el
componente Microsoft Common Dialog Control 6.0. En seguida
añada al formulario un MiControl, un CommonDialog y un
CommandButton. Cambie el nombre del botón Command1 por
CmdAceptar e ingrese el siguiente código:

Private Sub CmdAceptar_Click()
CommonDialog1.ShowColor
MiControl1.ForeColor = CommonDialog1.Color
MiControl1.Visible = False
MiControl1.Visible = True
End Sub
Guarde y luego ejecute su aplicación, el resultado será

similar al siguiente:
Al hacer click sobre el botón Aceptar, se presenta la

siguiente caja de diálogo en la cual podemos elegir el nuevo
color para el texto de bienvenida:

Preste atención en que la propiedad Visible se utiliza
para actualizar el contenido del control y se pueda ver el
cambio de color. No es la mejor forma de hacerlo, deberíamos
hacerlo mediante código dentro del mismo control, pero por el
momento y para probar como asociar una propiedad a un control
es más que suficiente.
Aplicación Nº 3
Diseñar un control ActiveX que presente la forma de un
cuadro de texto, pero que sólo admita números. Es decir, el
usuario sólo podrá escribir en el control números, cualquier
otro carácter que no sea un número, será rechazado por el
control y no se imprimirá en el cuadro de texto.
Al igual que en la aplicación anterior crear el grupo de

proyectos y establezca las propiedades según:
Proyecto1
Nombre ActiveXNumBox

UserControl1
Nombre NumBox
ToolboxBitmap C:\Archivos de programa\Microsoft Visual
Studio\Common\Graphics\Bitmaps\Assorted\
Diamond.bmp
Proyecto2
Nombre VbpNumBox
Form1
Nombre FrmPruebaNumBox
Caption Prueba de Control ActiveX
Para diseñar nuestro control utilizaremos un control

TextBox el cual debe insertar en el formulario NumBox
(UserControl). Luego elimine el contenido de la propiedad Text.
Tener cuidado en que el control ha de ser del mismo tamaño del
cuadro de texto. Luego, el cuadro de texto debe redimensionarse
de acuerdo al control en tiempo de diseño, esto es a la hora de
insertar nuestro control en un formulario. Para ello es
necesario ingresar el siguiente código:
Private Sub UserControl_Resize()

Text1.Top = 0
Text1.Left = 0
Text1.Width = UserControl.Width
Text1.Height = UserControl.Height
End Sub

Private Sub UserControl_InitProperties()
Text1 = Extender.Name
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)

If Not (KeyAscii = 8 Or _
(KeyAscii >= 48 And KeyAscii <= 57)) Then
KeyAscii = 0: Beep: Beep: Beep: Beep
End If
End Sub
A continuación genere el control NumBox y cierre el

formulario de diseño del control. Establezca como inicial el
proyecto VbpNumBox y añada un control NumBox y un CommandButton
al formulario FrmPruebaNumBox. Cambie el nombre del botón de
comando por CmdSalir. A continuación guarde y ejecute su
aplicación, el resultado debe ser similar al mostrado:
El control que acabamos de diseñar permite escribir

únicamente números, es decir es un cuadro de números. Trate de
ingresar otros caracteres y vea lo que sucede.
Aplicación Nº 4
Crear un control ActiveX que permita el ingreso del día,
mes y el año correspondiente a cualquier fecha desde el año 1

hasta el año 9999. Deberá validar la fecha ingresada y no
deberá permitir la edición de fechas no existentes como por
ejemplo 5 de Setiembre de 1752. El control deberá mostrar el
día de la semana correspondiente a la fecha ingresada, tal como
se muestra en la figura siguiente:
El calendario Gregoriano actual obedece a la reforma del

calendario Juliano que ordenó el papa Gregorio XIII en 1752,
para ponerlo de acuerdo con los movimientos de los cuerpos
celestes. Lo cual trajo como consecuencia adelantar las fechas
del 2 de Setiembre al 14 de Setiembre de 1752, es decir las
fechas comprendidas en este intervalo de tiempo nunca
existieron.

Objetivos
capaz de:
· Crear documentos ActiveX que se ejecuten directamente en una

página Web.
· Utilizar documentos ActiveX que incorporan hipervínculos.
· Desarrollar documentos ActiveX para interactuar con bases de
datos relacionales.
Consideraciones
Aplicación Nº 1
Como primer ejercicio vamos a desarrollar un documento
ActiveX que permite recuperar información de la base de datos
CursosLibres.MDB.
Un documento ActiveX, es simplemente un formulario que se

puede ejecutar directamente en los exploradores de Internet.
Los documentos ActiveX se diseñan de la misma manera que los

formularios estándar de Visual Basic. Para comenzar a
desarrollar nuestro documento ActiveX, debe ingresar a Visual
Basic y en la ventana de diálogo Nuevo Proyecto seleccione EXE
de documento ActiveX y luego haga click en el botón Aceptar,
tal como se indica en la figura:
A continuación proceda a diseñar la siguiente interfaz de

usuario:

Para tal efecto, proceda a ubicar los siguientes controles
en el formulario:
3 etiquetas
1 cuadro combinado
1 control DataGrid
1 botón de comandos
En seguida proceda a establecer las propiedades según se

indica:
Label1
Nombre LblTitulo1
AutoSize True
Caption Instituto de Educación Superior
Font Arial (Negrita 12)
ForeColor &H00C00000&

Label2
Nombre LblTitulo2
AutoSize True
Caption “Víctor Andrés Belaúnde”
Font Times New Roman (Negrita 24)
ForeColor &H000000FF&
Label3
Nombre LblTablas
AutoSize True
Caption Vacantes:
Combo1
Nombre CboTabla
Text
DataGrid1
Nombre BdgrdTabla
HeadFont Arial (Negrita 10)
Command1
Nombre CmdAceptar
Caption &Mostrar
Una vez establecidas las propiedades, proceda a ingresar

el siguiente código:

Dim Cn As ADODB.Connection
Dim RsAlumno As ADODB.Recordset
Dim RsCurso As ADODB.Recordset
Dim RsLaboratorio As ADODB.Recordset
Private Sub UserDocument_Initialize()

Set Cn = New ADODB.Connection
Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=C:\FundVB\Data\CursosLibres.MDB;” & _
“Persist Security Info=False”
CboTabla.AddItem “Alumno”
CboTabla.AddItem “Curso”
CboTabla.AddItem “Laboratorio”
End Sub
Private Sub MostrarAlumno()

Set RsAlumno = New ADODB.Recordset
RsAlumno.ActiveConnection = Cn
RsAlumno.CursorType = adOpenStatic
RsAlumno.LockType = adLockReadOnly
RsAlumno.CursorLocation = adUseClient
RsAlumno.Open “Select AluCodigo As Código, ” & _
“(AluPaterno + ' ' + AluMaterno) As Apellidos, ” & _
“AluNombres As Nombres From Alumno”
Set DbgrdTabla.DataSource = RsAlumno
End Sub
Private Sub MostrarCurso()

Set RsCurso = New ADODB.Recordset
RsCurso.ActiveConnection = Cn
RsCurso.CursorType = adOpenStatic
RsCurso.LockType = adLockReadOnly
RsCurso.CursorLocation = adUseClient
RsCurso.Open “Select CurCodigo As Código, ” & _
“CurNombre As Nombre, ” & _
“CurVacantes As Vacantes, ” & _
“CurProfe As Profesor From Curso”
Set DbgrdTabla.DataSource = RsCurso
End Sub
Private Sub MostrarLaboratorio()

Set RsLaboratorio = New ADODB.Recordset
RsLaboratorio.ActiveConnection = Cn
RsLaboratorio.CursorType = adOpenStatic
RsLaboratorio.LockType = adLockReadOnly
RsLaboratorio.CursorLocation = adUseClient
RsLaboratorio.Open “Select LabCodigo As Código, ” & _
“LabHora As Horario, ” & _
“LabProfe As [Jefe de práctica] From Laboratorio”
Set DbgrdTabla.DataSource = RsLaboratorio
End Sub
Private Sub CmdMostrar_Click()

Select Case CboTabla.ListIndex
Case 0
Call MostrarAlumno
Case 1
Call MostrarCurso
Case 2
Call MostrarLaboratorio
End Select

End Sub
Finalmente guarde y pruebe su documento ActiveX. El

resultado debe ser similar a la figura que se muestra a
continuación:
Aplicación Nº 2
Al documento ActiveX desarrollado en el ejercicio
anterior, añadirle un botón Acerca de, que presente la
información referente al autor (o autores) de la aplicación. El
diseño del formulario debe ser tal como se muestra a
continuación:

En primer lugar proceda a añadir un formulario estándar al
proyecto. Cambie el nombre del formulario por el de FrmAcercaDe
y diseñe la interfaz pedida.
En seguida añada un botón de comandos al documento ActiveX

y cambie su nombre por CmdAcerca. Luego haga doble click sobre
dicho botón e ingrese el siguiente código:
Private Sub CmdAcerca_Click()

Load FrmAcercaDe
FrmAcercaDe.Show vbModal
End Sub
Finalmente guarde y pruebe su aplicación. Como puede

apreciar desarrollar documentos ActiveX no es nada complicado.
Aplicación Nº 3
Al documento ActiveX desarrollado anteriormente añadirle
un botón Ir a, que permita enlazarnos con la dirección que se
ingrese en el cuadro de texto adjunto. El diseño del documento
se muestra a continuación:

Para lograr lo que se pide, añada un botón de comandos y
un cuadro de texto y cambie sus nombres por CmdURL y TxtURL
respectivamente. Luego ingrese el siguiente código:
Private Sub CmdURL_Click()

UserDocument.Hyperlink.NavigateTo TxtURL
End Sub
Aplicación Nº 4
Elaborar un documento ActiveX que permita mostrar el
contenido de la tabla Curso de la base de datos
CursosLibres.MDB. A continuación el usuario selecciona un curso
y tiene la posibilidad de separar la matrícula o en su defecto
matricularse en el curso de su elección. El diseño de la
aplicación debe ser similar a la siguiente figura:
Sugerencia: Añadir una nueva tabla a la base de datos para

registrar a los alumnos matriculados o con separación de
matrícula.

Objetivos
capaz de:
· Diseñar páginas Web dinámicas mediante aplicaciones DHTML.

· Desarrollar aplicaciones DHTML para interactuar con los datos
de un sistema distribuido de bases de datos relacionales.
· Implementar aplicaciones mediante código Visual Basic y
código HTML.
· Agregar funcionalidad a sus aplicaciones para explorar Web.
Consideraciones
Aplicación Nº 1
En este ejercicio, vamos a desarrollar una aplicación
DHTML que lea un número entero y muestre su tabla de
multiplicar.
En su forma más sencilla, una aplicación DHTML (Dynamic

HyperText Markup Language) puede consistir de una o más páginas
HTML enlazadas con código Visual Basic y el modelo de objetos
HTML dinámico.
Para comenzar a desarrollar nuestra aplicación, ingresar a

Visual Basic y en la ventana de diálogo Nuevo Proyecto
seleccione Aplicación DHTML, y haga click en el botón Aceptar.

Al observar la ventana del Explorador de proyectos, esta
presentará la siguiente apariencia:
Visual Basic agrega automáticamente un Diseñador de

páginas DHTML al proyecto. En seguida, haga doble click sobre
DHTMLPage1 y proceda a establecer las propiedades que se
indican:
DHTMLPage1
Nombre DHTMLTablaMultiplicar
Id DHTMLTablaMultiplicar

Para crear la interfaz de la aplicación DHTML, simplemente
tenemos que ir agregando elementos HTML de la caja de
herramientas. De esa manera, realice el diseño de la página
mostrada en la siguiente figura:
Una vez terminado el proceso de diseño de la página,

seleccione el encabezado Tabla de Multiplicar y haga click en
el cuarto botón de la barra de herramientas del Diseñador
(Ajustar la selección en <SPAN> . . . </SPAN>). En seguida, sin
dejar de seleccionar el encabezado, active la Ventana de
propiedades y establezca lo siguiente:
Tabla de Multiplicar
Id Titulo

A continuación proceda a establecer las propiedades para
los demás controles según se indica:
TextField1
Nombre TxtN
Id TxtN
Value
TextArea1
Nombre TxtTabla
Id TxtTabla
Value
En seguida haga doble click sobre el cuadro de texto TxtN

e ingrese lo siguiente:
Private Sub DHTMLPage_Load()

Document.bgColor = “Yellow”
Titulo.Style.Color = “Red”
End Sub
Private Sub Titulo_onmouseout()

Titulo.Style.Color = “Red”
End Sub
Private Sub Titulo_onmouseover()

Titulo.Style.Color = “Blue”
End Sub
Private Sub TxtN_onpropertychange()

If IsNumeric(TxtN.Value) Then
Dim N As Integer, I As Integer, S As String
N = Val(TxtN.Value)
For I = 0 To 12
S = S & N & “ * ” & I & “ = ” & N * I & vbCrLf
Next I
TxtTabla.Value = S
Else
TxtTabla.Value = “”
End If
End Sub
Finalmente, guarde y pruebe su aplicación DHTML. El

resultado debe ser similar a la figura siguiente:
Aplicación Nº 2
Desarrollar una aplicación DHTML que permita visualizar el
contenido de la tabla Curso de la base de datos
CursosLibres.MDB. El diseño de la página debe ser similar al
mostrado:
Para desarrollar nuestra aplicación, lo primero que debe

de hacer es abrir una nuevo proyecto DHTML. Luego debe crear la
conexión a la base de datos CursosLibres.MDB. Para ello ingrese
al menú Proyecto seleccione la opción Agregar Data Environment.
En la ventana Data Environment cambie el nombre del objeto
DataEnvironment por DeCursosLibres y el de la conexión por
CnCursosLibres. Luego, añada un Comando y denomínelo CmCurso.

Haga click derecho sobre el comando y seleccione Propiedades. A
continuación seleccione la opción Instrucción SQL e ingrese el
siguiente código:
Select CurCodigo, CurNombre, CurVacantes, CurProfe From Curso
Luego haga click en el botón Aceptar. El aspecto de la

ventana Data Environment debe ser similar al siguiente:

En seguida proceda a diseñar la página. Para ello digite
los encabezados y etiquetas necesarios. Luego añada los
siguientes controles HTML al diseñador de páginas DHTML:
4 cajas de texto
4 botones de comandos
A continuación, proceda a establecer las propiedades según
se indica:
“Víctor Andrés Belaúnde”

Id Titulo
TextField1
Nombre TxtCurCodigo
Id TxtCurCodigo
Value
TextField2
Nombre TxtCurNombre
Id TxtCurNombre
Value
TextField3
Nombre TxtCurVacantes
Id TxtCurVacantes
Value
TextField4
Nombre TxtCurProfe

Id TxtCurProfe
Value
Button1
Nombre CmdPrimero
Id CmdPrimero
Value Primero
Button2
Nombre CmdAnterior
Id CmdAnterior
Value Anterior
Button3
Nombre CmdSiguiente
Id CmdSiguiente
Value Siguiente
Button4
Nombre CmdUltimo
Id CmdUltimo
Value Ultimo
Mediante el Data Environment, ADO y el objeto

BindingCollection, es posible enlazar elementos de una página
DHTML con un origen de datos cuando se carga la página. Esto le
permite modificar los datos y escribir código para actualizar
un conjunto de registros subyacente o simplemente desplazarse a
través de los mismos. Por ejemplo, puede usar un objeto

BindingCollection con un objeto Recordset de ADO para enlazar
los elementos TextField de la página de código HTML con campos
de la tabla Curso.
Para poder utilizar los objetos de la Microsoft Data

Binding Collection es necesario cargar la librería
correspondiente. Selecciones el menú Proyecto y elija la opción
Referencias. En el cuadro de diálogo Referencias seleccione la
opción Microsoft Data Binding Collection, tal como se indica en
la figura:
A continuación declare una variable de tipo

BindingCollection en la sección de Declaraciones de la página
DHTML y proceda a ingresar el código que se muestra:
Dim ColBind As BindingCollection

Document.bgColor = “Yellow”
Titulo.Style.Color = “Blue”
Set ColBind = New BindingCollection
Set ColBind.DataSource = DeCursosLibres
ColBind.DataMember = “CmCurso”
ColBind.Add TxtCurCodigo, “Value”, “CurCodigo”
ColBind.Add TxtCurNombre, “Value”, “CurNombre”
ColBind.Add TxtCurVacantes, “Value”, “CurVacantes”
ColBind.Add TxtCurProfe, “Value”, “CurProfe”
End Sub
Private Function CmdPrimero_onclick() As Boolean

DeCursosLibres.rsCmCurso.MoveFirst
End Function
Private Function CmdAnterior_onclick() As Boolean

DeCursosLibres.rsCmCurso.MovePrevious
If DeCursosLibres.rsCmCurso.BOF Then
DeCursosLibres.rsCmCurso.MoveFirst
End If
End Function
Private Function CmdSiguiente_onclick() As Boolean

DeCursosLibres.rsCmCurso.MoveNext
If DeCursosLibres.rsCmCurso.EOF Then
DeCursosLibres.rsCmCurso.MoveLast
End If
End Function
Private Function CmdUltimo_onclick() As Boolean

DeCursosLibres.rsCmCurso.MoveLast

End Function
Finalmente, guarde y pruebe su aplicación.
Aplicación Nº 3
Diseñar una aplicación que permita cargar en una tabla
HTML el contenido de la tabla Curso. La tabla HTML se debe
crear dinámicamente de acuerdo al número de registros
existentes.
Para desarrollar nuestra aplicación, añada una nueva

página DHTML al proyecto anterior. Para ello seleccione el menú
Proyecto y elija la opción Agregar DHTML Page. En seguida
proceda a ingresar el siguiente código:
Dim ColBind As BindingCollection

Dim RsResults As ADODB.Recordset
Set ColBind = New BindingCollection
Set ColBind.DataSource = DeCursosLibres
ColBind.DataMember = “CmCurso”
Set RsResults = DeCursosLibres.rsCmCurso
Do While Not RsResults.EOF
Document.body.insertAdjacentHTML “BeforeEnd”, _
“<Table Border Cellspacing=1 Cellpadding=7>” & _
“<Td Width=50>” & RsResults!CurCodigo & “</Td>” & _
“<Td Width=200>” & RsResults!CurNombre & “</Td>” & _
“<Td Width=50>” & RsResults!CurVacantes & “</Td>” & _
“<Td Width=200>” & RsResults!CurProfe & “</Td>” & _
“</Table>”
RsResults.MoveNext

Loop
RsResults.MoveFirst
RsResults.Close
End Sub
Finalmente, no olvide cambiar el componente de inicio

antes de ejecutar su aplicación.
Aplicación Nº 4
Diseñar una aplicación DHTML que permita seleccionar de un
control Select (similar a un cuadro combinado), el nombre de un
profesor y a continuación se muestren en una tabla HTML
dinámica los cursos que dicta dicho profesor.
Un elemento Select, es similar a un cuadro combinado. Por

ejemplo, para agregar un elemento Select denominado SelProfe a
una la página HTML, simplemente arrastrar el elemento a la
página. A continuación establecer las siguientes propiedades:
Seleccion1
Nombre SelProfe
Id SelProfe
Value
Para especificar los elementos de lista que se deben

mostrar en el elemento Select agregar el siguiente código al
procedimiento de evento Load de la página HTML, veamos:

Dim SelElement As HTMLSelectElement
Dim Cn As ADODB.Connection
Dim RsProfe As ADODB.Recordset
Set Cn = New ADODB.Connection
Set RsProfe = New ADODB.Recordset
Cn.Open “Provider=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=C:\FundVB\Data\CursosLibres.MDB;” & _
“Persist Security Info=False”
RsProfe.ActiveConnection = Cn
RsProfe.CursorType = adOpenStatic
RsProfe.LockType = adLockOptimistic
RsProfe.CursorLocation = adUseClient
RsProfe.Open “Select Distinct CurProfe From Curso”
Do While Not RsProfe.EOF()
Set SelElement = Document.createElement(“OPTION”)
SelElement.Text = RsProfe!CurProfe
SelProfe.Options.Add SelElement
RsProfe.MoveNext
Loop
End Sub
Al ejecutar su aplicación debe ser similar a la figura
mostrada:

Finalmente a manera de ejercicio para el estudiante,
proceda a escribir el código necesario para mostrar la
información relacionada con cada profesor.

Objetivos
capaz de:
· Utilizar funciones API de Windows desde Microsoft Visual

Basic.
· Convertir declaraciones de C a Visual Basic.
· Añadir un sistema de ayuda a una aplicación.
· Usar el asistente para empaquetado y distribución.
· Generar programas de instalación mediante disquetes, carpetas
en una unidad local de red o en una publicación Web.
Consideraciones
Aplicación Nº 1
Un programador de aplicaciones Visual Basic, además de
conocer su entorno de trabajo, debe conocer su entorno de
programación, conocido generalmente como Interfaz de
Programación de Aplicaciones para Windows (Windows Application
Programming Interface, Windows API).
La API de Windows viene a ser un conjunto de funciones

desarrolladas en lenguaje C. Sin embargo, muchos programadores

de Visual Basic recurren a estas funciones para conseguir hacer
lo que es imposible (o muy complicado) desde Visual Basic.
Las funciones API de Windows no son nada complicadas como
pueden pensar algunos programadores de Visual Basic.
Como primer ejercicio vamos a escribir una aplicación que

permita modificar el título de un formulario. En la práctica,
siempre se modifican los títulos del formulario con la
propiedad Caption de Visual Basic, pero este ejercicio ofrece
una manera sencilla de declarar y llamar a una API de Windows.
El primer paso consiste en añadir un módulo de código al

proyecto. En seguida proceda a declarar la función en la
sección de declaraciones del módulo:
Public Declare Function SetWindowText Lib “user32” _

Alias “SetWindowTextA” (ByVal hWnd As Long, _
ByVal lpString As String) As Long
Luego, en el formulario ingrese el código que se muestra a

continuación:
Private Sub Form_Load()

SetWindowText Form1.hWnd, “Bienvenidos a la API de Windows”
End Sub
Al ejecutar su aplicación, su resultado debe ser similar a

la siguiente figura:

Aplicación Nº 2
Desarrollar una aplicación que permita reproducir un
archivo Wav o Midi. Utilizar la función API de Windows
mciExecute para lograr el objetivo deseado.
Como se sabe, el lenguaje C diferencia las letras

mayúsculas de las minúsculas. Por ello, si Ud. comete un error,
por ejemplo utiliza una letra mayúscula en lugar de una
minúscula (o viceversa), la función declarada no será
reconocida y obtendrá un mensaje de error.
Para evitar este tipo de problemas, vamos a utilizar el

Visor API de Windows. En seguida, del menú Complementos elija
la opción Administrador de Complementos. Del cuadro de diálogo
que se presenta cargar la opción Visor de API de VB 6. Al dar
un click en el botón Aceptar, se añadirá en el menú
Complementos la opción Visor de API.
En seguida ingrese al Visor de API. Se debe presentar una
pantalla similar a la siguiente:
En la pantalla anterior, seleccione el menú Archivo y

elija la opción Cargar archivo de texto. En el cuadro de
diálogo que se presenta elegir el archivo Win32api.Txt y dar un
click en el botón Abrir.

De la siguiente pantalla Ud. podrá seleccionar la función
que desea, luego active la opción público y dar un click en el
botón Agregar para visualizar el código de declaración de dicha
función.

En seguida haga click en el botón Copiar y pegue dicho
código a su aplicación. Recordar que la declaración de la
función API se debe realizar en un módulo, por lo tanto debe
agregar un nuevo módulo y pegar el siguiente código:
Public Declare Function mciExecute Lib “winmm.dll” _

(ByVal lpstrCommand As String) As Long
Luego proceda a diseñar la interfaz de la aplicación. Para

ello ubique los siguientes controles:
1 control Image
2 botones de comando
En seguida establezca las propiedades según se indica a

continuación:
Form1
Nombre FrmMultimedia
Caption Hacer sonar un fichero Wav o Midi
Image1
Picture C:\Archivos de programa\Microsoft Visual
Studio\Common\Graphics\Icons\Misc\Mike.ico
Stretch True
Command1
Nombre CmdEjecutar
Caption &Ejecutar
Command2
Nombre CmdSalir

Caption &Salir
Una vez establecidas las propiedades, proceda a ingresar

el siguiente código:
Private Sub CmdEjecutar_Click()

iResult = mciExecute(“Play c:\vbN2\bmp\34.wav”)
End Sub
Private Sub CmdSalir_Click()

Unload Me
End Sub
Aplicación Nº 3
Uno de los temas en los que Windows ha creado un estándar
es el sistema de ayuda de las aplicaciones. Para ello incluye
una aplicación denominada WinHelp como motor de ayuda de
Windows.
Los pasos necesarios para crear un sistema de ayuda son

los siguientes:
· Crear un archivo de texto RTF.

· Compilar el archivo RTF mediante el compilador de ayudas Help
Workshop, para obtener el archivo HLP.
· Utilizar el motor de ayuda WinHelp.
En vista de lo anterior, lo primero que necesitamos para

crear nuestro sistema de ayuda, es un archivo con formato RTF
donde se incluirá el texto de la ayuda. Para ello ingrese a
Microsoft Word 2000 y digite lo siguiente:

Microsoft Visual Basic 6.0
Curso de programación
Profesor Carlos Castillo Peralta
Contenido
· Microsoft Visual Basic Nivel I
· Microsoft Visual Basic Nivel II
· Microsoft Visual Basic Nivel III
En seguida ubique el cursor en la última línea de texto y

presione la combinación de teclas Ctrl + Enter, para comenzar
en una nueva página. A continuación digite lo siguiente:

Nivel I
· Conceptos básicos
· Elementos del lenguaje
· Entrada y salida de datos
· Sentencias de control
· Arreglos
· Estructuras
· Archivos de datos
Volver
En seguida ubique el cursor en la última línea de texto

que acaba de ingresar y pulse Ctrl + Enter para comenzar a
digitar el siguiente texto en una página diferente:

Nivel II
 Creación de bases de datos
 Aplicaciones Cliente Servidor
 Sentencias SQL
 Entorno de datos
 Objetos de Datos ActiveX (ADO)
 Reportes
Volver
De manera análoga a los demás casos, ubique el cursor en
la última línea de texto y presione Ctrl + Enter. En seguida
ingrese el siguiente texto:

Nivel III
 Creación componentes
 Lenguaje HTML
 Visual Basic Script
 Aplicaciones DHTML
 API de Windows
 Creación de archivos de ayuda
 Empaquetado y distribución
Volver

Finalmente, debe obtener un archivo de cuatro páginas.
Guarde su archivo como MiAyuda.RTF.
El archivo de ayuda que vamos a construir va a utilizar

más de una página, y en ese caso se requiere especificar un
identificador para cada página.
Ahora procederemos a crear los identificadores de páginas.

Para ello ubicar el cursor en la primera página antes del
encabezado Microsoft Visual Basic 6.0 y seleccione del menú
Insertar la opción Nota al pie. Luego, ingresar como marca
personal el símbolo # tal como se muestra en la siguiente
figura:
Al dar click en el botón Aceptar, el cursor se ubicará

automáticamente en el pie de página donde debe digitar VBMain
delante del símbolo #.
En la misma página, ubicar el cursor delante de la palabra

Microsoft Visual Basic Nivel I y darle el atributo de subrayado
doble. Luego, escribir VB1 inmediatamente después del texto
subrayado y a este identificador darle el atributo de oculto.

Realizar acciones similares para las dos siguientes
líneas, después del texto Microsoft Visual Basic Nivel II
escribir VB2 y para Microsoft Visual Basic Nivel III escribir
VB3. No olvidar que estos identificadores deben tener atributo
de oculto.
En la segunda página ubicar el cursor antes del encabezado

Microsoft Visual Basic 6.0 y seleccione del menú Insertar la
opción Nota al pie. Luego, ingresar como marca personal el
símbolo # y luego digitar en el pie de página VB1. Luego en la
misma página, posicionar el cursor delante de la palabra Volver
y darle el atributo de subrayado doble. Escribir VBMain
inmediatamente después del texto subrayado y a este
identificador darle el atributo de oculto.
Continuar de manera similar con las siguientes páginas. Al
concluir vuelva a guardar su archivo. La primera página debe
presentar una apariencia similar a la siguiente figura:

Continuando con nuestro esquema, ahora debemos generar el
archivo HLP a partir del archivo RTF que acabamos de crear.
Para ello debemos ejecutar la aplicación Microsoft Help
Workshop. Desde el menú Inicio, elija la carpeta Programas,
luego elija la carpeta Microsoft Visual Studio 6.0, en seguida
seleccione la carpeta Herramientas de Microsoft Visual Studio
6.0, y luego haga clic sobre la aplicación Help Workshop. A
continuación se presentará una ventana similar a la mostrada en
la siguiente figura:

Seleccione el menú File y elija la opción New. A
continuación se mostrará un cuadro de diálogo similar al
siguiente:
Seleccione la opción Help Project y dar un click en el

botón OK. En seguida se presentará una ventana en la cual debe
indicar el nombre y la ruta del archivo HLP que desea generar.
Para nuestro caso digite MiAyuda y haga click sobre el botón
Guardar, tal como se indica en la figura que se muestra a
continuación:

Al hacer click en el botón Guardar, en seguida se
presentará la siguiente pantalla:
Ahora que Ud. ha creado un proyecto de ayuda, necesita

agregar la información sobre su archivo o archivos de ayuda.

¿Ha creado su archivo de ayuda MiAyuda.RTF? Si Ud. ya lo
ha creado haga click en el botón Files y en seguida aparecerá
la siguiente pantalla:
Luego dar un click en el botón Add. En seguida se

presentará la siguiente ventana en la cual debe especificar el
nombre y la ruta de su archivo de ayuda RTF. Para nuestro
seleccione MiAyuda y haga click en el botón Abrir.

En seguida se mostrará la siguiente pantalla. Ud. haga
click sobre el botón OK.
A continuación se presentará una pantalla similar a la

figura mostrada:

A continuación vamos a definir una ventana. Para ello haga
click sobre el botón Windows. En seguida aparecerá un cuadro de
diálogo en el cual debe ingresar el nombre de la ventana. Para
nuestro caso digite Main. Luego haga click en el botón OK.

En seguida se presentará el siguiente cuadro de diálogo.
En la ficha General ingrese el texto que se indica para la
barra de título de la ventana.
En la ficha Position defina el tamaño inicial de la

ventana de ayuda, para ello haga click en el botón Auto-Sizer.

En seguida se presentará una ventana de prueba similar a
la que se muestra en la figura siguiente. Cambie las
dimensiones de esta ventana según su parecer y haga click en el
botón OK.
A continuación seleccione la ficha Buttons y active los

botones que Ud. quiere agregar para su ventana.

Luego seleccione la ficha Color. En seguida se presentará
una pantalla similar a la siguiente:
Para cambiar el color de la zona de no desplazamiento o la

zona de desplazamiento pulse el botón Change al lado de la

ventana de muestra. Escoja el color que Ud. desee y entonces
haga click en el botón Aceptar.
El archivo de proyecto debe presentar una apariencia

similar a la figura mostrada:
Bueno, Ud. acaba de crear su primer proyecto de ayuda

básico. Más adelante si así lo necesitará puede cambiar
cualquiera de estas opciones. Para ello simplemente debe abrir
su archivo de proyecto de ayuda y realizar los cambios que
considere pertinente.
Finalmente guarde y pruebe su proyecto. Para lo cual debe

dar click en el botón Save and Compile. En seguida se
presentará una pantalla similar a la siguiente:

En seguida ingrese al menú File y elija la opción Run
WinHelp. Luego, se presentará una pantalla similar a la
mostrada:

En seguida dar click en el botón View Help. A continuación
se presentará una pantalla similar a la figura siguiente.
Pruebe ingresando a las otras páginas, para ello simplemente
haga click en cualquiera de los tres ítems que se muestran en
la sección Contenido.
¿Sabe Ud. como añadir una imagen de mapa de bits a nuestro

archivo de ayuda? La respuesta es bastante sencilla. Para ello
realice los siguientes pasos:
Ingrese a Microsoft Word 2000 y proceda a abrir el archivo

MiAyuda.RTF. Ubiquese en la primera página y añada el siguiente
texto {BMC CCP.BMP} antes del nombre del profesor. Luego guarde
su archivo.

A continuación cargue el Help Workshop. Luego dar click
sobre el botón Bitmaps. Se presentará una pantalla similar a la
figura siguiente:
En seguida haga click en el botón Add. A continuación se

presentará una ventana similar a la siguiente figura:

En el cuadro de diálogo anterior seleccione la ruta que se
indica. Luego haga click en el botón OK.
Finalmente, grabe y compile su proyecto de ayuda. Para

ello dar click en el botón View Help.
A continuación se presentará una ventana similar a la
siguiente figura:
Por último, veremos como utilizar nuestros archivos de

ayuda desde una aplicación Visual Basic. Para tal fin abra un
nuevo proyecto y añada un botón de comandos al formulario.
Cambie el nombre del botón por CmdAyuda y proceda a ingresar el
siguiente código:

Private Sub CmdAyuda_Click()
Dim Ayuda
Ayuda = Shell(“C:\Windows\WinHelp.exe ” & _
“C:\FundVB\Lab12\MiAyuda.HLP”, 1)
End Sub
Aplicación Nº 4
Después de crear una aplicación Visual Basic, por lo
general debemos proporcionársela al usuario final, ya sea en
disquetes, CD, a través de una red local, o bien a través de
una Intranet o Internet. Esto requiere primero empaquetar la
aplicación y después distribuirla.
Como ejemplo, vamos a generar el programa de instalación

para la aplicación creada en el ejercicio anterior. Para ello
es necesario que tenga abierta dicha aplicación.
Primero debemos iniciar el Asistente de empaquetado y

distribución. Para tal fin, del Menú Complementos seleccione la
opción Administrador de complementos y añada la utilidad
Package and Deployment Wizard. Al momento de iniciar el
Asistente se visualizará una ventana similar a la siguiente
figura:

En seguida haga click en el botón Empaquetar. Esto hará
que el Asistente le presente varios cuadros de diálogo que le
pedirán información referente al proyecto que vamos a
empaquetar y le permitirá elegir qué opciones quiere incorporar
al programa de instalación, el tipo de empaquetado, la carpeta
donde se almacenará el paquete de instalación, qué archivos
desea incluir adicionalmente en el paquete, qué grupos y
elementos de grupo del menú Inicio se deberán crear en el
equipo del usuario final durante la instalación de la
aplicación, etc. A medida que avanza, si necesita más
información consulte al Jefe de Práctica.
Una vez concluido el proceso de empaquetado cierre

Microsoft Visual Basic. Luego haga click en el menú Inicio y
seleccione la opción Ejecutar. Seguidamente ingrese la ruta de

nuestro programa de instalación y dar click en Aceptar, tal
como se indica en la figura:
En esos instantes se dará inicio a la instalación de

nuestra aplicación. Concluido este proceso, seleccione el menú
Inicio, carpeta Programas y ubique la carpeta que contiene la
aplicación. Finalmente proceda a ejecutar su aplicación.
Fin de las prácticas de laboratorio.

Suerte.

Guía VB - N3

Cargado por

Información del documento

Descripción original:

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Guía VB - N3

Cargado por

Copyright:

Formatos disponibles

GUÍA DE LABORATORIO

Elaborado por Carlos Castillo Peralta [email protected] 1

La presente Guía de Laboratorio de Microsoft Visual Basic,

se elaboró con la finalidad de complementar la parte teórica

con la parte práctica del curso. Los problemas presentan un

grado de dificultad gradual, es decir, en cada práctica primero

se comienzan con problemas muy sencillos con la finalidad de

que el estudiante esclarezca dudas y quede claro en los

conceptos asimilados en la teoría, y luego en los problemas

posteriores se va incrementando el nivel de dificultad.

Esta guía explora una gran variedad de materias y contiene

muchos problemas recopilados a lo largo de varios años de

experiencia. Espero que satisfaga las necesidades de los

estudiantes y colegas, ya que ha sido elaborada teniendo en

cuenta los objetivos de aprendizaje del curso.

Si desean compartirla con otros colegas, me agradaría

mucho que lo hicieran, con la única condición de que siempre se

respete el derecho del autor.

Desde ya les deseo la mejor de las suertes en el

aprendizaje de Microsoft Visual Basic.

Lima, Diciembre del 2000

Elaborado por Carlos Castillo Peralta [email protected] 2

Microsoft Visual Basic

· Crear y utilizar clases dentro de una aplicación Visual

Elaborado por Carlos Castillo Peralta [email protected] 3

A continuación proceda a ingresar el siguiente código para

Public Property Get Radio() As Variant

Public Property Get Area() As Variant

Luego proceda a ubicar los siguientes controles en el

A continuación proceda a establecer las propiedades según

Elaborado por Carlos Castillo Peralta [email protected] 5

Una vez que ha establecido las propiedades indicadas,

Private Sub Form_Load()

Private Sub Form_Unload(Cancel As Integer)

Private Sub TxtRadio_Change()

Elaborado por Carlos Castillo Peralta [email protected] 6

Elaborado por Carlos Castillo Peralta [email protected] 7

En seguida añada un nuevo proyecto EXE estándar. Esto lo

La ventana del Explorador de proyectos debe presentar la

Elaborado por Carlos Castillo Peralta [email protected] 8

Private Sub UserControl_Paint()

Elaborado por Carlos Castillo Peralta [email protected] 9

Cierre todas las ventanas abiertas y haga un sólo click

Luego, establezca como inicial el formulario

Elaborado por Carlos Castillo Peralta [email protected] 10

En este momento, Ud. acaba de terminar el diseño de su

Elaborado por Carlos Castillo Peralta [email protected] 11

En la ventana anterior debe activar las casillas de

En seguida el menú Complementos deberá presentar la

Elaborado por Carlos Castillo Peralta [email protected] 12

Haga click con el ratón sobre el botón << y a continuación

Elaborado por Carlos Castillo Peralta [email protected] 14

Para probar el control abra el formulario

Elaborado por Carlos Castillo Peralta [email protected] 15

Guarde y luego ejecute su aplicación, el resultado será

Al hacer click sobre el botón Aceptar, se presenta la

Elaborado por Carlos Castillo Peralta [email protected] 16

Al igual que en la aplicación anterior crear el grupo de

Elaborado por Carlos Castillo Peralta [email protected] 17

Para diseñar nuestro control utilizaremos un control

Private Sub UserControl_Resize()

Elaborado por Carlos Castillo Peralta [email protected] 18