Esta es una guía de Visual Basic, no contiene todo lo que es Visual Basic, pero desde luego que está bastante bien como punto de partida para el que quiera tener una guía rápida acerca de algunos aspectos de Visual Basic.

Tengo intención de ir ampliando esta guía cuando tenga algo de tiempo y según vaya aprendiendo mas aspectos de dicho lenguaje, así que por el momento y como no tengo tiempo para mas, pues habrá que conformarse con lo que hay.

En el mismo paquete que esta guía también vienen una recopilación de prácticas hechas en Visual Basic, espero que os sirvan de algo.

Variable -> Lugar donde se almacenan temporalmente los datos.

Nombre - empezar por letra

Definición de variables

DIM nombre_variable AS tipo_dato

- Entero (Integer) – 32768 a 32767 %(no decimales)

- Largo (Long) - 147483368 a 214 millones & (no decimales)

- Simple (Single) – 1.4E-45 a 34E68 !(si decimales)

- Doble (Double) – 4.9E-324 a 1.7E308 #(si decimales)

- Carácter (string) – 0 a 65.500

- Otras

- Bytes (Byte) - enteros de 0 a 255

- Boolean (true,false) - verdadero o falso

- Fecha (Date) Fecha

- Variant – tipo especial

Case 0

.......................

Case 1

.......................

End Select

Si se desea utilizar una estructura de case else se hace asi:

Select case n

Case 1

...........

Case 2

...........

Case else

...........

End select

For n = 1 to 20 step 1

...........

Next n

While n < 0

..................

wend

Do

...............

loop until n = 1

Do while n = 1

...............

loop

If <condicion> then

.............

else

.............

end if

Con la propiedad .additem se van añadiendo elementos al combo.

Este controlador dispone de las siguientes propiedades:

.listcount – cuenta el número de elementos

.additem – añade elemento

.listindex – devuelve el numero de elemento seleccionado

.list(n) – devuelve elemento n

.removeitem(n) – borra el elemento n

.selected(n) – true o false dependiendo de si el elemento esta seleccionado o no lo esta

Sirve para agrupar varios controles de tipo botón y que se activen las posibilidades correspondientes a poder seleccionar uno de los agrupados dentro de este controlador.

Ejecuta lo que tenga dentro al seleccionar, se agrupa con controlador frame para seleccionar uno de varios.

Todos apuntan a una misma función la cual tiene un parámetro "index" que indica el botón pulsado. Se crea un botón, se le pone el index a cero (propiedad) y desde el se crean otros con ctrl-c y ctrl-v (copiar y pegar).

Si se introduce la siguiente instrucción:

Msgbox("...............................")

Saldrá un cuadro conteniendo el texto entre comillas y pedirá pinchar en enter para continuar.

Son los deslizadores verticales y horizontales.

.max – número de elementos máximo

.min – número de elementos mínimo

.value – valor actual

Tambien se puede poner desde la ventana de propiedades.

Se utiliza la función RGB(r,g,b) siendo los parámetros que se le dan la intensidad de color rojo, verde y azul. El valor que devuelve se le pasa a label.backcolor = rgb(.......).

Una vez creados los controladores drive, dir y filelist se utilizan así:

Dentro de drive – dir1.path = drive1.drive

Dentro de dir - dir1.path = dir1.path

Dentro de filelist – (nada si es solo visualizar)

Para ver un fichero de imagen seleccionado en filelist:

.pattern = "*.bmp" muestra en filelist solo los bmp’s

se crea control image

image.stretch – centra imagen (=true)

image.picture=load.picture (fichero)

En filelist se indica el icono inicial y se activa el drag

.dragicon = loadpicture("fichero.ico")

.drag

En listbox

Procedimiento dragdrop – list.additem file1.path & file1

Procedimiento dragover – file1.dragicon = loadpicture("fichero2.ico") (indica icono final)

En dragover el parámetro state indica el estado de movimiento.

Right(cadena,1) - devuelve primer carácter por la derecha

Left(cadena,1) – devuelve primer carácter por la izquierda

Len(cadena) – tamaño cadena

Se ejecuta cuando se pulsa una tecla.

Keyascii – valor ascii de la tecla pulsada

Load command1(3) – el 3 es el valor index (si lo tiene)

Command1(3).visible = true

.left = n

. up = n

. caption = "............"

unload command1(3) – borra el boton creado

Dada una tabla de nombre tabla y cuyo maximo elemento esta en posición 10.

Dim tabla(10)

Function ordena_por_intercambio

Dim mayorpos,m as single

Dim final as single

Final = 10

Mayorpos = 1

Do

For m = 1 to final step 1

If val(tabla(m)) > val(tabla(mayorpos)) then mayorpos = m

Next m

Aux = val(tabla(final(final))

Tabla(final) = val(tabla(mayorpos))

Tabla(mayorpos) = val(aux)

Final = final – 1

Mayorpos = 1

Loop until final = 1

End function

Private function ----------------- (byval operando) <- valor

----------------- (operando) <- referencia

.rows -> número filas

.cols -> número columnas

Escribir un dato en la posicion x,y:

.col = x

.row = y

.text = ...........

Propiedad DataBaseName – nombre de base de datos

Comment – tipo de base de datos

RecordSource – establece la tabla de la base de datos a utilizar

El control permite ir avanzando o retrocediendo registros. En un textbox elejido se busca DataField y DataSource dentro de Dato (ordenado por categorías).

En DataSource se pone el control data referenciado y en DataField se seleciona el campo que se mostrara según se mueve el control data.

Propiedad EOFAction (que hacer ante un finde fichero)

MoveLast – va al último registro que hay datos

EOF – se llega a un registro en blanco

AddNew – se genera un registro en blanco para añadir datos

El data control es feo y en vez de eso se van a utilizar otros botones que hagan la misma función.

Data1.Recordset.Movefirst – va al primer registro

.Movenext – va al siguiente registro

.Moveprevious – va al registro anterior

.MoveLast – va al último registro

.EOF – comprueba si es fin de fichero

.BOF – comprueba si es principio de fichero

.AddNew – añade un registro y lo edita

.Delete – borra el registro actual

Esto da errores cuando se esta al principio y se hace un moveprevious, esto se arregla comprobando con .BOF antes de retroceder (se pregunta si es principio de fichero y si no se mueve).

En el caso de final de fichero seria igual pero con .EOF.

Data1.Recordset.Field(n) -> numero campo

.("Nombre") -> nombre del campo

text1.enabled = true -> permite editar controles text

= false -> no permite editar controles text

.boundcolumn -> campo enlazado en data2

lo que se guarda internamente

.datafield -> campo de enlace desde data1

.datasource -> data1 (origen)

.listfield -> campo a mostrar en data2

lo que se muestra

.rowsource -> data2 (origen del campo a mostrar)

.boundtext -> leer lo que guarda

Primero se introducen las imágenes.

En propiedades>personalizado>subcarpeta imágenes insertar imagen y seleccionar buscando las que se quieren poner.

Despues se introduce un control treeview y en la propiedad personalizado se pone imagelist el nombre edl controlador imagelist creado anteriormente. Con esto se prepara el control treeview para que en cada nodo muestre las imágenes de imagelist.

Ahora hay que crear el nodo padre, lo primero que hay que definir son los nodos.

DIM <nombre> as node

Definir el nodo padre

DIM NP as node

Nodo padre

Set NP = T1.Nodes.Add(,,,"Agenda",1,2)

Nodos hijo

For i = 1 to 10 step 1

Set n2 = t1.nodes.add(np,4,i,4,3)

Next i

T1.Nodes.Clear – borrar nodos del treeview

Se crea una variable de tipo fecha:

Fecha = 1/1/99

Luego se utiliza el comando format para extraer datos de la fecha

Format(fecha,"d mmmm")

Para ver las posibilidades de el comando format se busca en la ayuda de Visual Basic.

Para calcular el numero de dias transcurridos entre dos fechas:

Dias = #31/12/1999# ... #1/1/1998#

Se utiliza a modo de barra que va incrementandose para poder ver lo que queda para acabar un proceso.

.Min -> Valor mínimo

.Max -> Valor máximo

.Value -> Valor actual

Se hace en base a utilizar la instrucción:

Progressbar.value = progressbar.value + 1

Crear un columnheader

DIM col as columnheader

Se añade columnas (tantas como se necesite)

Set col = lv1.columnheaders.add(,,"texto",ancho)

En "texto" se pone lo que se quiere que aparezca en la columna

En "ancho" se pone el valor del ancho de la columna

Para ver la visualiazacion hay 4 formas:

.view = 0

.view = 1

.view = 2

.view = 3 (este es el que se utiliza para ver en columnas)

Para añadir la información:

Crear variable DIM lista as ListItem

Set lista = lv1.listitems.add(,,"texto",1,2)

A continuación se pone lo que se quiere que aparezca en cada dato de la lista

Lista.subitems(1) = ...........

Lista.subitems(2) = ............

En personalizado de listview se pone el control imagelist para que se seleccionen las imágenes para poner en el control listview.

Data1.Recordset.Edit

Data1.Recordset("codigo") = 1

Data1.Recordset("nombre") = "Pepe"

Data1.recordset("Edad") = 23

Data1.Recordset.Update – (Graba registro)

Data1.recordset.cancelupdate – (Cancela grabación)

Data1.Recordset.Addnew

( Editar registro )

Data1.Recordset.Update

Data1.recordset.Delete

Se declara la variable para el criterio

Dim criterio as string

Se declara un criterio de busqueda

Criterio = "codigo=" & str(tex1.text) (text1.text es la cadena que se busca)

C2 = "nombre=""" & str(text2.text) & """ nombre = "pepe" (suponiendo que text2.text=pepe)

Se busca el primer registro que cumpla el criterio

Data1.recordset.findfirst criterio

Se ejecutan las instrucciones pertinentes dependiendo de si ha sido encontrado o nó.

If data1.recordset.nomatch then

No encontrado

Else

Encontrado

End If

En este caso "no encontrado" implica las intrucciones que se ejecutarán en caso de que no se encuentre el registro que cumpla el criterio de búsqueda, y "encontrado" implica las instrucciones que se ejecutarán en caso de que se encuentre un registro que cumpla el criterio de búsqueda.

Para buscar en bases Access hay que buscar como mes/dia/año

1 –> fecha = format (fecha, "m d yy")

2 -> criterio = "fecha=" & "#" & fecha & "#" & ""

En Visual Basic antes de buscar fechas hay que aplicarles el formato correcto, por eso antes de establecer el criterio, se adapta la fecha al formato que se necesita.

Criterio equivale al criterio de búsqueda.

Listview1.selecteditem.subitems(1) = ..............

Esta instrucción sirve para modificar el contenido de un listview.

Hay dos tipos de apertura de formularios:

• modal – las instrucciones que hay despues del show no siguen ejecutandose.
• No modal – las instrucciones que hay despues del show se ejecutan.

Form2.show 1 -> apertura de formulario modal.

Form2.show -> apertura de formulario no modal.

Para descargar un formulario se emplea la instrucción "unload form2".

Se hace una consulta desde Access, luego se accede a ella desde Visual Basic como si fuera una tabla más.

Luego desde Visual Basic se pone:

Data1.recordsource = "select ..................."

Todo lo que haya entre comillas (empezando por select) equivale a la instrucción sql.

En la propiedad datasource se pone el control data deseado y entonces saldrá una tabla con su contenido.

ALEATORIO

Hay que definir unos registros de tamaño fijo.

Type reg amigo

Nombre as char*80;

Dir as char*80;

End type

1. apertura

open path/fichero for random as numarchivo len = tamaño_registro

2. lectura/escritura

get -> get numarchivo numeroregistro variable

put -> put numarchivo numeroregistro variable

3. Close numfichero

BINARIO

Tamaño de registro variable

Open path/fichero for binary as intarchivo

Lectura/escritura

Get nuamrchivo [posicion] variables

Put nuamrchivo [posicion] variables

VB – TRATAMIENTO DE ARCHIVOS

Abrir – open

Leer – get

Escribir – put

Cerrar – close

Se puede acceder como secuencias, aleatorio o binario.

SECUENCIAL

Leer

Open path/fichero for input/output/append as numarchivo

Antes de abrirlo hay que obtener numero de archivo

Numarchivo = freefile numarchivo = entero

Escribir y leer

Write (con formato)

Print (sin formato)

Write #numarchivo <variable> (input)

Print #numarchivo <variable> (input)

Leer – input

Leer sin formato – line input

Cerrar

Close (listanumarchivo)

CREACION DE UNA BASE DE DATOS

Pasos:

1 – Definir variables para cada componente de la base de datos

Dim bd as database

Dim tbd as table

Dim idx as index

Dim rel as relation

Dim fld as field

Añadir componente DAO

2 – Crear la BD – Create Database

Set bd = create database(".....")