by Raza Hasnain (2 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 10th May 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Generic use of a list of hard coded countrys. Simply call the funtion "call ComboFill(combobox name)"
API Declarations
'copy all this in to a module
'and then in your form call this function:
'ComboFill(combobox name)
'Where combobox is the name of the combobox.
Public Function comboFill(cmbFill As ComboBox)
'--------------combo-------------------------------------------------------------
With cmbFill
.AddItem "Afghanistan"
.AddItem "Albania"
.AddItem "Algeria"
.AddItem "American Samoa"
.AddItem "Andorra"
.AddItem "Angola"
.AddItem "Anguilla"
.AddItem "Antarctica"
.AddItem "Antigua and Barbuda"
.AddItem "Argentina"
.AddItem "Armenia"
.AddItem "Aruba"
.AddItem "Australia"
.AddItem "Austria"
.AddItem "Azerbaijan"
.AddItem "Bahamas"
.AddItem "Bahrain"
.AddItem "Bangladesh"
.AddItem "Barbados"
.AddItem "Belarus"
.AddItem "Belgium"
.AddItem "Belize"
.AddItem "Benin"
.AddItem "Bermuda"
.AddItem "Bhutan"
.AddItem "Bolivia"
.AddItem "Bosnia and Herzegovina"
.AddItem "Botswana"
.AddItem "Bouvet Island"
.AddItem "Brazil"
.AddItem "British Indian Ocean Terri"
.AddItem "Brunei Darussalam"
.AddItem "Bulgaria"
.AddItem "Burkina Faso"
.AddItem "Burundi"
.AddItem "Cambodia"
.AddItem "Cameroon"
.AddItem "Canada"
.AddItem "Cape Verde"
.AddItem "Cayman Islands"
.AddItem "Central African Republic"
.AddItem "Chad"
.AddItem "Chile"
.AddItem "China"
.AddItem "Christmas Island"
.AddItem "Cocos (Keeling) Islands"
.AddItem "Colombia"
.AddItem "Comoros"
.AddItem "CG"
.AddItem "Congo, The Democratic Republic Of The"
.AddItem "Cook Islands"
.AddItem "Costa Rica"
.AddItem "Cote D'Ivoire (Ivory Coast)"
.AddItem "Croatia (Hrvatska)"
.AddItem "Cuba"
.AddItem "Cyprus"
.AddItem "Czech Republic"
.AddItem "Czechoslovakia (former)"
.AddItem "Denmark"
.AddItem "Djibouti"
.AddItem "Dominica"
.AddItem "Dominican Republic"
.AddItem "TEast TimorP"
.AddItem "Ecuador"
.AddItem "Egypt"
.AddItem "El Salvador"
.AddItem "Equatorial Guinea"
.AddItem "Eritrea"
.AddItem "Estonia"
.AddItem "Ethiopia"
.AddItem "Falkland Islands (Malvinas)"
.AddItem "Faroe Islands"
.AddItem "Fiji"
.AddItem "Finland"
.AddItem "France"
.AddItem "French Guiana"
.AddItem "French Polynesia"
.AddItem "French Southern Territories"
.AddItem "Gabon"
.AddItem "Gambia"
.AddItem "Georgia"
.AddItem "Germany"
.AddItem "Ghana"
.AddItem "Gibraltar"
.AddItem "Greece"
.AddItem "Greenland"
.AddItem "Grenada"
.AddItem "Guadeloupe"
.AddItem "Guam"
.AddItem "Guatemala"
.AddItem "Guinea"
.AddItem "Guinea-Bissau"
.AddItem "Guyana"
.AddItem "Haiti"
.AddItem "Heard and McDonal"
.AddItem "Honduras"
.AddItem "Hong Kong"
.AddItem "Hungary"
.AddItem "Iceland"
.AddItem "India"
.AddItem "Indonesia"
.AddItem "Iran"
.AddItem "Iraq"
.AddItem "Ireland"
.AddItem "Israel"
.AddItem "Italy"
.AddItem "Jamaica"
.AddItem "Japan"
.AddItem "Jordan"
.AddItem "Kazakhstan"
.AddItem "Kenya"
.AddItem "Kiribati"
.AddItem "Korea (North)"
.AddItem "Korea (South)"
.AddItem "Kuwait" > Kuwait
.AddItem "Kyrgyzstan"
.AddItem "Laos"
.AddItem "Latvia"
.AddItem "Lebanon"
.AddItem "Lesotho"
.AddItem "Liberia"
.AddItem "Libya"
.AddItem "Liechtenstein"
.AddItem "Lithuania"
.AddItem "Luxembourg"
.AddItem "Macau"
.AddItem "Macedonia"
.AddItem "Madagascar"
.AddItem "Malawi"
.AddItem "Malaysia"
.AddItem "Maldives"
.AddItem "Mali"
.AddItem "Malta"
.AddItem "Marshall Islands"
.AddItem "Martinique"
.AddItem "Mauritania"
.AddItem "Mauritius"
.AddItem "Mayotte"
.AddItem "Mexico"
.AddItem "Micronesia"
.AddItem "Moldova"
.AddItem "Monaco"
.AddItem "Mongolia"
.AddItem "Montserrat"
.AddItem "Morocco"
.AddItem "Mozambique"
.AddItem "Myanmar"
.AddItem "Namibia"
.AddItem "Nauru"
.AddItem "Nepal"
.AddItem "Netherlands"
.AddItem "Netherlands Antilles"
.AddItem "Neutral Zone"
.AddItem "New Caledonia"
.AddItem "New Zealand (Aotearoa)"
.AddItem "Nicaragua"
.AddItem "Niger"
.AddItem "Nigeria"
.AddItem "Niue"
.AddItem "Norfolk Island"
.AddItem "Northern Mariana Islands"
.AddItem "Norway"
.AddItem "Oman"
.AddItem "Pakistan"
.AddItem "Palau"
.AddItem "Palestinian Territory, Occupied"
.AddItem "Panama"
.AddItem "Papua New Guinea"
.AddItem "Paraguay"
.AddItem "Peru" > Peru
.AddItem "Philippines"
.AddItem "Pitcairn"
.AddItem "Poland"
.AddItem "Portugal"
.AddItem "Puerto Rico"
.AddItem "Qatar"
.AddItem "Reunion"
.AddItem "Romania"
.AddItem "Russian Federation"
.AddItem "Rwanda"
.AddItem "S. Georgia and S. Sandwich Isls."
.AddItem "Saint Kitts and Nevis"
.AddItem "Saint Lucia"
.AddItem "Samoa" > Samoa
.AddItem "San Marino"
.AddItem "Sao Tome and Principe"
.AddItem "Saudi Arabia"
.AddItem "Senegal"
.AddItem "Seychelles"
.AddItem "Sierra Leone"
.AddItem "Singapore"
.AddItem "Slovak Republic"
.AddItem "Slovenia" > Slovenia
.AddItem "Solomon Islands"
.AddItem "Somalia"
.AddItem "South Africa"
.AddItem "Spain"
.AddItem "Sri Lanka"
.AddItem "St Vincent and the Grenadines"
.AddItem "St. Helena"
.AddItem "St. Pierre and Miquelon"
.AddItem "Sudan"
.AddItem "Suriname"
.AddItem "Svalbard and Jan Mayen Islands"
.AddItem "Swaziland"
.AddItem "Sweden"
.AddItem "Switzerland"
.AddItem "Syria"
.AddItem "Taiwan"
.AddItem "Tajikistan"
.AddItem "Tanzania"
.AddItem "Thailand"
.AddItem "Togo"
.AddItem "Tokelau"
.AddItem "Tonga"
.AddItem "Trinidad and Tobago"
.AddItem "Tunisia"
.AddItem "Turkey"
.AddItem "Turkmenistan"
.AddItem "Turks and Caicos Islands"
.AddItem "Tuvalu"
.AddItem "US Minor Outlying Islands"
.AddItem "USSR (former)"
.AddItem "Uganda"
.AddItem "Ukraine"
.AddItem "United Arab Emirates"
.AddItem "United Kingdom"
.AddItem "United States"
.AddItem "Uruguay"
.AddItem "Uzbekistan"
.AddItem "Vanuatu"
.AddItem "Vatican City State (Holy See)"
.AddItem "Venezuela"
.AddItem "Viet Nam"
.AddItem "Virgin Islands (British)"
.AddItem "Virgin Islands (U.S.)"
.AddItem "Wallis and Futuna Islands"
.AddItem "Western Sahara"
.AddItem "Yemen"
.AddItem "Yugoslavia"
.AddItem "Zambia"
.AddItem "Zimbabwe"
End With
End Function
No comments have been posted about Generic use of a list of hard coded countrys. Simply call the funtion call ComboFill(combobox name. Why not be the first to post a comment about Generic use of a list of hard coded countrys. Simply call the funtion call ComboFill(combobox name.