world map.frm

vc++的部分比较经典的源码

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "ASPPainter sample 6"
   ClientHeight    =   7605
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   11010
   LinkTopic       =   "Form1"
   ScaleHeight     =   7605
   ScaleWidth      =   11010
   StartUpPosition =   3  'Windows Default
   Begin VB.ListBox CountriesList 
      Height          =   1230
      ItemData        =   "World Map.frx":0000
      Left            =   360
      List            =   "World Map.frx":0002
      TabIndex        =   1
      Top             =   5880
      Width           =   1335
   End
   Begin VB.PictureBox Picture1 
      Appearance      =   0  'Flat
      AutoRedraw      =   -1  'True
      AutoSize        =   -1  'True
      BackColor       =   &H80000005&
      ForeColor       =   &H80000008&
      Height          =   5535
      Left            =   0
      ScaleHeight     =   5505
      ScaleWidth      =   11025
      TabIndex        =   0
      Top             =   0
      Width           =   11055
   End
   Begin VB.Frame Frame1 
      Caption         =   "Select Country"
      Height          =   1695
      Left            =   240
      TabIndex        =   2
      Top             =   5640
      Width           =   1575
   End
   Begin VB.Label Label1 
      Caption         =   "WWW.ASPPAINTER.COM"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   24
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00008000&
      Height          =   855
      Left            =   3000
      TabIndex        =   3
      Top             =   6120
      Width           =   6975
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CountriesList_Click()
Set Picture1 = MakeMap(hwnd, CountriesList)
End Sub

Private Sub Form_Load()
Dim cn(300) As String
Dim i As Long

cn(1) = "Russia"
cn(2) = "Kazakstan"
cn(3) = "Mongolia"
cn(4) = "China"
cn(5) = "Australia"
cn(6) = "Canada"
cn(7) = "United States"
cn(9) = "Greenland"
cn(10) = "Iceland"
cn(11) = "Ireland"
cn(12) = "United Kingdom"
cn(13) = "France"
cn(14) = "Spain"
cn(15) = "Portugal"
cn(16) = "Algeria"
cn(17) = "Italy"
cn(18) = "Krait"
cn(19) = "Germany"
cn(20) = "Poland"
cn(21) = "Belarus"
cn(22) = "Finland"
cn(23) = "Mexico"
cn(24) = "Cuba"
cn(25) = "Brazil"
cn(26) = "Sweden"
cn(28) = "Norway"
cn(34) = "Japan"
cn(36) = "India"
cn(37) = "Sri Lanka"
cn(38) = "South Africa"
cn(39) = "Morocco"
cn(40) = "Western Sahara"
cn(41) = "Mauritania"
cn(42) = "Senegal"
cn(43) = "Guinea-Bissau"
cn(44) = "Guinea"
cn(45) = "Sierra Leone"
cn(46) = "Liberia"
cn(47) = "Abidjan"
cn(48) = "Ghana"
cn(49) = "Togo"
cn(50) = "Benin"
cn(51) = "Nigeria"
cn(52) = "Cameroon"
cn(53) = "Equatorial Guinea"
cn(54) = "Gabon"
cn(55) = "Congo"
cn(56) = "Zaire"
cn(57) = "Angola"
cn(58) = "Namibia"
cn(59) = "Botswana"
cn(60) = "Zimbabwe"
cn(61) = "Mozambique"
cn(62) = "Madagascar"
cn(63) = "Zambia"
cn(64) = "Tanzania"
cn(65) = "Kenya"
cn(66) = "Somalia"
cn(67) = "Djibouti"
cn(69) = "Ethiopia"
cn(70) = "Sudan"
cn(71) = "Egypt"
cn(72) = "Libya"
cn(73) = "Tunisia"
cn(74) = "Mali"
cn(75) = "Niger"
cn(76) = "Chad"
cn(77) = "Central African Republic"
cn(78) = "Uganda"
cn(79) = "Lesotho"
cn(80) = "Swaziland"
cn(81) = "Malawi"
cn(82) = "Rwanda"
cn(83) = "Burundi"
cn(84) = "Burkina Faso"
cn(85) = "Greece"
cn(87) = "Turkey"
cn(89) = "Syria"
cn(90) = "Lebanon"
cn(91) = "Israel"
cn(92) = "Jordan"
cn(93) = "Iraq"
cn(94) = "Saudi Arabia"
cn(95) = "Yemen"
cn(96) = "Oman"
cn(97) = "United Arab Emirates"
cn(98) = "Qatar"
cn(99) = "Bahrain"
cn(100) = "Kuwait"
cn(101) = "Iran"
cn(102) = "Cyprus"
cn(103) = "Turkmenistan"
cn(104) = "Pakistan"
cn(105) = "Albania"
cn(106) = "Yugoslavia"
cn(108) = "Nepal"
cn(109) = "Bhutan"
cn(110) = "Bangladesh"
cn(111) = "Miena"
cn(112) = "Thailand"
cn(114) = "Laos"
cn(115) = "Vietnam"
cn(116) = "Bulgaria"
cn(117) = "Romania"
cn(118) = "Hungary"
cn(119) = "Czech Republic"
cn(120) = "Slovakia"
cn(121) = "Lithuania"
cn(122) = "Latvia"
cn(123) = "Estonia"
cn(124) = "Afghanistan"
cn(125) = "Ukraine"
cn(126) = "Moldova"
cn(128) = "Cambodia"
cn(129) = "Malaysia"
cn(130) = "Malazia"
cn(131) = "Switzerland"
cn(132) = "Austria"
cn(133) = "Netherlands"
cn(134) = "Belgium"
cn(135) = "Luxembourg"
cn(136) = "Denmark"
cn(137) = "Uzbekistan"
cn(138) = "Kyrgyzstan"
cn(139) = "Tajikistan"
cn(140) = "Georgia"
cn(141) = "Azerbaijan"
cn(142) = "Armenia"
cn(143) = "Jamaica"
cn(144) = "Haiti"
cn(145) = "Dominica"
cn(146) = "Guatemala"
cn(147) = "Belize"
cn(148) = "El Salvador"
cn(149) = "Honduras"
cn(150) = "Nicaragua"
cn(151) = "Costa Rica"
cn(152) = "Panama"
cn(153) = "San Chuan"
cn(154) = "Colombia"
cn(155) = "Venezuela"
cn(156) = "Guyana"
cn(157) = "Suriname"
cn(158) = "French Guiana"
cn(159) = "Ecuador"
cn(160) = "Peru"
cn(161) = "Bolivia"
cn(162) = "Chile"
cn(163) = "Paraguay"
cn(164) = "Argentina"
cn(165) = "Uruguay"
cn(166) = "Antarctica"
cn(167) = "Indonesia"
cn(168) = "New Zealand"
cn(169) = "New Caledonia"
cn(170) = "Vanuatu"
cn(171) = "Fiji"
cn(172) = "Papua New Guinea"
cn(173) = "Solomon Islands"
cn(174) = "Philippines"
cn(175) = "Palau"
cn(176) = "Guam"
cn(177) = "Northern Mariana Islands"
cn(178) = "Micronesia"
cn(179) = "Nauru"
cn(181) = "Kiribati"
cn(182) = "Tuvalu"
cn(184) = "Taiwan"
cn(185) = "Maldives"
cn(186) = "Comoros"
cn(187) = "Mauritius"
cn(188) = "Reunion"
cn(189) = "Seychelles"
cn(190) = "Sao Tome and Principe"
cn(191) = "Kanar Islands"
cn(192) = "Grenada"
cn(193) = "Barbados"
cn(194) = "Saint Vincent and the Grenadines"
cn(195) = "Saint Lucia"
cn(196) = "Martinique"
cn(197) = "Dominican Republic"
cn(198) = "Guadeloupe"
cn(199) = "Antigua and Barbuda"
cn(200) = "Saint Kitts and Nevis"
cn(201) = "Anguilla"
cn(202) = "Verging Island"
cn(203) = "British Virgin Islands"
cn(204) = "The Bahamas"
cn(205) = "Turks and Caicos Islands"
cn(206) = "Cayman Islands"
cn(207) = "Bermuda"
cn(208) = "American Samoa"
cn(209) = "Cook Islands"
cn(210) = "French Polynesia"
cn(211) = "Falkland Islands (Islas Malvinas)"
cn(212) = "Eritrea"
cn(213) = "Korea, North"
cn(214) = "Korea, South"
cn(215) = "Liechtenstein"
cn(216) = "Malta"
cn(217) = "Monaco"
cn(218) = "Singapore"
cn(219) = "Slovenia"
cn(220) = "Tonga"
cn(221) = "Tokelau"
cn(222) = "Andorra"
cn(223) = "Brunei"
cn(225) = "Cape Verde"
cn(226) = "Trinidad and Tobago"
cn(227) = "The Gambia"

For i = 1 To 277
    If cn(i) <> "" Then CountriesList.AddItem cn(i)
Next
Set Picture1 = MakeMap(hwnd, "Australia")
End Sub