1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Command1 Command2 Command3 Command4 Command5 Nombre CmdAgregar Caption Picture C:\FundVB\Bitmaps\AddItem.Bmp Style 1-Graphical Nombre CmdAgregarTodo Caption Picture C:\FundVB\Bitmaps\AddAll.Bmp Style 1-Graphical Nombre CmdQuitar Caption Picture C:\FundVB\Bitmaps\Remove.Bmp Style 1-Graphical Nombre CmdQuitarTodo Caption Picture C:\FundVB\Bitmaps\RemoveAll.Bmp Style 1-Graphical Nombre CmdAnnadir Caption &Añadir Default True Seguidamente proceda a ingresar el código que se indica a continuación: Private Sub CmdAnnadir_Click() Pág. 74
End Sub LstSeleccionar.AddItem TxtCurso TxtCurso = “” TxtCurso.SetFocus Private Sub CmdAgregar_Click() End Sub Dim CURSO As String, I As Integer CURSO = LstSeleccionar.Text I = LstSeleccionar.ListIndex If LstSeleccionar.ListIndex >= 0 Then End If LstProgramado.AddItem CURSO LstSeleccionar.RemoveItem I Private Sub CmdQuitar_Click() End Sub Dim CURSO As String, I As Integer CURSO = LstProgramado.Text I = LstProgramado.ListIndex If LstProgramado.ListIndex >= 0 Then End If LstSeleccionar.AddItem CURSO LstProgramado.RemoveItem I Private Sub CmdAgregarTodo_Click() Dim I As Integer Pág. 75
- Page 23 and 24: IDENTIFICADORES bytes + 1 byte por
- Page 25 and 26: La sentencia anterior le puede indu
- Page 27 and 28: Operadores de cadenas de caracteres
- Page 29 and 30: Como puede observar, el resto de lo
- Page 31 and 32: Para que pueda ejecutar el código
- Page 33 and 34: SENTENCIAS_1 ElseIf CONDICIÓN_2 Th
- Page 35 and 36: En este caso se comprueba el valor
- Page 37 and 38: ser conocido de antemano. Su sintax
- Page 39 and 40: condición puede ser verificada ant
- 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: indica: Form1 Label1 Label2 Label3
- 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 and 92: puede seleccionar la unidad actual
- Page 93 and 94: On Error GoTo DRIVE_ERROR Dir1.Path
- 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
End Sub<br />
LstSeleccionar.AddItem Txt<strong>Curso</strong><br />
Txt<strong>Curso</strong> = “”<br />
Txt<strong>Curso</strong>.SetFocus<br />
Private Sub CmdAgregar_Click()<br />
End Sub<br />
Dim CURSO As String, I As Integer<br />
CURSO = LstSeleccionar.Text<br />
I = LstSeleccionar.ListIndex<br />
If LstSeleccionar.ListIndex >= 0 Then<br />
End If<br />
LstProgramado.AddItem CURSO<br />
LstSeleccionar.RemoveItem I<br />
Private Sub CmdQuitar_Click()<br />
End Sub<br />
Dim CURSO As String, I As Integer<br />
CURSO = LstProgramado.Text<br />
I = LstProgramado.ListIndex<br />
If LstProgramado.ListIndex >= 0 Then<br />
End If<br />
LstSeleccionar.AddItem CURSO<br />
LstProgramado.RemoveItem I<br />
Private Sub CmdAgregarTodo_Click()<br />
Dim I As Integer<br />
Pág. 75
Change language