1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Label1 Label2 Label3 Label4 Drive1 Dir1 File1 Image1 Nombre LblUnidad Caption Unidad Nombre LblCarpeta Caption Carpeta Nombre LblArchivo Caption Archivo Nombre LblVista Caption Vista previa Nombre Drive1 Nombre Dir1 Nombre File1 Pattern *.JPG Nombre ImgVista Stretch True Seguidamente proceda a ingresar el código que se indica a continuación: Private Sub Drive1_Change() Pág. 92
On Error GoTo DRIVE_ERROR Dir1.Path = Drive1.Drive Exit Sub DRIVE_ERROR: End Sub MsgBox “ERROR: Unidad no preparada”, vbCritical, “Error” Exit Sub Private Sub Dir1_Change() End Sub File1.Path = Dir1.Path Private Sub File1_Click() End Sub Dim ARCHIVO As String ARCHIVO = File1.Path & “\” ARCHIVO = ARCHIVO & File1.List(File1.ListIndex) ImgVista.Picture = LoadPicture(ARCHIVO) La instrucción On Error activa una rutina de control de errores y especifica la ubicación de la misma en un procedimiento. LA FUNCIÓN MSGBOX A menudo habrá situaciones en las cuales tendrá que presentar algún mensaje (por ejemplo una pregunta) y en función Pág. 93
- Page 41 and 42: Un uso abusivo de la sentencia GoTo
- Page 43 and 44: numeración comience en 1, debe ing
- Page 45 and 46: REGISTROS Un registro es un nuevo t
- Page 47 and 48: Una función es un procedimiento qu
- Page 49 and 50: MsgBox (Str(RESP)) Paso de argument
- Page 51 and 52: palabra reservada ByVal a la declar
- Page 53 and 54: Next End Sub MsgBox “La suma es S
- Page 55 and 56: CONTROLES BÁSICOS Los controles b
- Page 57 and 58: Los eventos asociados a un cuadro d
- Page 59 and 60: 6 cajas de texto 3 botones de coman
- Page 61 and 62: Command2 Command3 Nombre CmdAceptar
- Page 63 and 64: En el código anterior hemos utiliz
- Page 65 and 66: A manera de ejemplo vamos a desarro
- Page 67 and 68: Option3 Check1 Check2 Check3 Check4
- Page 69 and 70: Private Sub ChkSubrayado_Click() If
- Page 71 and 72: Los métodos que se pueden utilizar
- Page 73 and 74: indica: Form1 Label1 Label2 Label3
- Page 75 and 76: End Sub LstSeleccionar.AddItem TxtC
- Page 77 and 78: Para el desarrollo de la presente a
- Page 79 and 80: End Sub Matriz(0, 0) = “Castillo
- Page 81 and 82: Cronómetro Un cronómetro sirve pa
- Page 83 and 84: Seguidamente proceda a ingresar el
- Page 85 and 86: La posición más a la izquierda se
- Page 87 and 88: indica: Form1 Label1 Label2 Label3
- Page 89 and 90: End Sub PicFondo.BackColor = RGB(HS
- Page 91: puede seleccionar la unidad actual
- Page 95 and 96: 1 Aceptar y Cancelar vbOKCancel 2 A
- Page 97 and 98: Para ello proceda a ubicar los sigu
- Page 99 and 100: CAPÍTULO 5 EL FORMULARIO Un formul
- Page 101 and 102: Nota Un twip es una unidad independ
- Page 103 and 104: Para el desarrollo de la presente a
- Page 105 and 106: Command2 Nombre CmdVolver Caption &
- Page 107 and 108: Para el desarrollo de la presente a
- Page 109 and 110: Private Sub LstTipoForm_DblClick()
- Page 111 and 112: Como ejemplo vamos a construir la s
- Page 113 and 114: Seguidamente proceda a declarar la
- Page 115 and 116: No olvide establecer la propiedad M
- Page 117 and 118: CREACIÓN DE MENÚS Un menú es un
- Page 119 and 120: • Para diferenciar un elemento de
- Page 121 and 122: Para probar el menú que acaba de c
- Page 123 and 124: Una barra de herramientas contiene
- Page 125 and 126: Se ha de presentar un cuadro de di
- Page 127 and 128: El lector debe continuar con este p
- Page 129 and 130: Para ello ubicar un control StatusB
- Page 131 and 132: CREACIÓN DE UN MENÚ CONTEXTUAL Un
- Page 133 and 134: Private Sub MnuToolsSol_Click() End
- Page 135 and 136: CONTROL ANIMATION El control Animat
- Page 137 and 138: Propiedad Descripción Color Especi
- Page 139 and 140: Al hacer click en el botón “Abri
- Page 141 and 142: Para ello proceda a crear un nuevo
Label1<br />
Label2<br />
Label3<br />
Label4<br />
Drive1<br />
Dir1<br />
File1<br />
Image1<br />
Nombre LblUnidad<br />
Caption Unidad<br />
Nombre LblCarpeta<br />
Caption Carpeta<br />
Nombre LblArchivo<br />
Caption Archivo<br />
Nombre LblVista<br />
Caption Vista previa<br />
Nombre Drive1<br />
Nombre Dir1<br />
Nombre File1<br />
Pattern *.JPG<br />
Nombre ImgVista<br />
Stretch True<br />
Seguidamente proceda a ingresar el código que se indica a<br />
continuación:<br />
Private Sub Drive1_Change()<br />
Pág. 92
Change language