#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