Comandos de visual basic

Centro de Estudios Tecnológicos Industrial y de Servicios No. 1
Resumen de Comandos Visual Basic
MANEJO DE ARCHIVOS Abrir para Lectura Open Archivo For Input As Numero Abrir para Escritura Open Ruta.Text For Output As Numero Fin del Archivo Booleano EOF(Numero) Largo del Archivo (Cantidad de Caracteres) LOF(Numero) Leer Linea por Linea While Not EOF(Numero) Line Input #Numero, LineaTexto WendLeer Caracter a Caracter Input(Cantidad, NumeroArchivo) Leer Todo el Contenido contenido = Input(LOF(Numero), Numero) Numero Libre Numero = FreeFile Guardar Contenido Print #Numero, ContenidoArchivo Escribir contenido, Agregando salto de linea al final y poniendo todos los caracteres (“”) write #1, "Texto" Cerrar Archivo Close Numero Cuadro de Dialogo para Guardar CuadroDialogo.ShowSave Cuadro deDialogo para Abrir CuadroDialogo.ShowOpen Filtro de Cuadro de Dialogo CuadroDialogo.Filter = "*.TXT" Mostrar Archivos de un Directorio Private Sub Directorio_Change() Archivo.Path = Directorio.Path End Sub Mostrar Carpetas de una Unidad Private Sub Disco_Change() Directorio.Path = Disco.Drive End Sub Nombre del Archivo Archivo.FileName

1

Centro de Estudios Tecnológicos Industrial y deServicios No. 1
Resumen de Comandos Visual Basic Asesor Mireya García

MANEJO DE STRINGS Salto de Linea 1- SaltoDeLinea = Chr(13) & Chr(10) 2- SaltoDeLinea = vbCrLf Buscar un String dentro de Otro Resultado = InStr(1, LineaTexto, Busqueda.Text) Comprar 2 Strings (Diferente -1 Igual 0) StrComp(String1, String2) Reemplazar Esto por EstOtro en la String Replace(String, Esto, EstoOtro) Numero decaracteres de una cadena Len(String) Mayusculas UCase(String) Minuscula LCase(String) Caracteres de Derecha a Izquierda Right(String, Cantidad) Caracteres de Izquierda a Derecha Left(String, Cantidad) Caracteres desde una posición Mid(String, Posicion, Cantidad) Mid(String, Posicion) String a Numero Val(String) Numero a String Str(Numero) Obtener Codigo ASCII de un Carácter Asc(Caracter) Obtener Carácterde un Codigo ASCII Chr(Codigo) OTROS Fecha Date Cerrar Aplicación End ARREGLOS Arreglo (0 – 99)

2

Centro de Estudios Tecnológicos Industrial y de Servicios No. 1
Resumen de Comandos Visual Basic Asesor Mireya García
Dim Numeros(100) As Integer Cambiar Tamaño de Un Arreglo (Se pierden los datos) ReDim Arreglo(N) FUNCIONES Y PROCEDIMIENTOS Funciones Function Sumar(j As Integer, k AsInteger) i=j+k End Function Utilización t = Sumar(4, 3) Procedimiento Private Sub Sumar (j As Integer, k As Integer) i=j+k End Sub Utilización Sumar j:=10, k:=21 Se utiliza "Optional" para indicar los parametros oipcionales EJEMPLO: Private Sub Procediminto (x As Double, Optional n As Integer) 'instrucciones End Sub BOTONES Private Sub Boton_Click() End Sub ComboBox Valor SeleccionadoCombo.ItemData(Combo.ListIndex) Agregar Datos Combo.AddItem "Primer Articulo" Combo.ItemData(0) = 1234 Combo.AddItem "Segundo Articulo" Combo.ItemData(1) = 5678 DEFINICION DE VARIABLES GLOBALES Option Explicit CUADROS DE MENSAJES MsgBox(Texto, Tipo, Titulo) Titulo: vbYesNoCancel vbOKCancel Respuesta: 6 YES 7 NO 2 CANCEL

vbOKOnly

VbYesNo

CUADRO PARA INGRESAR TEXTO texto = InputBox("Texto", "Titulo","default", left, top)

3

Centro de Estudios Tecnológicos Industrial y de Servicios No. 1
Resumen de Comandos Visual Basic Asesor Mireya García

CONDICIONALES IF If x > y Then Else EndIf WHILE While (menor < mayor) Wend

BASES DE DATOS (0) Definir la Conexión y el RecordSet a Utilizar Dim Conexion As ADODB.Connection Dim Record As ADODB.Recordset (1) Crear Nueva Conexion Set Conexion = NewADODB.Connection (2) Abrir Conexión, Primero proveedr y luego base de datos Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source = bd.mdb; " (3) Crear Nuevo RecordSet Set Record = New ADODB.Recordset (4) Ligar Conexión al Recordset Record.ActiveConnection = Conexión (6) Realizar Consulta SQL Record.Open "Select * from Alumnos where Edad >= 22 Order By Nombre” Cantidad de Columnas...