by Eduardo Sastre (2 Submissions)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 2nd March 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Funci¨n para a?adir las provincias espa?olas a un combobox y darle a cada una su valor de inicio de c¨digo postal.
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'Listado de provincias y ciudades autonomas españolas
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'EJEMPLO DE USO
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'Private Sub Form_Load()
'AddProvincias combo1
'End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''
With Combo
.AddItem "Álava"
.ItemData(0) = "01"
.AddItem "Albacete"
.ItemData(1) = "02"
.AddItem "Alicante"
.ItemData(2) = "03"
.AddItem "Almería"
.ItemData(3) = "04"
.AddItem "Asturias"
.ItemData(4) = "33"
.AddItem "Ávila"
.ItemData(5) = "05"
.AddItem "Badajoz"
.ItemData(6) = "06"
.AddItem "Barcelona"
.ItemData(7) = "08"
.AddItem "Burgos"
.ItemData(8) = "09"
.AddItem "Cáceres"
.ItemData(9) = "10"
.AddItem "Cádiz"
.ItemData(10) = "11"
.AddItem "Cantabria"
.ItemData(11) = "39"
.AddItem "Castellón de la Plana"
.ItemData(12) = "12"
.AddItem "Ceuta"
.ItemData(13) = "51"
.AddItem "Ciudad Real"
.ItemData(14) = "13"
.AddItem "Córdoba"
.ItemData(15) = "14"
.AddItem "Coruña, A"
.ItemData(16) = "15"
.AddItem "Cuenca"
.ItemData(17) = "16"
.AddItem "Girona"
.ItemData(18) = "17"
.AddItem "Granada"
.ItemData(19) = "18"
.AddItem "Guadalajara"
.ItemData(20) = "19"
.AddItem "Guipúzcoa"
.ItemData(21) = "20"
.AddItem "Huelva"
.ItemData(22) = "21"
.AddItem "Huesca"
.ItemData(23) = "22"
.AddItem "Illes Balears"
.ItemData(24) = "07"
.AddItem "Jaén"
.ItemData(25) = "23"
.AddItem "León"
.ItemData(26) = "24"
.AddItem "Lleida"
.ItemData(27) = "25"
.AddItem "Lugo"
.ItemData(28) = "27"
.AddItem "Madrid"
.ItemData(29) = "28"
.AddItem "Málaga"
.ItemData(30) = "29"
.AddItem "Melilla"
.ItemData(31) = "52"
.AddItem "Murcia"
.ItemData(32) = "30"
.AddItem "Navarra"
.ItemData(33) = "31"
.AddItem "Ourense"
.ItemData(34) = "32"
.AddItem "Palencia"
.ItemData(35) = "34"
.AddItem "Palmas,Las"
.ItemData(36) = "35"
.AddItem "Pontevedra"
.ItemData(37) = "36"
.AddItem "Rioja,La"
.ItemData(38) = "26"
.AddItem "Salamanca"
.ItemData(39) = "37"
.AddItem "Santa Cruz De Tenerife"
.ItemData(40) = "38"
.AddItem "Segovia"
.ItemData(41) = "40"
.AddItem "Sevilla"
.ItemData(42) = "41"
.AddItem "Soria"
.ItemData(43) = "42"
.AddItem "Tarragona"
.ItemData(44) = "43"
.AddItem "Teruel"
.ItemData(45) = "44"
.AddItem "Toledo"
.ItemData(46) = "45"
.AddItem "Valencia"
.ItemData(47) = "46"
.AddItem "Valladolid"
.ItemData(48) = "47"
.AddItem "Vizcaya"
.ItemData(49) = "48"
.AddItem "Zamora"
.ItemData(50) = "49"
.AddItem "Zaragoza"
.ItemData(51) = "50"
End With
End Sub
No comments have been posted about Funci¨n para a?adir las provincias espa?olas a un combobox y darle a cada una su valor de inicio de. Why not be the first to post a comment about Funci¨n para a?adir las provincias espa?olas a un combobox y darle a cada una su valor de inicio de.