Casillas de Verificacion 5
Casillas de Verificacion 5
Propiedades de las cajas de verificacin Al igual que en los botones de opcin, las propiedades ms importantes de las cajas de verificacin son: Caption (Ttulo) y la propiedad Value (Valor) que indica si el elemento esta activado o desactivado. Eventos sobre las cajas de verificacin Las cajas de verificacin no se diferencian en nada de los dems controles con respecto a los eventos estndar de los controles. Puede utilizar los eventos ya vistos anteriormente. Como se dijo anteriormente, en las cajas de verificacin no se programa muy a menudo el evento Click, sino, que se verifica si la caja de verificacin esta activada o desactivada mediante la propiedad Value. Si mediante la sentencia If usted verifica que esta activada, entonces, usted programa despus de la clusula Then y si no esta activada y desea realizar otra accin despus de haber echo la comprobacin, entonces, programe despus de la clusula Else. Mtodos de las cajas de verificacin Las cajas de verificacin poseen todos los mtodos estndar ya estudiados anteriormente (Drag, Refresh, SetFocus, Move, Zorder). Ejercicios prcticos
La siguiente aplicacin permite seleccionar entre varios efectos que se le aplicarn a una caja de
texto mediante botones de verificacin despus haberse hecho clic sobre un botn de comando
Pgina 1 de 17
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC>
Abra un nuevo proyecto e inserte un control Frame y dentro de este seis cajas de verificacin. Debajo de estas un botn de comando y a la derecha una caja de texto, tal y como se ve en la imagen de la pgina anterior. Aplique los siguientes valores en las propiedades indicada de los controles que se muestran en la siguiente tabla: Control Frame1 Check1 Check2 Check3 Check4 Check5 Check6 Command1 Text1 Propiedad Caption Caption Caption Caption Caption Caption Caption Caption Name MultiLine ScrollBars Text Valor Efectos Fondo azul, &texto blanco &Letras grandes &Cursiva &Negrita &Subrayado T&achado A&plicar txtContenido True 2 Vertical
Pgina 2 de 17
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC> Ahora codifiquemos para que cada opcin seleccionada aplique el efecto seleccionado a la caja de texto. Cada vez que el usuario haga seleccione un efecto deber hacer clic sobre el botn Aplicar, por consiguiente, debemos codificar el evento Click del botn Aplicar. Haga doble Clic sobre el botn Aplicar y dentro del evento Click escriba: Verificamos si la primera caja de verificacin 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 verificacin esta activada. If Check2.Value = 1 Then Aplicamos el efecto. txtContenido.FontSize = 18 Letras grandes. Else Si esta desactivada pone el tamao inicial de la caja. txtContenido.FontSize = 8 Letras normal. End If Verificamos si la tercera caja de verificacin 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 verificacin 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 verificacin 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 verificacin esta activada. If Check6.Value = 1 Then Aplicamos el efecto. txtContenido.FontStrikethru = True Pone tachado.
Pgina 3 de 17
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC> Else Si no esta activada desactiva la negrita. txtContenido.FontStrikethru = False Quita tachado. End If Corra la aplicacin. Escriba algo en la caja de texto. Active el efecto que quiera aplicar a la caja de texto y haga clic en el botn Aplicar. Podr observar que la caja de texto toma el efecto seleccionado. Si desea quitar el efecto seleccionado, entonces, desactive la caja de verificacin y, a continuacin, haga clic en el botn Aplicar.
Los botones de opcin (OptionButton) Un botn de opcin muestra una opcin que se puede activar o desactivar. Generalmente, los controles OptionButton se utilizan en un grupo de opciones para mostrar opciones entre las cuales el usuario solo puede seleccionar una sola. Los controles OptionButton se agrupan si los dibuja dentro de un contenedor como un control Frame, un control PictureBox o un Formulario. Al seleccionar una de las opciones dentro de un contenedor se activa con un punto negro, indicando que la opcin ha sido seleccionada. Si hace clic sobre otra opcin del mismo contenedor se desactiva la opcin que anteriormente estaba activada y se marca con el punto negro la opcin que actualmente selecciono. Para agrupar controles OptionButton en un Frame o PictureBox, dibuje en primer lugar el Frame o el PictureBox y, a continuacin, dibuje dentro los controles OptionButton. Propiedades de las botones de opcin Los botones de opcin poseen prcticamente las mismas propiedades de los botones de comando. En los botones de opcin al igual que en los botones de comando se destaca la propiedad Caption que especifica un texto descriptivo de la funcin de ese botn en la aplicacin. Posee tambin la propiedad Value que indica si el botn de opcin esta activado o no, puede tomar los valores True (activado) o False (desactivado). Cuando selecciona una opcin dentro de un contenedor la propiedad Value de la opcin seleccionada almacena el valor True y cuando selecciona otra opcin dentro del mismo contenedor la opcin seleccionada anteriormente almacena False en la propiedad Value. Para verificar la opcin seleccionada se utiliza la sentencia If como veremos en los prximos ejercicios. Eventos sobre los botones de opcin Los botones de opcin poseen los mismos eventos estudiados anteriormente en los botones de comando. Al igual que en los botones de comando el evento ms importante de los controles OptionButton es el evento Click. Este ocurre cuando el usuario hace clic sobre la opcin y es prcticamente el nico evento que se programa en los botones de opcin. Mtodos de los botones de opcin Los botones de opcin tambin se complementan con los mtodos estndar ya estudiados anteriormente (Drag, Refresh, SetFocus, Move, Zorder). Los mtodos son muy poco usados en los controles que usamos frecuentemente, por tal razn, nos limitaremos en hacer nfasis en cada uno de ellos.
Pgina 4 de 17
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC> Ejercicios prcticos
Pgina 5 de 17
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC>
Inserte una caja de texto a la derecha de los controles Frame y un botn de comando en la esquina inferior izquierda del formulario tal y como se puede apreciar en la imagen anterior. En la propiedad Caption del botn de comando escriba &Salir. Aplique los siguientes valores en las propiedades indicada de los controles que se muestran en la siguiente tabla: Control Frame1 Frame2 Option1 Option2 Option3 Option4 Option5 Option6 Option7 Option8 Option9 Option10 Text1 Propiedad Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Caption Name MultiLine ScrollBars Text Valor Colores del fondo Colores de la letra Rojo Verde Azul Amarillo Blanco Cyan Magenta Blanco Negro Azul txtContenido True 2 Vertical
Pgina 6 de 17
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC>
Haga doble clic sobre la primera opcin 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 opcin 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 opcin 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 opcin 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 opcin 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 opcin 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 sptima opcin 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 opcin 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 opcin 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 dcima opcin y dentro del evento Click escriba: Pone el color rojo al fondo de la caja de texto. txtContenido.ForeColor = vbBlue Corra la aplicacin. Utilice los primeros cinco botones de comando para poner el color de fondo a la caja de texto. Escriba algn texto en la caja de texto y utilice los ltimos cinco botones de comando para cambiar el color del texto.
Pgina 7 de 17
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC> Las cajas de lista (ListBox) Una ListBox es un control en el que se pueden tomar varios registros de lneas, teniendo uno o varios de ellos seleccionado. Si en la lista hay ms registros de los que se pueden mostrar al mismo tiempo, se aade automticamente una barra de desplazamiento. Para aadir o eliminar registros de la lista en modo de Ejecucin se utilizan los mtodos AddItem y RemoveItem. El contenido de una ListBox suele inicializarse desde el evento Load de los formularios, de tal manera, las listas obtienen sus elementos antes de que la aplicacin cargue totalmente. Tambin, puede especificar los elementos de la ListBox en modo de diseo mediante la propiedad List desde la ventana de propiedades. - 3.7.1.1 Propiedades de las cajas de lista Las cajas de listas poseen la mayora de las propiedades comunes de los controles, pero adems de estas poseen propiedades muy propias de ellas. A continuacin, se detallan las propiedades ms importantes de las cajas de lista. Propiedad List Descripcin Esta propiedad es utilizada para agregar elementos o registros al ListBox en modo de diseo. En modo de ejecucin esta propiedad es utilizada para leer cada uno 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 pequeo recuadro donde usted tendr que escribir uno por uno los elementos de la caja de lista. Cada vez que usted escriba un elemento deber presionar la tecla ENTER. Al presionar la tecla ENTER el recuadro se esconde y, como consecuencia, tendr que hacer clic nuevamente en el botn flecha abajo para agregar otro elemento. Agregue los siguientes elementos: Computadora Disco Duro Memoria Ram Monitor Impresora Escner Procesador Su aplicacin deber tener una apariencia similar a la mostrada en la siguiente imagen:
Pgina 8 de 17
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC>
MultiSelect
Devuelve o establece un valor que indica si el usuario podr seleccionar ms de un elemento en el ListBox. Puede tomar los siguientes valores: 0 None: Valor predeterminado. No permite seleccionar ms de un elemento. 1 Simple: Seleccin mltiple simple. Al hacer clic con el Mouse o presionar la BARRA ESPACIADORA se selecciona o se desactiva un elemento de la lista. (Las teclas de direccin desplazan el enfoque.) 2 Extended: Seleccin mltiple extendida. Al presionar MAYS y hacer clic, o al presionar MAYS y una de las teclas de direccin (FLECHA ARRIBA, FLECHA ABAJO, FLECHA IZQUIERDA o FLECHA DERECHA) se extiende la seleccin desde el elemento seleccionado anteriormente hasta el elemento actual. Al presionar CTRL y hacer clic con el Mouse se selecciona o desactiva un elemento de la lista.
Sorted
Style
Establece un valor que indica si los elementos de un ListBox aparecen ordenados alfabticamente. Puede tomar los valores True o False (Valor por defecto). Cuando es True los elementos aparecern ordenados alfabticamente, y solo lo podr apreciar los resultados en modo de ejecucin. Cuando es False los elementos se muestran tal y como se introducen en el ListBox. Devuelve o establece un valor que indica si los elementos de la ListBox poseen casillas de verificacin. Los valores admitidos por esta propiedad son: 0 Standard: Valor predeterminado. Los elementos de la ListBox se muestran de forma de lista de texto. 1 CheckBox: Casilla de verificacin. El control ListBox se muestra con una marca de verificacin junto a cada elemento de texto. Es posible seleccionar mltiples elementos del ListBox si activa la casilla de verificacin que hay junto a ellos. Observe el grfico:
Pgina 9 de 17
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC>
Eventos sobre las cajas de lista Las cajas de lista poseen los eventos comunes de los controles pero solo uno de ellos es el ms utilizado. El evento Click es el que comnmente programaremos en una ListBox para determinar algn elemento que halla sido seleccionado. Tambin, podr determinar los elementos seleccionados en una ListBox desde cualquier otro control de la aplicacin. Mtodos de las cajas de lista A continuacin, se muestra una tabla donde se listan los mtodos ms importantes de una ListBox: AddItem Uno de los mtodos ms importante de una ListBox. Este es utilizado para agregar registros o elementos a una ListBox en modo de ejecucin. Su formato es: Objeto.AddItem Elemento, [Posicin]
Donde: Objeto: Requerido. Indica el nombre de la ListBox, es decir, el valor indicado en la propiedad Name. Requerido. Una expresin de cadena que especifica el elemento que se va a agregar al objeto. Opcional. Un entero que especifica la posicin dentro del objeto donde se insertan el elemento o la fila nuevos.
Elemento:
Posicin:
Pgina 10 de 17
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC> Ejercicio1: Agregue una etiqueta y debajo una caja de texto en el formulario de nuestro primer ejercicio. Debajo de esta coloque un botn de comando, tal y como se muestra en la imagen:
Dentro del botn Agregar escriba: Verificamos que la caja de texto tenga informacin. 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 funcin trim eliminas los espacios en blanco de delante y de detrs. List1.AddItem Text1.Text Agrega el contenido de la caja de texto a la ListBox. Text1.Text = Limpiamos la caja. End If Text1.SetFocus Corra la aplicacin. Escriba algo en la caja de texto y, a continuacin, haga clic en el botn Agregar. Podr Observar que el texto escrito en la caja de texto se agrega a la ListBox mediante el mtodo AddItem. RemoveItem Este mtodo es utilizado para eliminar un elemento o registro del ListBox. Su formato es: Objeto.RemoveItem (Posicin) Hace que la caja reciba el enfoque.
Donde: Objeto: Requerido. Una cadena de caracteres que indica el nombre del control ListBox. Requerido. Un valor numrico que indica la posicin del elemento que se desea borrar. La posicin del primer elemento de un control ListBox esta representada por el valor 0. Podr utilizar el mtodo ListIndex para determinar la posicin del elemento seleccionado.
Pgina 11 de 17
Posicin:
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC>
Nota: Algunas Funciones de VB 6.0 Int: Devuelve la parte entera de un nmero: Int(Nmero). Len: Devuelve la longitud de una cadena: Len(Cadena). Rnd: Devuelve un nmero aleatorio entre 0 y 1. Val: Devuelve el valor numrico de una cadena alfanumrica, solo convierte hasta que encuentra el primer carcter que no es un nmero: Val(Cadena).
Ejercicio2: Agregue un botn de comando en la esquina inferior derecha del control ListBox, tal y como se muestra en la imagen:
En la propiedad Caption del botn escriba &Eliminar. Haga doble clic sobre el botn de comando y en el evento Click escriba: On Error Resume Next En caso de no haber ningn elemento seleccionado.
Elimina el elemento seleccionado. List1.RemoveItem List1.ListIndex Corra la aplicacin. Seleccione un elemento de la ListBox y, a continuacin, haga clic en el botn Eliminar. Podr notar que el elemento seleccionado se elimina al hacer clic en el botn eliminar. Esto es posible, debido a que el mtodo ListIndex devuelve un valor numrico que indica la posicin del elemento seleccionado. Luego, ese valor se le pasa al mtodo RemoveItem para que elimine dicho elemento. Detenga la aplicacin. Clear Este mtodo borra todos los elementos del control ListBox. Su formato es bastante sencillo, solo se debe especificar el nombre del control ListBox seguido del mtodo Clear. Ejemplo: List1.Clear Elimina todo el contenido del ListBox.
Pgina 12 de 17
ListCount
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC> Devuelve un valor numrico que indica la cantidad de elemento que contiene la ListBox. Este mtodo es muy utilizado para leer todo el contenido de un control ListBox. Para esto se debe combinar con un bucle for o while. Su formato es similar al del mtodo 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 segn 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) Next i ListIndex Devuelve un valor numrico que indica la posicin del elemento seleccionado dentro del control ListBox. Ejemplo 1: Muestra en un cuadro de mensaje la posicin 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 numrico que indica la cantidad de elementos seleccionados en una ListBox. Esta propiedad es muy til cuando un control ListBox permite seleccionar varios elementos a la vez. El valor devuelto por esta funcin se puede utilizar conjuntamente con un bucle para leer nicamente la cantidad de elementos seleccionados en una ListBox. Su formato es similar al del mtodo ListCount. Agregamos cada elemento de la primera Lista a la segunda Lista.
Selected
Devuelve o establece un valor lgico (True o False) que indica si un elemento esta o estar seleccionado. Su formato es: Objeto.Selected(Indice) = [True/False] Donde: Objeto: Es el nombre de la ListBox.
Pgina 13 de 17
Indice:
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC> Indica la posicin del elemento en la ListBox. Valores que devuelve el mtodo. True indica que elemento est seleccionado. False indica que elemento no est seleccionado.
True/False:
Ejercicios prcticos 1.- Nuestra primera aplicacin muestra como agregar nombre de pases a una ListBox. Tambin permite eliminar un pas 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 Form Label1 Propiedad Caption StartUpPosition AutoSize Caption Font Name Text Name Caption AutoSize Caption Name AutoSize Caption Name Text Valor Trabajando con cajas de listas 2 CenterScreen True Introduzca el pas: Arial, Normal, 10. txtPais cmdAgregarPais &Agregar True Lista de pases: lstPaises True Total: txtTotalPaises
Pgina 14 de 17
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC> Valor cmdEliminar &Eliminar cmdBorrarLista &Borrar lista
Dentro del evento Click del botn Agregar escriba: Verifica si la caja de texto se deja vaca. If Len(Trim(txtPais.Text)) = 0 Then MsgBox ("Introduzca el nombre de un pas en la caja.") txtPais.SetFocus Else Si la caja tiene algn pas. lstPaises.AddItem txtPais.Text Agregue el pas. txtPais.Text = "" txtPais.SetFocus Limpia la caja de texto. Hace que la caja reciba el enfoque.
Pone el nmero de pases agregados en la caja de lista. txtTotalPaises.Text = lstPaises.ListCount End If Dentro del evento Click del botn Eliminar escriba: En caso de que ocurra un error al eliminar un elemento de la lista. On Error Resume Next lstPaises.RemoveItem (lstPaises.ListIndex) txtTotalPaises.Text = lstPaises.ListCount Borra el elemento seleccionado. Actualiza el total de pases.
Dentro del evento Clic del botn Borrar Lista escriba: Elimina todo el contenido del ListBox. lstPaises.Clear txtTotalPaises.Text = lstPaises.ListCount Corra la aplicacin. En la caja de texto de la aplicacin introduzca algn pas, y a continuacin, haga clic en el botn Agregar. Agregue todos los pases que desee y podr observar que todos los pases se agregan al control ListBox. Seleccione algunos de los pases ya agregados y luego haga clic en el botn Eliminar. Actualiza el total de pases.
Pgina 15 de 17
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC>
2.-) Nuestra segunda aplicacin muestra en un cuadro de dialogo la capital de un pas seleccionado en 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 botn de comando debajo del control ListBox. Aplique los siguientes valores a las propiedades de los controles indicado en la siguiente tabla: Control Form Label1 Propiedad Caption StartUpPosition AutoSize Caption Font Name Name Caption Valor Trabajando con cajas de listas 2 - CenterScreen True Seleccione un pas Arial, Normal, 10. lstPaises cmdSalir &Salir
List1 Command1
Dentro del evento Click del botn Salir escriba: Cierra la aplicacin. End Dentro del evento Load del formulario escriba:
Pgina 16 de 17
SERVICIO NACIONAL DE APRENDIZAJE CENTRO DE COMERCIO Y SERVICIOS MATERIAL DE APOYO <VISUAL BASIC> Agrega los pases al control lstPaises.AddItem "Repblica Dominicana" lstPaises.AddItem "Per" lstPaises.AddItem "Salvador" lstPaises.AddItem "Mxico" lstPaises.AddItem "Puerto Rico" lstPaises.AddItem "Ecuador" Dentro del evento Click del control ListBox escriba:
Verifica el pas seleccionado y muestra la capital en un cuadro de mensaje. Ucase devuelve la cadena en mayusculas
If UCase(lstPaises.List(lstPaises.ListIndex)) = UCase("Repblica 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("Mxico") Then MsgBox ("Mxico") 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 aplicacin. Seleccione cualquier pas de la lista para que el programa muestre su capital en una ventana de dilogo.
Pgina 17 de 17