1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
En caso de que el usuario elija la opción “Sí”, la aplicación debe terminar. En caso contrario, es decir si el usuario elige la opción “No”, se debe proseguir con la aplicación. Para el desarrollo del presente ejemplo, proceda a ubicar sobre el formulario un botón de comando (CmdSalir), a continuación ingresar el siguiente código: Private Sub CmdSalir_Click() End Sub Dim RESP As Integer RESP = MsgBox(“Desea terminar la aplicación?”, _ vbQuestion + vbYesNo, “Pregunta”) If RESP = vbYes Then End If End Para ilustrar mejor el uso de la función MsgBox() vamos a desarrollar la siguiente aplicación que permite mostrar los diferentes tipos de botones e iconos generados por la función. Pág. 96
Para ello proceda a ubicar los siguientes controles en el formulario: indica: Form1 List1 List2 Command1 2 cuadros de lista 1 botón de comando En seguida proceda a establecer las propiedades según se Nombre FrmFuncionMsgBox BorderStyle 3-Fixed Dialog Caption Función MsgBox Nombre LstBoton Nombre LstIcono Pág. 97
- 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 and 92: puede seleccionar la unidad actual
- Page 93 and 94: On Error GoTo DRIVE_ERROR Dir1.Path
- Page 95: 1 Aceptar y Cancelar vbOKCancel 2 A
- 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
- Page 143 and 144: números: Por ejemplo para N = 5 te
- Page 145 and 146: El control UpDown tiene dos botones
Para ello proceda a ubicar los siguientes controles en el<br />
formulario:<br />
indica:<br />
Form1<br />
List1<br />
List2<br />
Command1<br />
2 cuadros de lista<br />
1 botón de comando<br />
En seguida proceda a establecer las propiedades según se<br />
Nombre FrmFuncionMsgBox<br />
BorderStyle 3-Fixed Dialog<br />
Caption Función MsgBox<br />
Nombre LstBoton<br />
Nombre LstIcono<br />
Pág. 97
Change language