1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Como ejercicio intente construir el menú mostrado en la figura anterior. Caption Name ShortCut &Archivo MnuArchivo Ninguno . . . &Artículo MnuArchivoArticulo Ninguno . . . &Cliente MnuArchivoCliente Ninguno . . . &Vendedor MnuArchivoVendedor Ninguno . . . - MnuArchivoLinea Ninguno . . . &Salir MnuArchivoSalir Ctrl + X &Proceso MnuProceso Ninguno . . . &Pedido MnuProcesoPedido Ninguno . . . &Facturación MnuProcesoFacturacion Ninguno &Reporte MnuReporte Ninguno . . . &Registro de ventas MnuReporteRegVentas Ninguno . . . Catálogo de &artículos Ninguno . . . - MnuReporteLinea Ninguno . . . &Cliente del mes MnuReporteClienteMes Ninguno . . . &Vendedor del mes MnuReporteVendMes Ninguno Ay&uda MnuAyuda Ninguno . . . &Contenido MnuAyudaContenido Ninguno . . . &Indice MnuAyudaIndice Ninguno . . . &Búsqueda MnuAyudaBusqueda Ninguno . . . - MnuAyudaLinea Ninguno . . . &Acerca de MnuAyudaAbout Ninguno Pág. 120
Para probar el menú que acaba de crear, ingrese el siguiente código: Private Sub MnuArchivoArticulo_Click() End Sub MsgBox “Seleccionó la opción Artículo” Private Sub MnuArchivoCliente_Click() End Sub MsgBox “Seleccionó la opción Cliente” Private Sub MnuArchivoVendedor_Click() End Sub MsgBox “Seleccionó la opción Vendedor” Private Sub MnuArchivoSalir_Click() End Sub Unload Me Private Sub MDIForm_Unload(Cancel As Integer) End Sub Dim RESP As Integer RESP = MsgBox(“¿Desea terminar la aplicación?”, _ vbQuestion + vbYesNo, “Pregunta”) If RESP = vbYes Then End Else: Cancel = True End If Pág. 121
- 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 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: • Para diferenciar un elemento de
- 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
- 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()
Como ejercicio intente construir el menú mostrado en la<br />
figura anterior.<br />
Caption Name ShortCut<br />
&Archivo MnuArchivo Ninguno<br />
. . . &Artículo MnuArchivoArticulo Ninguno<br />
. . . &Cliente MnuArchivoCliente Ninguno<br />
. . . &Vendedor MnuArchivoVendedor Ninguno<br />
. . . - MnuArchivoLinea Ninguno<br />
. . . &Salir MnuArchivoSalir Ctrl + X<br />
&Proceso MnuProceso Ninguno<br />
. . . &Pedido MnuProcesoPedido Ninguno<br />
. . . &Facturación MnuProcesoFacturacion Ninguno<br />
&Reporte MnuReporte Ninguno<br />
. . . &Registro de ventas MnuReporteRegVentas Ninguno<br />
. . . Catálogo de &artículos<br />
Ninguno<br />
. . . - MnuReporteLinea Ninguno<br />
. . . &Cliente del mes MnuReporteClienteMes Ninguno<br />
. . . &Vendedor del mes MnuReporteVendMes Ninguno<br />
Ay&uda MnuAyuda Ninguno<br />
. . . &Contenido MnuAyudaContenido Ninguno<br />
. . . &Indice MnuAyudaIndice Ninguno<br />
. . . &Búsqueda MnuAyudaBusqueda Ninguno<br />
. . . - MnuAyudaLinea Ninguno<br />
. . . &Acerca de MnuAyudaAbout Ninguno<br />
Pág. 120