1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Command8 Command9 Style 1-Graphical Nombre CmdEliminar Caption Picture C:\FundVB\Bitmaps\Delete.bmp Style 1-Graphical Nombre CmdSalir Caption &Salir Picture C:\FundVB\Bitmaps\Exit.bmp Style 1-Graphical Luego, proceda a transcribir el código mostrado a continuación: Private Type CURSO End Type ID_CURSO As String * 3 NOMBRE As String * 30 VACANTES As Integer PROFESOR As String * 25 ESTADO As Boolean Dim N1 As Integer, POSICION As Integer Dim REG As CURSO Private Sub MODO_EDITAR(ByVal Ok As Boolean) TxtCodigo.Locked = Not Ok TxtNombre.Locked = Not Ok Pág. 180
End Sub TxtVacantes.Locked = Not Ok TxtProfesor.Locked = Not Ok CmdNuevo.Enabled = Not Ok CmdEditar.Enabled = Not Ok CmdGuardar.Enabled = Ok CmdEliminar.Enabled = Not Ok CmdPrimero.SetFocus If Ok Then TxtCodigo.SetFocus Private Sub ABRIR_ARCHIVO() On Error GoTo ERROR_ABRIR: N1 = FreeFile() Open “C:\DATA\CURSO.DAT” For Random As # N1 Len = Len(REG) SALIR_ABRIR: Exit Sub ERROR_ABRIR: End Sub MsgBox Err.Description Resume SALIR_ABRIR: Private Sub Form_Load() Call ABRIR_ARCHIVO End Sub Private Sub Form_Activate() MODO_EDITAR False Call CmdPrimero_Click Pág. 181
- 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
- Page 143 and 144: números: Por ejemplo para N = 5 te
- Page 145 and 146: El control UpDown tiene dos botones
- Page 147 and 148: El control MonthView permite al usu
- Page 149 and 150: End Sub TxtFecha = WeekdayName(Mont
- Page 151 and 152: Para ello crear un nuevo formulario
- Page 153 and 154: El nombre de un archivo para ser re
- Page 155 and 156: cadena de caracteres que indica el
- Page 157 and 158: Para realizar alguna operación sob
- Page 159 and 160: nombre del archivo mientras éste p
- Page 161 and 162: universales, de modo que los datos
- Page 163 and 164: Los datos del archivo deben aparece
- Page 165 and 166: Función Input Retorna los siguient
- Page 167 and 168: sus prestaciones son bastante limit
- Page 169 and 170: Private Sub MnuArchivoAbrir_Click()
- Page 171 and 172: longitud), lo cuales son identifica
- Page 173 and 174: Get # NÚMERO_ARCHIVO, NÚMERO_REG,
- Page 175 and 176: La función Loc() aplicada a un arc
- Page 177 and 178: Frame1 Frame2 Frame3 Label1 Label2
- Page 179: Command3 Command4 Command5 Command6
- Page 183 and 184: End Sub POSICION = Loc(N1) + 1 If P
- Page 185 and 186: End Sub Open “C:\DATA\TEMPO.DAT
- Page 187 and 188: Permite grabar en un archivo binari
- Page 189 and 190: Por ejemplo si ingresa el mensaje
- Page 191 and 192: Como ejemplo considere los siguient
- Page 193 and 194: El ejemplo inicial (código hexadec
- Page 195 and 196: Por ejemplo, las instrucciones sigu
- Page 197 and 198: A manera de ejemplo considere la es
- Page 199 and 200: Para el dibujo de puntos se usará
- Page 201 and 202: En el ejemplo anterior se utiliza l
- Page 203 and 204: Para este ejemplo crear una nueva a
- Page 205 and 206: Para el desarrollo de la presente a
- Page 207 and 208: Control Line Line es un control gr
- Page 209 and 210: Como ejemplo de este tipo de gráfi
- Page 211 and 212: Para realizar nuestra aplicación d
- Page 213 and 214: Para el caso de las gráficas de ec
- Page 215 and 216: Luego proceda a ingresar el código
- Page 217 and 218: La matemática fractal es producto
- Page 219 and 220: Para el desarrollo de la presente a
- Page 221 and 222: En este capítulo, debido a las lim
- Page 223 and 224: La presente Guía de Laboratorio de
- Page 225 and 226: Para el desarrollo de esta aplicaci
- Page 227 and 228: Text1 Text2 Text3 Text4 Text5 Text6
- Page 229 and 230: Luego, haga doble click sobre el bo
Command8<br />
Command9<br />
Style 1-Graphical<br />
Nombre CmdEliminar<br />
Caption<br />
Picture C:\FundVB\Bitmaps\Delete.bmp<br />
Style 1-Graphical<br />
Nombre CmdSalir<br />
Caption &Salir<br />
Picture C:\FundVB\Bitmaps\Exit.bmp<br />
Style 1-Graphical<br />
Luego, proceda a transcribir el código mostrado a continuación:<br />
Private Type CURSO<br />
End Type<br />
ID_CURSO As String * 3<br />
NOMBRE As String * 30<br />
VACANTES As Integer<br />
PROFESOR As String * 25<br />
ESTADO As Boolean<br />
Dim N1 As Integer, POSICION As Integer<br />
Dim REG As CURSO<br />
Private Sub MODO_EDITAR(ByVal Ok As Boolean)<br />
TxtCodigo.Locked = Not Ok<br />
TxtNombre.Locked = Not Ok<br />
Pág. 180
Change language