Post on 30-Dec-2015
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 1 de 17
La cajas de verificación (CheckBox)
Propiedades de las cajas de verificación
Al igual que en los botones de opción, las propiedades más importantes de las cajas de verificaciónson: Caption (Título) y la propiedad Value (Valor) que indica si el elemento esta activado odesactivado.
Eventos sobre las cajas de verificación
Las cajas de verificación no se diferencian en nada de los demás controles con respecto a loseventos estándar de los controles. Puede utilizar los eventos ya vistos anteriormente. Como se dijoanteriormente, en las cajas de verificación no se programa muy a menudo el evento Click, sino,que se verifica si la caja de verificación esta activada o desactivada mediante la propiedad Value.Si mediante la sentencia If usted verifica que esta activada, entonces, usted programa después dela cláusula Then y si no esta activada y desea realizar otra acción después de haber echo lacomprobación, entonces, programe después de la cláusula Else.
Métodos de las cajas de verificación
Las cajas de verificación poseen todos los métodos estándar ya estudiados anteriormente (Drag,Refresh, SetFocus, Move, Zorder).
Ejercicios prácticos
• La siguiente aplicación permite seleccionar entre varios efectos que se le aplicarán a una caja detexto mediante botones de verificación después haberse hecho clic sobre un botón de comando
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 2 de 17
▪ Abra un nuevo proyecto e inserte un control Frame y dentro de este seis cajas de verificación.Debajo de estas un botón de comando y a la derecha una caja de texto, tal y como se ve en laimagen de la página anterior.
▪ Aplique los siguientes valores en las propiedades indicada de los controles que se muestran en lasiguiente tabla:
Control Propiedad ValorFrame1 Caption Efectos
Check1 Caption Fondo azul, &texto blanco
Check2 Caption &Letras grandes
Check3 Caption &Cursiva
Check4 Caption &Negrita
Check5 Caption &Subrayado
Check6 Caption T&achado
Command1 Caption A&plicar
Text1 NameMultiLineScrollBars
Text
txtContenidoTrue
2 – Vertical
▪ La apariencia de los controles sobre el formulario debe ser la siguiente:
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 3 de 17
▪ Ahora codifiquemos para que cada opción seleccionada aplique el efecto seleccionado a la cajade texto. Cada vez que el usuario haga seleccione un efecto deberá hacer clic sobre el botónAplicar, por consiguiente, debemos codificar el evento Click del botón Aplicar.
▪ Haga doble Clic sobre el botón Aplicar y dentro del evento Click escriba:
‘Verificamos si la primera caja de verificación esta activada.If Check1.Value = 1 Then
‘Aplicamos el efecto.txtContenido.BackColor = vbBlue ' Fondo azul.txtContenido.ForeColor = vbWhite ' Texto blanco.
Else‘Si no esta activada pone la caja en su estado normal:‘Fondo blanco y texto negro.txtContenido.BackColor = vbWhite 'Fondo blanco.txtContenido.ForeColor = vbBlack 'Texto negro.
End If
‘Verificamos si la segunda caja de verificación esta activada.If Check2.Value = 1 Then
‘Aplicamos el efecto.txtContenido.FontSize = 18 'Letras grandes.
Else‘Si esta desactivada pone el tamaño inicial de la caja.txtContenido.FontSize = 8 'Letras normal.
End If
‘Verificamos si la tercera caja de verificación esta activada.If Check3.Value = 1 Then
'Aplicamos el efecto.txtContenido.FontItalic = True 'Pone cursiva.
Else'Si no esta activada desactiva la cursiva.txtContenido.FontItalic = False 'Quita cursiva.
End If
‘Verificamos si la cuarta caja de verificación esta activada.If Check4.Value = 1 Then
'Aplicamos el efecto.txtContenido.FontBold = True 'Pone negrita.
Else'Si no esta activada desactiva la negrita.txtContenido.FontBold = False 'Quita negrita.
End If
‘Verificamos si la quinta caja de verificación esta activada.If Check5.Value = 1 Then
'Aplicamos el efecto.txtContenido.FontUnderline = True 'Pone subrayado.
Else'Si no esta activada desactiva la negrita.txtContenido.FontUnderline = False 'Quita subrayado.
End If
‘Verificamos si la sexta caja de verificación esta activada.If Check6.Value = 1 Then
'Aplicamos el efecto.txtContenido.FontStrikethru = True 'Pone tachado.
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 4 de 17
Else'Si no esta activada desactiva la negrita.txtContenido.FontStrikethru = False 'Quita tachado.
End If
▪ Corra la aplicación.
▪ Escriba algo en la caja de texto.
▪ Active el efecto que quiera aplicar a la caja de texto y haga clic en el botón Aplicar. Podráobservar que la caja de texto toma el efecto seleccionado. Si desea quitar el efecto seleccionado,entonces, desactive la caja de verificación y, a continuación, haga clic en el botón Aplicar.
Los botones de opción (OptionButton) Un botón de opción muestra una opción que se puedeactivar o desactivar.Generalmente, los controles OptionButton se utilizan en un grupo de opciones para mostraropciones entre las cuales el usuario solo puede seleccionar una sola. Los controles OptionButtonse agrupan si los dibuja dentro de un contenedor como un control Frame, un control PictureBox oun Formulario. Al seleccionar una de las opciones dentro de un contenedor se activa con un puntonegro, indicando que la opción ha sido seleccionada. Si hace clic sobre otra opción del mismocontenedor se desactiva la opción que anteriormente estaba activada y se marca con el puntonegro la opción que actualmente selecciono. Para agrupar controles OptionButton en un Frame oPictureBox, dibuje en primer lugar el Frame o el PictureBox y, a continuación, dibuje dentro loscontroles OptionButton.
Propiedades de las botones de opción
Los botones de opción poseen prácticamente las mismas propiedades de los botones de comando.En los botones de opción al igual que en los botones de comando se destaca la propiedad Captionque especifica un texto descriptivo de la función de ese botón en la aplicación. Posee también lapropiedad Value que indica si el botón de opción esta activado o no, puede tomar los valores True(activado) o False (desactivado). Cuando selecciona una opción dentro de un contenedor lapropiedad Value de la opción seleccionada almacena el valor True y cuando selecciona otraopción dentro del mismo contenedor la opción seleccionada anteriormente almacena False en lapropiedad Value. Para verificar la opción seleccionada se utiliza la sentencia If como veremos enlos próximos ejercicios.
Eventos sobre los botones de opción
Los botones de opción poseen los mismos eventos estudiados anteriormente en los botones decomando. Al igual que en los botones de comando el evento más importante de los controlesOptionButton es el evento Click. Este ocurre cuando el usuario hace clic sobre la opción y esprácticamente el único evento que se programa en los botones de opción.
Métodos de los botones de opción
Los botones de opción también se complementan con los métodos estándar ya estudiadosanteriormente (Drag, Refresh, SetFocus, Move, Zorder). Los métodos son muy poco usados enlos controles que usamos frecuentemente, por tal razón, nos limitaremos en hacer énfasis en cadauno de ellos.
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 5 de 17
Ejercicios prácticos
• La siguiente aplicación posee un conjunto de botones de opción dentro de varios contenedoresque indicarán los colores que se le va aplicar al fondo y a la letra de una caja de texto. Cadaconjunto de colores estará por separado en controles Frame. Estos tendrán por encabezado lafunción que realizará ese conjunto de botones dentro del control Frame.
▪ Abra un nuevo proyecto.
▪ En la propiedad Caption del formulario escriba Botones de opción. En la propiedad Heightescriba el valor 5685 y en la propiedad Width escriba 9060 para fijar el tamaño adecuado alformulario.
▪ Inserte dos Frame en el formulario y dentro de cada Frame cinco botones de opción, tal ycomo se ve en la imagen de la página siguiente:
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 5 de 17
Ejercicios prácticos
• La siguiente aplicación posee un conjunto de botones de opción dentro de varios contenedoresque indicarán los colores que se le va aplicar al fondo y a la letra de una caja de texto. Cadaconjunto de colores estará por separado en controles Frame. Estos tendrán por encabezado lafunción que realizará ese conjunto de botones dentro del control Frame.
▪ Abra un nuevo proyecto.
▪ En la propiedad Caption del formulario escriba Botones de opción. En la propiedad Heightescriba el valor 5685 y en la propiedad Width escriba 9060 para fijar el tamaño adecuado alformulario.
▪ Inserte dos Frame en el formulario y dentro de cada Frame cinco botones de opción, tal ycomo se ve en la imagen de la página siguiente:
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 5 de 17
Ejercicios prácticos
• La siguiente aplicación posee un conjunto de botones de opción dentro de varios contenedoresque indicarán los colores que se le va aplicar al fondo y a la letra de una caja de texto. Cadaconjunto de colores estará por separado en controles Frame. Estos tendrán por encabezado lafunción que realizará ese conjunto de botones dentro del control Frame.
▪ Abra un nuevo proyecto.
▪ En la propiedad Caption del formulario escriba Botones de opción. En la propiedad Heightescriba el valor 5685 y en la propiedad Width escriba 9060 para fijar el tamaño adecuado alformulario.
▪ Inserte dos Frame en el formulario y dentro de cada Frame cinco botones de opción, tal ycomo se ve en la imagen de la página siguiente:
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 6 de 17
▪ Inserte una caja de texto a la derecha de los controles Frame y un botón de comando en laesquina inferior izquierda del formulario tal y como se puede apreciar en la imagen anterior. En lapropiedad Caption del botón de comando escriba &Salir.
▪ Aplique los siguientes valores en las propiedades indicada de los controles que se muestran en lasiguiente tabla:
Control Propiedad Valor
Frame1 Caption Colores del fondo
Frame2 Caption Colores de la letra
Option1 Caption Rojo
Option2 Caption Verde
Option3 Caption Azul
Option4 Caption Amarillo
Option5 Caption Blanco
Option6 Caption Cyan
Option7 Caption Magenta
Option8 Caption Blanco
Option9 Caption Negro
Option10 Caption Azul
Text1 NameMultiLineScrollBars
Text
txtContenido
True
2 – Vertical
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 7 de 17
▪ Haga doble clic sobre la primera opción y dentro del evento Click escriba:
'Pone el color rojo al fondo de la caja de texto.txtContenido.BackColor = vbRed
▪ Haga doble clic sobre la segunda opción y dentro del evento Click escriba:'Pone el color rojo al fondo de la caja de texto.txtContenido.BackColor = vbGreen
▪ Haga doble clic sobre la tercera opción y dentro del evento Click escriba:'Pone el color rojo al fondo de la caja de texto.txtContenido.BackColor = vbBlue
▪ Haga doble clic sobre la cuarta opción y dentro del evento Click escriba:'Pone el color rojo al fondo de la caja de texto.txtContenido.BackColor = vbYellow
▪ Haga doble clic sobre la quinta opción y dentro del evento Click escriba:
'Pone el color rojo al fondo de la caja de texto.txtContenido.BackColor = vbWhite
▪ Haga doble clic sobre la sexta opción y dentro del evento Click escriba:'Pone el color rojo al fondo de la caja de texto.txtContenido.ForeColor = vbCyan
▪ Haga doble clic sobre la séptima opción y dentro del evento Click escriba:'Pone el color rojo al fondo de la caja de texto.txtContenido.ForeColor = vbMagenta
▪ Haga doble clic sobre la octava opción y dentro del evento Click escriba:'Pone el color rojo al fondo de la caja de texto.txtContenido.ForeColor = vbWhite
▪ Haga doble clic sobre la novena opción y dentro del evento Click escriba:'Pone el color rojo al fondo de la caja de texto.txtContenido.ForeColor = vbBlack
▪ Haga doble clic sobre la décima opción y dentro del evento Click escriba:'Pone el color rojo al fondo de la caja de texto.txtContenido.ForeColor = vbBlue
▪ Corra la aplicación.
▪ Utilice los primeros cinco botones de comando para poner el color de fondo a la caja de texto.
▪ Escriba algún texto en la caja de texto y utilice los últimos cinco botones de comando paracambiar el color del texto.
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 8 de 17
Las cajas de lista (ListBox)
- 3.7.1.1 Propiedades de las cajas de lista
Las cajas de listas poseen la mayoría de las propiedades comunes de los controles, pero ademásde estas poseen propiedades muy propias de ellas. A continuación, se detallan las propiedadesmás importantes de las cajas de lista.
PPrrooppiieeddaadd DDeessccrriippcciióónn
List Esta propiedad es utilizada para agregar elementos o registros al ListBox enmodo de diseño. En modo de ejecución esta propiedad es utilizada para leer cadauno de los elementos del ListBox.
Ejercicio:
▪ Abra un nuevo proyecto.
▪ Inserte un ListBox desde la caja de herramientas.
▪ Dibuje el ListBox casi del mismo alto del formulario.
▪ Seleccione la propiedad List y haga clic en la flecha abajo. Aparecerá un pequeño recuadrodonde usted tendrá que escribir uno por uno los elementos de la caja de lista. Cada vez que ustedescriba un elemento deberá presionar la tecla ENTER. Al presionar la tecla ENTER el recuadro seesconde y, como consecuencia, tendrá que hacer clic nuevamente en el botón flecha abajo paraagregar otro elemento.
▪ Agregue los siguientes elementos:
ComputadoraDisco DuroMemoria RamMonitorImpresoraEscánerProcesador
▪ Su aplicación deberá tener una apariencia similar a la mostrada en la siguiente imagen:
Una ListBox es un control en el que se pueden tomar variosregistros de líneas, teniendo uno o varios de ellosseleccionado. Si en la lista hay más registros de los que sepueden mostrar al mismo tiempo, se añade automáticamenteuna barra de desplazamiento.
Para añadir o eliminar registros de la lista en modo deEjecución se utilizan los métodos AddItem y RemoveItem.El contenido de una ListBox suele inicializarse desde elevento Load de los formularios, de tal manera, las listasobtienen sus elementos antes de que la aplicación carguetotalmente. También, puede especificar los elementos de laListBox en modo de diseño mediante la propiedad Listdesde la ventana de propiedades.
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 9 de 17
MultiSelect Devuelve o establece un valor que indica si el usuario podrá seleccionar másde un elemento en el ListBox. Puede tomar los siguientes valores:
0 – None: Valor predeterminado. No permite seleccionar más de unelemento.
1 – Simple: Selección múltiple simple. Al hacer clic con el Mouse o presionarla BARRA ESPACIADORA se selecciona o se desactiva un elemento de lalista. (Las teclas de dirección desplazan el enfoque.)
2 – Extended: Selección múltiple extendida. Al presionar MAYÚS y hacerclic, o al presionar MAYÚS y una de las teclas de dirección (FLECHAARRIBA, FLECHA ABAJO, FLECHA IZQUIERDA o FLECHA DERECHA) seextiende la selección desde el elemento seleccionado anteriormente hasta elelemento actual. Al presionar CTRL y hacer clic con el Mouse se selecciona odesactiva un elemento de la lista.
Sorted Establece un valor que indica si los elementos de un ListBox aparecenordenados alfabéticamente. Puede tomar los valores True o False (Valor pordefecto). Cuando es True los elementos aparecerán ordenadosalfabéticamente, y solo lo podrá apreciar los resultados en modo deejecución. Cuando es False los elementos se muestran tal y como seintroducen en el ListBox.
Style Devuelve o establece un valor que indica si los elementos de la ListBoxposeen casillas de verificación. Los valores admitidos por esta propiedad son:
0 – Standard: Valor predeterminado. Los elementos de la ListBox semuestran de forma de lista de texto.
1 – CheckBox: Casilla de verificación. El control ListBox se muestra conuna marca de verificación junto a cada elemento de texto. Es posibleseleccionar múltiples elementos del ListBox si activa la casilla de verificaciónque hay junto a ellos. Observe el gráfico:
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 10 de 17
Eventos sobre las cajas de lista
Las cajas de lista poseen los eventos comunes de los controles pero solo uno de ellos es el másutilizado. El evento Click es el que comúnmente programaremos en una ListBox para determinaralgún elemento que halla sido seleccionado. También, podrá determinar los elementosseleccionados en una ListBox desde cualquier otro control de la aplicación.
Métodos de las cajas de lista
A continuación, se muestra una tabla donde se listan los métodos más importantes de unaListBox:
AddItem Uno de los métodos más importante de una ListBox. Este es utilizado paraagregar registros o elementos a una ListBox en modo de ejecución.
Su formato es:
Objeto.AddItem Elemento, [Posición]
Donde:
Objeto: Requerido. Indica el nombre de la ListBox, es decir, el valorindicado en la propiedad Name.
Elemento: Requerido. Una expresión de cadena que especifica el elementoque se va a agregar al objeto.
Posición: Opcional. Un entero que especifica la posición dentro del objetodonde se insertan el elemento o la fila nuevos.
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 11 de 17
Ejercicio1:
▪ Agregue una etiqueta y debajo una caja de texto en el formulario de nuestro primer ejercicio.Debajo de esta coloque un botón de comando, tal y como se muestra en la imagen:
▪ Dentro del botón Agregar escriba:‘Verificamos que la caja de texto tenga información. Si no tiene, no se agrega el elemento.If Len(Trim(Text1.Text)) > 0 Then ‘ Para contar la longitud de una cadena de caracteres Len
Con la función trim eliminas los espacios en blanco de delante yde detrás.
List1.AddItem Text1.Text ‘Agrega el contenido de la caja de texto a la ListBox.Text1.Text = “” ‘Limpiamos la caja.
End If
Text1.SetFocus ‘Hace que la caja reciba el enfoque.
▪ Corra la aplicación.
▪ Escriba algo en la caja de texto y, a continuación, haga clic en el botón Agregar. Podrá Observarque el texto escrito en la caja de texto se agrega a la ListBox mediante el método AddItem.
RemoveItem Este método es utilizado para eliminar un elemento o registro del ListBox.
Su formato es:
Objeto.RemoveItem (Posición)
Donde:
Objeto: Requerido. Una cadena de caracteres que indica el nombredel control ListBox.
Posición: Requerido. Un valor numérico que indica la posición delelemento que se desea borrar. La posición del primerelemento de un control ListBox esta representada por elvalor 0. Podrá utilizar el método ListIndex para determinar laposición del elemento seleccionado.
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 12 de 17
Nota: Algunas Funciones de VB 6.0Int: Devuelve la parte entera de un número: Int(Número).Len: Devuelve la longitud de una cadena: Len(Cadena).Rnd: Devuelve un número aleatorio entre 0 y 1.Val: Devuelve el valor numérico de una cadena alfanumérica, solo convierte hasta que encuentra el primercarácter que no es un número: Val(Cadena).
Ejercicio2:
▪ Agregue un botón de comando en la esquina inferior derecha del control ListBox, tal y como semuestra en la imagen:
▪ En la propiedad Caption del botón escriba &Eliminar.
▪ Haga doble clic sobre el botón de comando y en el evento Click escriba:
On Error Resume Next 'En caso de no haber ningún elemento seleccionado.
'Elimina el elemento seleccionado.List1.RemoveItem List1.ListIndex
▪ Corra la aplicación.
▪ Seleccione un elemento de la ListBox y, a continuación, haga clic en el botón Eliminar. Podránotar que el elemento seleccionado se elimina al hacer clic en el botón eliminar. Esto es posible,debido a que el método ListIndex devuelve un valor numérico que indica la posición del elementoseleccionado. Luego, ese valor se le pasa al método RemoveItem para que elimine dichoelemento.
▪ Detenga la aplicación.
Clear Este método borra todos los elementos del control ListBox. Su formato esbastante sencillo, solo se debe especificar el nombre del control ListBoxseguido del método Clear.
Ejemplo:
List1.Clear ‘Elimina todo el contenido del ListBox.
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 13 de 17
ListCount Devuelve un valor numérico que indica la cantidad de elemento que contienela ListBox. Este método es muy utilizado para leer todo el contenido de uncontrol ListBox. Para esto se debe combinar con un bucle for o while. Suformato es similar al del método anterior: List1.ListCount.
Ejemplo 1:
‘Muestra en un cuadro de mensaje la cantidad de elementos de una ListBox.MsgBox(List1.ListCount)
Ejemplo 2:
‘Pasa todos los elementos de una ListBox a otra ListBox.Dim i As Long
‘Inicia un bucle que se repite según la cantidad de elementos del la ListBox.
For i = 0 To List1.ListCount – 1 ‘Restamos 1 porque una ListBox comienza desde 0.
List2.AddItem List1.List(i) ‘Agregamos cada elemento de la primera Lista a la segunda Lista.
Next i
ListIndex Devuelve un valor numérico que indica la posición del elemento seleccionadodentro del control ListBox.
Ejemplo 1:
‘Muestra en un cuadro de mensaje la posición del elemento seleccionado.MsgBox(List1.ListIndex)
Ejemplo 2:
‘Muestra en un cuadro de mensaje el texto del elemento seleccionado.MsgBox(List1.List(List1.ListIndex))
SelCount Devuelve un valor numérico que indica la cantidad de elementos seleccionadosen una ListBox. Esta propiedad es muy útil cuando un control ListBox permiteseleccionar varios elementos a la vez. El valor devuelto por esta función sepuede utilizar conjuntamente con un bucle para leer únicamente la cantidad deelementos seleccionados en una ListBox. Su formato es similar al del métodoListCount.
Selected Devuelve o establece un valor lógico (True o False) que indica si un elementoesta o estará seleccionado.
Su formato es:
Objeto.Selected(Indice) = [True/False]
Donde:
Objeto: Es el nombre de la ListBox.
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 14 de 17
Indice: Indica la posición del elemento en la ListBox.
True/False: Valores que devuelve el método. True indica que elementoestá seleccionado. False indica que elemento no estáseleccionado.
Ejercicios prácticos
1.- Nuestra primera aplicación muestra como agregar nombre de países a una ListBox. Tambiénpermite eliminar un país seleccionado.
▪ Abra un nuevo proyecto.
▪ Inserte los controles que se muestran en la siguiente imagen:
▪ Aplique los siguientes valores a las propiedades de los controles indicado en la siguiente tabla:
Control Propiedad ValorForm Caption
StartUpPositionTrabajando con cajas de listas
2 – CenterScreen
Label1 AutoSizeCaption
Font
TrueIntroduzca el país:Arial, Normal, 10.
Text1 NameText
txtPais
Command1 NameCaption
cmdAgregarPais&Agregar
Label2 AutoSizeCaption
TrueLista de países:
List1 Name lstPaises
Label3 AutoSizeCaption
TrueTotal:
Text2 NameText
txtTotalPaises
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 15 de 17
Control Propiedad ValorCommand2 Name
CaptioncmdEliminar&Eliminar
Command3 NameCaption
cmdBorrarLista&Borrar lista
▪ Dentro del evento Click del botón Agregar escriba:
'Verifica si la caja de texto se deja vacía.If Len(Trim(txtPais.Text)) = 0 Then
MsgBox ("Introduzca el nombre de un país en la caja.")txtPais.SetFocus
Else
'Si la caja tiene algún país.lstPaises.AddItem txtPais.Text 'Agregue el país.
txtPais.Text = "" 'Limpia la caja de texto.txtPais.SetFocus 'Hace que la caja reciba el enfoque.
'Pone el número de países agregados en la caja de lista.txtTotalPaises.Text = lstPaises.ListCount
End If
▪ Dentro del evento Click del botón Eliminar escriba:
'En caso de que ocurra un error al eliminar un elemento de la lista.On Error Resume Next
lstPaises.RemoveItem (lstPaises.ListIndex) 'Borra el elemento seleccionado.
txtTotalPaises.Text = lstPaises.ListCount 'Actualiza el total de países.
▪ Dentro del evento Clic del botón Borrar Lista escriba:
'Elimina todo el contenido del ListBox.lstPaises.Clear
txtTotalPaises.Text = lstPaises.ListCount 'Actualiza el total de países.
▪ Corra la aplicación.
▪ En la caja de texto de la aplicación introduzca algún país, y a continuación, haga clic en el botónAgregar. Agregue todos los países que desee y podrá observar que todos los países se agregan alcontrol ListBox.
▪ Seleccione algunos de los países ya agregados y luego haga clic en el botón Eliminar.
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 16 de 17
2.-) Nuestra segunda aplicación muestra en un cuadro de dialogo la capital de un país seleccionadoen un control ListBox.
▪ Abra un nuevo proyecto.
▪ Inserte una etiqueta en la parte superior del formulario. (Observe la imagen).
▪ Debajo de la etiqueta coloque un control ListBox.
▪ Coloque un botón de comando debajo del control ListBox.
▪ Aplique los siguientes valores a las propiedades de los controles indicado en la siguiente tabla:
Control Propiedad ValorForm Caption
StartUpPositionTrabajando con cajas de listas
2 - CenterScreen
Label1 AutoSizeCaption
Font
TrueSeleccione un paísArial, Normal, 10.
List1 Name lstPaises
Command1 NameCaption
cmdSalir&Salir
▪ Dentro del evento Click del botón Salir escriba:‘Cierra la aplicación.End
▪ Dentro del evento Load del formulario escriba:
SERVICIO NACIONAL DE APRENDIZAJECENTRO DE COMERCIO Y SERVICIOS
MATERIAL DE APOYO <VISUAL BASIC>
INSTRUCTOR: YERMAN A. HERNANDEZ SAENZ Página 17 de 17
'Agrega los países al control
lstPaises.AddItem "República Dominicana"
lstPaises.AddItem "Perú"
lstPaises.AddItem "Salvador"
lstPaises.AddItem "México"
lstPaises.AddItem "Puerto Rico"
lstPaises.AddItem "Ecuador"
▪ Dentro del evento Click del control ListBox escriba:
‘Verifica el país seleccionado y muestra la capital en un cuadro de mensaje. Ucase devuelve la cadena en
mayusculas
If UCase(lstPaises.List(lstPaises.ListIndex)) = UCase("República Dominicana") Then
MsgBox ("Santo Domingo")
ElseIf UCase(lstPaises.List(lstPaises.ListIndex)) = UCase("Perú") Then
MsgBox ("Lima")
ElseIf UCase(lstPaises.List(lstPaises.ListIndex)) = UCase("Salvador") Then
MsgBox ("San Salvador")
ElseIf UCase(lstPaises.List(lstPaises.ListIndex)) = UCase("México") Then
MsgBox ("México")
ElseIf UCase(lstPaises.List(lstPaises.ListIndex)) = UCase("Puerto Rico") Then
MsgBox ("San Juan")
ElseIf UCase(lstPaises.List(lstPaises.ListIndex)) = UCase("Ecuador") Then
MsgBox ("Quito")
End If
▪ Corra la aplicación.
▪ Seleccione cualquier país de la lista para que el programa muestre su capital en una ventana dediálogo.