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.
-
|