|     Inicio    |   |         |  |   FOROS      |  |      |      
   Elastix - VoIP B4A (Basic4Android) App inventor 2 PHP - MySQL
  Estación meteorológica B4J (Basic4Java) ADB Shell - Android Arduino
   AutoIt (Programación) Visual Basic Script (VBS) FireBase (BD autoactualizable) NodeMCU como Arduino
  Teleco - Emisora de A.M. Visual Basic Cosas de Windows Webs interesantes
Translate:
Búsqueda en este sitio:


.

Autoit en español
Aplicaciones con Autoit - Juan Antonio Villalpando

-- Tutorial de iniciación a Autoit --

Volver al índice del tutorial

____________________________

17.- Desplegable. Lista. Países y capitales. (Combo. List).

desplegable.exe

- Al elegir un elemento de la Lista saldrá la capital y su país correspondiente.

- Al pulsar sobre una opción de un Desplagable (Combo), saldrá el nombre de un país y su capital.

__________________________

- Código completo.

Desplegable.
				   
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form3 = GUICreate("Desplegable - Juan A. Villalpando", 615, 368, 374, 136)
$Combo1 = GUICtrlCreateCombo("Elige el país", 352, 16, 201, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "España|México|Colombia|Argentina|Chile|Perú|Ecuador|Venezuela|Uruguay|Paraguay|Bolivia|Cuba|Rep. Dominicana")
$List1 = GUICtrlCreateList("", 24, 16, 185, 118)
GUICtrlSetData(-1, "Asunción|Bogotá|Buenos Aires|Caracas|Ciudad de México|La Habana|La Paz|Lima|Madrid|Montevideo|Quito|Santiago|Santo Domingo")
$Label1 = GUICtrlCreateLabel("Label1", 16, 304, 269, 36)
$Label2 = GUICtrlCreateLabel("Label2", 296, 304, 309, 36)
GUISetState(@SW_SHOW)
; Juan A. Villalpando - KIO4.COM
#EndRegion ### END Koda GUI section ###

$pais = ""
$capital = ""
$texto = ""

While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop

Case $msg = $List1
$capital = GUICtrlRead($List1)
if $capital = "Madrid"  Then $pais = "España"
if $capital = "Ciudad de México" Then $pais = "México"
if $capital = "Bogotá" Then $pais = "Colombia"
if $capital = "Buenos Aires" Then $pais = "Argentina"
if $capital = "Santiago" Then $pais = "Chile"
if $capital = "Lima" Then $pais = "Perú"
if $capital = "Quito"  Then $pais = "Ecuador"
if $capital = "Caracas" Then  $pais = "Venezuela"
if $capital = "Montevideo" Then $pais = "Uruguay"
if $capital = "Asunción" Then  $pais = "Paraguay"
if $capital = "La Paz" Then  $pais = "Bolivia"
if $capital = "La Habana" Then $pais = "Cuba"
if $capital = "Santo Domingo" Then $pais = "Rep. Dominicana"
$texto = $capital & " es la capital de " & $pais
GUICtrlSetData($Label1, $texto)


Case $msg = $Combo1
$pais = GUICtrlRead($Combo1)
if $pais = "España" Then $capital = "Madrid"
if $pais = "México" Then $capital = "Ciudad de México"
if $pais = "Colombia" Then $capital = "Bogotá"
if $pais = "Argentina" Then $capital = "Buenos Aires"
if $pais = "Chile" Then $capital = "Santiago"
if $pais = "Perú" Then $capital = "Lima"
if $pais = "Ecuador" Then $capital = "Quito"
if $pais = "Venezuela" Then $capital = "Caracas"
if $pais = "Uruguay" Then $capital = "Montevideo"
if $pais = "Paraguay" Then $capital = "Asunción"
if $pais = "Bolivia" Then $capital = "La Paz"
if $pais = "Cuba" Then $capital = "La Habana"
if $pais = "Rep. Dominicana" Then $capital = "Santo Domingo"
$texto = "La capital de " & $pais & " es " & $capital
GUICtrlSetData($Label2, $texto)

EndSelect
Wend
Exit

________________________________________________
- Comentarios.

- En vez de utilizar este código podríamos haberlo realizado con matrices.

- En este tutorial podemos ver cómo añadir un elemento a la Lista.

_________________
- Propuesta.

-

- Mi correo:
juana1991@yahoo.com
- KIO4.COM - Política de cookies. Textos e imágenes propiedad del autor:
© Juan A. Villalpando
No se permite la copia de información ni imágenes.
Usamos cookies propias y de terceros que entre otras cosas recogen datos sobre sus hábitos de navegación y realizan análisis de uso de nuestro sitio.
Si continúa navegando consideramos que acepta su uso. Acepto    Más información