PDF de programación - Programando en serio con Visual Basic 6.0 - Segunda edición

Programando en serio con Visual Basic (Curso de programación avanzada) Segunda Edición



DAED Software – Soluciones Informáticas (2003 – 2008) Andrés Escobar Duque



Programando en serio con Visual Basic (Curso de programación avanzada) Segunda Edición



DAED Software y todas las obras, diseños y software bajo este nombre son

propiedad intelectual de Andrés Escobar. Esta obra es LIBRE y esta totalmente

permitida su copia, publicación y distribución.



Andres Escobar Duque

DAED Software - [email protected]

Programando en Serio con Visual Basic 6.0 (Segunda Edición)



2008



Visual Studio ® Visual Basic ® Microsoft Office ®
Son marcas registradas de Microsoft Corporation



DAED Software – Soluciones Informáticas (2003 – 2008) Andrés Escobar Duque

Programando en serio con Visual Basic (Curso de programación avanzada) Segunda Edición



LLoo nnuueevvoo ddee llaa SSeegguunnddaa EEddiicciióónn


La segunda edición de este curso se ha diseñado con el fin de pasar a un nivel
mas avanzado en el diseño de aplicaciones y manejo de VB 6.0. El formato del
libro se ha cambiado a PDF para garantizar la integridad del curso y su
distribución.

El curso conserva los temas antiguos pero con algunas modificaciones que
incluyen ampliación de la información y nuevos ejemplos. Como nuevos temas
el curso incluye:



Manipulación de registros y campos de una base de datos
Consultas con SQL
Diseño de la IGU (Interfaz Grafica de Usuario)
Sonidos para la interfaz



DAED Software – Soluciones Informáticas (2003 – 2008) Andrés Escobar Duque

Programando en serio con Visual Basic (Curso de programación avanzada) Segunda Edición



CCoonntteenniiddoo



● Controles intrínsecos (definición, uso)
● Controles extrínsecos (definición, uso)
● Propiedades de un proyecto
● Elementos de un proyecto
● Eventos, procedimientos
● Algunas sentencias

● Manejo de bases de datos
● Manipulación de registros y campos de una base de datos
● Consultas con SQL



● La API de Windows
● Funciones

● Activex - Creación de un control Activex

● Diseño de la IGU (Interfaz Grafica de Usuario)
● Sonidos para la interfaz



● Optimizar la Programación



DAED Software – Soluciones Informáticas (2003 – 2008) Andrés Escobar Duque

Programando en serio con Visual Basic (Curso de programación avanzada) Segunda Edición



PPrroollooggoo


Todos tenemos una gran capacidad de auto – enseñanza, este y muchos otros
manuales y cursos estimulan ese sentido de autoaprendizaje que tienes tu
(lector), y de esto estoy seguro, sino, no te hubieras tomado la molestia de
descargar este curso.

Entrando en materia, este no es exactamente un curso para "sabiondos" es un
introductorio a la programación avanzada, es por así decirlo un empujoncito
para aquellos que ya saben lo básico y quieren saber mas, así que por esta
razón algunas explicaciones y ejemplos no van a excederse en "complicadas" y
mantendré un nivel básico en algunos temas.

Como es costumbre mía, no hay mucho aquí para los expertos, ni para todos
aquellos que me escriben diciéndome que mis tutoriales y cursos son muy
sencillos, así son, porque así me lo propongo. Además dar todo el material
“complicado” no tiene mucho sentido, ya que un verdadero programador se
hace a si mismo y se desvela mucho tratando de encontrar soluciones. No
pierdas las ganas y no esperes que todo te lo den listo.



DAED Software – Soluciones Informáticas (2003 – 2008) Andrés Escobar Duque

Programando en serio con Visual Basic (Curso de programación avanzada) Segunda Edición



CCoonnttrroolleess IInnttrríínnsseeccooss

Los controles intrínsecos son aquellos que aparecen "cargados por defecto" en
el cuadro de herramientas con abres VB. Estos se diferencian de los
extrínsecos, por que una aplicación creada únicamente con estos controles (y
sin agregar referencias o librerías) se puede distribuir sin instalador (algunas
veces).


TextBox (Caja de texto) :
Se utiliza para el ingreso y validación de datos o información.


Algunas Propiedades
Text: Almacena la cadena de caracteres que contenga el control.
DataFiled: Enlaza en control con un campo de base de datos.
DataSource: Enlaza el control con un origen de manipulación de base de datos.
MultiLine: Permite escribir varias líneas en el control.
ScrollBars: Agrega barras de desplazamiento al control si esta MultiLine = True
PasswordChar: Es el carácter que ocultara el texto que se escribe en el
control, por ejemplo PasswordChar = * (Asterisco).
Locked = Permite bloquear la escritura sobre el Textbox.

Hacer que un Textbox solo reciba números:
Podemos utilizar el siguiente condicional en el evento Validate que no nos
permitirá salir del control si lo escrito en él no son números:
Private Sub Text1_Validate(Cancel As Boolean)
If Not IsNumeric(Text1.Text) Then
Cancel = True
Else
Text2.SetFocus
End If
End Sub
Pero para que las teclas "de letras" o "símbolos" no se puedan escribir es
necesario:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> Asc("9") Then
If KeyAscii <> Asc("8") Then
If KeyAscii <> Asc("7") Then
If KeyAscii <> Asc("6") Then

DAED Software – Soluciones Informáticas (2003 – 2008) Andrés Escobar Duque

Programando en serio con Visual Basic (Curso de programación avanzada) Segunda Edición



If KeyAscii <> Asc("5") Then
If KeyAscii <> Asc("4") Then
If KeyAscii <> Asc("3") Then
If KeyAscii <> Asc("2") Then
If KeyAscii <> Asc("1") Then
If KeyAscii <> Asc("0") Then
If KeyAscii <> 8 Then
If KeyAscii <> 32 Then
KeyAscii = 0
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

Formatear un Textbox
Esto se utiliza para que un Textbox muestre un numero separados por unidades
y decimales.
Private Sub Text1_LostFocus()
If Text1.Text = "" Then
Text1.Text = "0,00"
End If
Text1 = Format(CCur(Text1.Text), "###,###,###,##0.00")
End Sub
Para realizar operaciones matemáticas con un Textbox formateado se debes
cambiar la función Val por CDbl, ejemplo:
txResultado = CDbl(Text1) + CDbl(Text2)

Hacer que un TextBox solo escriba en Mayúsculas
Independientemente de que este activado el BloqMayus, el textbox siempre
mostrara texto en mayúsculas.
Private Sub Text1_Change()
Text1.Text = UCase(Text1.Text)

DAED Software – Soluciones Informáticas (2003 – 2008) Andrés Escobar Duque

Programando en serio con Visual Basic (Curso de programación avanzada) Segunda Edición



Text1.SelStart = Len(Text1)
End Sub

Autoseleccionar el texto de un textbox al recibir el foco
Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
End Sub



CommandButton (Botón de Comando):



Este control permite encapsular procedimientos para que sean utilizados
por el usuario con solo hacer click sobre él.


Algunas Propiedades
Cancel: Permite ejecutar el código escrito en el control presionando "Esc"
Default: Permite ejecutar el código escrito en el control presionando "Enter"
Style: Puede ser Graphical o Standard. Si es Graphical permite cambio de
color entre otras.
Picture: Carga una imagen para el CommandButton si su propiedad Style es
Graphical.



Label (Etiqueta):
Muestra la información, los títulos o los subtítulos que deseemos.


Algunas Propiedades
Alignment: Permite alinear el texto hacia la izquierda, derecha o centro.
BackStyle: Permite hacer que el fondo de la etiqueta sea transparente o
solidó.
AutoSize: Ajusta el tamaño del control a la longitud del texto.
WordWrap: Muestra el texto (cuando es mucho) en varias líneas.

Hacer que una etiqueta cambie de color al pasar el mouse
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlack
End Sub


DAED Software – Soluciones Informáticas (2003 – 2008) Andrés Escobar Duque

Programando en serio con Visual Basic (Curso de programación avanzada) Segunda Edición



Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue
End Sub



CheckBox (Casilla de verificación)



Permite que se ejecute un procedimiento dependiendo de la verificación
del Checkbox


Algunas Propiedades
Style: Si es Graphical convierte el control en un botón de chequeo.
Value: Activa o desactiva el valor de verificación. Cheked (Verifica), Uncheked
(Desverifica) o Grayed (Inhabilitado)

Cambiar una etiqueta dependiendo del valor del ChekBox
Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.Font.Bold = True
Else
Label1.Font.Bold = False
End If
End Sub



OptionButton (Botón de opción)
Permite que un código se ejecute teniendo en cuenta el valor de este
control.


Algunas Propiedades
Value: Puede ser (True) mostrando un punto negro o (False) quitándolo.

Mostrar la opción elegida
If Option1.Value Then
Text1.Text = " 01 Seleccionada Opcion 1"
ElseIf Option2.Value Then
Text1.Text = " 02 Seleccionada Opcion 2"
End If

DAED Software – Soluciones Informáticas (2003 – 2008) Andrés Escobar Duque

Programando en serio con Visual Basic (Curso de programación avanzada) Segunda Edición



ComboBox (Caja Combo)
Permite escoger de una lista de opciones creadas un elemento.


Algunas Propiedades
List: Permite crear uno a uno los elementos de la lista del ComboBox
Style: Permite cambiar a un combo simple o lista.
Sorted: Si es (T