1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Para ello crear un nuevo formulario y agregar un control Animation (Animation1) y dos botones de comando (CmdIniciar y CmdTerminar, respectivamente). Luego ingrese el código que se muestra: Private Sub CmdIniciar_Click() End Sub Dim RUTA As String RUTA = “C:\Archivos de programa\Microsoft Visual Studio\” RUTA = RUTA & “Common\Graphics\Videos\Filenuke.avi” Animation1.Open (RUTA) Animation1.Play Private Sub CmdTerminar_Click() Animation1.Close End End Sub CONTROL COMMONDIALOG El control CommonDialog proporciona un conjunto de cuadros de diálogo estándar que permiten realizar las operaciones más comúnmente empleadas en el diseño de aplicaciones, como abrir y guardar archivos, seleccionar colores y fuentes, imprimir, etc. Para agregar este control seleccionar el componente Microsoft Common Dialog Control 6.0. Pág. 136
Propiedad Descripción Color Especifica el color seleccionado. FileName Especifica la ruta y nombre del archivo seleccionado. Filter Especifica el tipo de archivos que se han de mostrar en un cuadro de diálogo Abrir o FilterIndex Guardar como. Especifica el filtro predeterminado para un cuadro de diálogo Abrir o Guardar como, en caso se esté utilizando varios filtros. Método Descripción ShowColor Presenta la paleta de colores. ShowFont Presenta el cuadro de diálogo Fuentes. ShowHelp Presenta la ayuda de Windows. ShowOpen Presenta el cuadro de diálogo Abrir. ShowPrinter Presenta el cuadro de diálogo Imprimir. ShowSave Presenta el cuadro de diálogo Guardar como. Como ejemplo vamos a desarrollar una aplicación que permite cambiar el color de fondo de un formulario en tiempo de ejecución. Para ello el usuario debe dar click en el botón “Cambiar color” y en seguida se presentará la paleta de colores de donde debe elegir el color deseado, tal como se muestra en la figura siguiente: Pág. 137
- 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
- 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: CONTROL ANIMATION El control Animat
- 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 and 180: Command3 Command4 Command5 Command6
- Page 181 and 182: End Sub TxtVacantes.Locked = Not Ok
- Page 183 and 184: End Sub POSICION = Loc(N1) + 1 If P
- Page 185 and 186: End Sub Open “C:\DATA\TEMPO.DAT
Para ello crear un nuevo formulario y agregar un control<br />
Animation (Animation1) y dos botones de comando (CmdIniciar y<br />
CmdTerminar, respectivamente). Luego ingrese el código que se<br />
muestra:<br />
Private Sub CmdIniciar_Click()<br />
End Sub<br />
Dim RUTA As String<br />
RUTA = “C:\Archivos de programa\Microsoft <strong>Visual</strong> Studio\”<br />
RUTA = RUTA & “Common\Graphics\Videos\Filenuke.avi”<br />
Animation<strong>1.</strong>Open (RUTA)<br />
Animation<strong>1.</strong>Play<br />
Private Sub CmdTerminar_Click()<br />
Animation<strong>1.</strong>Close<br />
End<br />
End Sub<br />
CONTROL COMMONDIALOG<br />
El control CommonDialog proporciona un conjunto de cuadros<br />
de diálogo estándar que permiten realizar las operaciones más<br />
comúnmente empleadas en el diseño de aplicaciones, como abrir y<br />
guardar archivos, seleccionar colores y fuentes, imprimir, etc.<br />
Para agregar este control seleccionar el componente Microsoft<br />
Common Dialog Control 6.0.<br />
Pág. 136
Change language