|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Problemas Comuns)
|
|
 |
Título da Dica: Popular um combo com todos os países do mundo (Lista de 1998).
|
 |
|
|
|
Postada em 11/2/2004 por PC
Sub PopulaPaises(CB As ComboBox) ' se tiver um list basta trocar para ListBox ;-)
'Criado por PC do www.VBWEB.com.br
With CB
.AddItem "Afeganistão"
.AddItem "África do Sul"
.AddItem "Albânia"
.AddItem "Alemanha"
.AddItem "Alto Volta"
.AddItem "Andorra"
.AddItem "Angola"
.AddItem "Anguila"
.AddItem "Antárctida"
.AddItem "Antígua e Barbuda"
.AddItem "Antilhas Holandesas"
.AddItem "Antilhas Neerlandesas"
.AddItem "Arábia Saudita"
.AddItem "Argélia"
.AddItem "Argentina"
.AddItem "Arménia"
.AddItem "Aruba"
.AddItem "Austrália"
.AddItem "Áustria"
.AddItem "Azerbaijão"
'B
.AddItem "Bahamas"
.AddItem "Bangladesh"
.AddItem "Barbados"
.AddItem "Barém"
.AddItem "Belarus"
.AddItem "Bélgica"
.AddItem "Belize"
.AddItem "Benim"
.AddItem "Bermudas"
.AddItem "Bielorrússia"
.AddItem "Birmânia; Myanmar"
.AddItem "Bolívia"
.AddItem "Bósnia -Herzegovina"
.AddItem "Botsuana"
.AddItem "Bouvet , Ilha"
.AddItem "Brasil"
.AddItem "Brunei"
.AddItem "Bulgária"
.AddItem "Burquina Faso"
.AddItem "Burundi"
.AddItem "Butão"
'C
.AddItem "Cabo Verde"
.AddItem "Caimão , Ilhas"
.AddItem "Camarões"
.AddItem "Camboja"
.AddItem "Canadá"
.AddItem "Catar; Qatar"
.AddItem "Cazaquistão"
.AddItem "Ceilão (ver Sri Lanca)"
.AddItem "Chade"
.AddItem "Chéquia"
.AddItem "Chile"
.AddItem "China"
.AddItem "Chipre"
.AddItem "Christmas , Ilha"
.AddItem "Cocos , Ilhas"
.AddItem "Colômbia"
.AddItem "Comores"
.AddItem "Congo"
.AddItem "Congo -Brazzaville"
.AddItem "Congo -Kinshasa"
.AddItem "Cook , Ilhas"
.AddItem "Coreia do Norte"
.AddItem "Coreia do Sul"
.AddItem "Costa do Marfim"
.AddItem "Costa Rica"
.AddItem "Croácia"
.AddItem "Cuba"
'D
.AddItem "Daomé (ver Benim)"
.AddItem "Dinamarca"
.AddItem "Djibuti (ver Jibuti)"
.AddItem "Domínica"
'e
.AddItem "Egipto"
.AddItem "Eire (ver Irlanda)"
.AddItem "El Salvador (ver Salvador)"
.AddItem "Emiratos Árabes Unidos"
.AddItem "Equador"
.AddItem "Eritreia"
.AddItem "Eslováquia"
.AddItem "Eslovénia"
.AddItem "Espanha"
.AddItem "Estados Unidos"
.AddItem "Estónia"
.AddItem "Etiópia"
'F
.AddItem "Falkland , Ilhas"
.AddItem "Faroé"
.AddItem "Fiji"
.AddItem "Filipinas"
.AddItem "Finlândia"
.AddItem "Formosa (ver Taiwan)"
.AddItem "França"
'G
.AddItem "Gabão"
.AddItem "Gâmbia"
.AddItem "Gana"
.AddItem "Geórgia"
.AddItem "Geórgia do Sul e Sandwich do Sul, Ilhas"
.AddItem "Gibraltar"
.AddItem "Granada"
.AddItem "Grécia"
.AddItem "Gronelândia"
.AddItem "Guadalupe"
.AddItem "Guam"
.AddItem "Guatemala"
.AddItem "Guiana"
.AddItem "Guiana Francesa"
.AddItem "Guiné"
.AddItem "Guiné -Bissau"
.AddItem "Guiné Equatorial"
'H
.AddItem "Haiti"
.AddItem "Heard e McDonald, Ilhas"
.AddItem "Honduras"
.AddItem "Hong Kong"
.AddItem "Hungria"
'I
.AddItem "Iémen"
.AddItem "Ilhas Menores Distantes dos Estados Unidos"
.AddItem "Índia"
.AddItem "Indonésia"
.AddItem "Irão"
.AddItem "Iraque"
.AddItem "Irlanda; Eire"
.AddItem "Islândia"
.AddItem "Israel"
.AddItem "Itália"
'J
.AddItem "Jamaica"
.AddItem "Jan Mayen"
.AddItem "Japão"
.AddItem "Jibuti; Djibuti"
.AddItem "Jordânia"
.AddItem "Jugoslávia"
'K
.AddItem "Kiribati (ver Quiribati)"
.AddItem "Kuwait"
'L
.AddItem "Laos"
.AddItem "Lesoto"
.AddItem "Letónia"
.AddItem "Líbano"
.AddItem "Libéria"
.AddItem "Líbia"
.AddItem "Listenstaine"
.AddItem "Lituânia"
.AddItem "Luxemburgo"
'M
.AddItem "Macau"
.AddItem "Macedónia"
.AddItem "Madagáscar"
.AddItem "Malásia"
.AddItem "Malavi"
.AddItem "Maldivas"
.AddItem "Mali"
.AddItem "Malta"
.AddItem "Malvinas (ver Falkland, Ilhas)"
.AddItem "Marianas do Norte"
.AddItem "Marrocos"
.AddItem "Marshall , Ilhas"
.AddItem "Martinica"
.AddItem "Maurícia"
.AddItem "Mauritânia"
.AddItem "Mayotte"
.AddItem "México"
.AddItem "Micronésia"
.AddItem "Moçambique"
.AddItem "Moldávia"
.AddItem "Moldova"
.AddItem "Mónaco"
.AddItem "Mongólia"
.AddItem "Monserrate"
.AddItem "Myanmar (ver Birmânia)"
'N
.AddItem "Namíbia"
.AddItem "Nauru"
.AddItem "Nepal"
.AddItem "Nicarágua"
.AddItem "Níger"
.AddItem "Nigéria"
.AddItem "Niue"
.AddItem "Norfolk , Ilha"
.AddItem "Noruega"
.AddItem "Nova Caledónia"
.AddItem "Nova Zelândia"
'O
.AddItem "Omã"
'P
.AddItem "Países Baixos"
.AddItem "Palau"
.AddItem "Panamá"
.AddItem "Papua-Nova Guiné"
.AddItem "Paquistão"
.AddItem "Paraguai"
.AddItem "Peru"
.AddItem "Pitcairn"
.AddItem "Polinésia Francesa"
.AddItem "Polónia"
.AddItem "Porto Rico"
.AddItem "Portugal"
'Q
.AddItem "Qatar (ver Catar)"
.AddItem "Quénia"
.AddItem "Quirguizistão"
.AddItem "Quiribati; Kiribati"
'R
.AddItem "Reino Unido"
.AddItem "República Centro - Africana"
.AddItem "República Checa; Chéquia"
.AddItem "República Dominicana"
.AddItem "Reunião"
.AddItem "Roménia"
.AddItem "Ruanda"
.AddItem "Rússia"
'S
.AddItem "São Cristóvão e Neves"
.AddItem "Salomão , Ilhas"
.AddItem "Salvador"
.AddItem "Samoa Americana"
.AddItem "Samoa Ocidental"
.AddItem "Geórgia do Sul, Ilhas"
.AddItem "Santa Helena"
.AddItem "Santa Lúcia"
.AddItem "São Marinho"
.AddItem "São Pedro e Miquelon"
.AddItem "São Tomé e Príncipe"
.AddItem "São Vicente e Granadinas"
.AddItem "Sara Ocidental"
.AddItem "Seicheles"
.AddItem "Senegal"
.AddItem "Serra Leoa"
.AddItem "Seychelles"
.AddItem "Singapura"
.AddItem "Síria"
.AddItem "Somália"
.AddItem "Sri Lanca"
.AddItem "Suazilândia"
.AddItem "Sudão"
.AddItem "Suécia"
.AddItem "Suíça"
.AddItem "Suriname"
.AddItem "Svalbard e Jan Mayen"
'T
.AddItem "Tailândia"
.AddItem "Taiwan"
.AddItem "Tajiquistão"
.AddItem "Tanzânia"
.AddItem "Território Britânico do Oceano Índico"
.AddItem "Territórios Austrais Franceses"
.AddItem "Timor Leste"
.AddItem "Togo"
.AddItem "Tokelau"
.AddItem "Tonga"
.AddItem "Trindade e Tobago"
.AddItem "Tunísia"
.AddItem "Turcas e Caicos, Ilhas"
.AddItem "Turquemenistão"
.AddItem "Turquia"
.AddItem "Tuvalu"
'U
.AddItem "Ucrânia"
.AddItem "Uganda"
.AddItem "Uruguai"
.AddItem "Usbequistão"
'V
.AddItem "Vanuatu"
.AddItem "Vaticano"
.AddItem "Venezuela"
.AddItem "Vietname"
.AddItem "Virgens (Americanas), Ilhas"
.AddItem "Virgens (Britânicas), Ilhas"
'W , X, Y
.AddItem "Wallis e Futuna"
'Z
.AddItem "Zaire (ver Congo-Kinshasa)"
.AddItem "Zâmbia"
.AddItem "Zimbabué"
'POE NO BR como default
.ListIndex = 35
End With
End Sub
Private Sub Form_Load()
'para chamar a funcçao use como abaixo:
PopulaPaises Combo1
End Sub
|
|
|
|
|
