自治区" Then
Combo2.AddItem "银川"
Combo2.AddItem "石嘴山"
Combo2.AddItem "吴忠"
Combo2.AddItem "固原"
End If
''新疆维吾尔自治区
If Combo1.Text = "新疆维吾尔自治区" Then
Combo2.AddItem "乌鲁木齐"
Combo2.AddItem "克拉玛依"
Combo2.AddItem "吐鲁番"
Combo2.AddItem "哈密"
Combo2.AddItem "昌吉"
Combo2.AddItem "博乐"
Combo2.AddItem "库尔勒"
Combo2.AddItem "阿克苏"
Combo2.AddItem "克州"
Combo2.AddItem "喀什"
Combo2.AddItem "伊犁"
Combo2.AddItem "石河子"
Combo2.AddItem "塔城"
Combo2.AddItem "阿勒泰"
Combo2.AddItem "和田"
End If
''台湾省
If Combo1.Text = "台湾省" Then
Combo2.AddItem "台北"
End If
''澳门特别行政区
If Combo1.Text = "澳门特别行政区" Then
Combo2.AddItem "澳门"
End If
''香港特别行政区
If Combo1.Text = "香港特别行政区" Then
Combo2.AddItem "香港"
End If
Combo2.ListIndex = 0
End Sub
Private Sub Command1_Click()
If Combo2.Text = "" Then
MsgBox "请选择城市!", vbOKOnly + 64, "提示"
Else
strHTML = ""
tital.Caption = Combo2.Text & "天气"
StaFlag = 0
Call WebBrowser1.Navigate("http://php.weather.sina.com.cn/search.php?city=" & Combo2.Text)
Label1.Caption = "请 稍 后 ..."
End If
End Sub
Private Sub Command2_Click()
Call DisPlayData(StaFlag)
End Sub
Private Sub Form_Load()
Combo1.AddItem "北京市"
Combo1.AddItem "天津市"
Combo1.AddItem "重庆市"
Combo1.AddItem "河北省"
Combo1.AddItem "山西省"
Combo1.AddItem "内蒙古自治区"
Combo1.AddItem "辽宁省"
Combo1.AddItem "吉林省"
Combo1.AddItem "黑龙江省"
Combo1.AddItem "上海市"
Combo1.AddItem "江苏省"
Combo1.AddItem "浙江省"
Combo1.AddItem "安徽省"
Combo1.AddItem "福建省"
Combo1.AddItem "江西省"
Combo1.AddItem "山东省"
Combo1.AddItem "河南省"
Combo1.AddItem "湖北省"
Combo1.AddItem "湖南省"
Combo1.AddItem "广东省"
Combo1.AddItem "广西壮族自治区"
Combo1.AddItem "海南省"
Combo1.AddItem "四川省"
Combo1.AddItem "贵州省"
Combo1.AddItem "云南省"
Combo1.AddItem "西藏自治区"
Combo1.AddItem "陕西省"
Combo1.AddItem "甘肃省"
Combo1.AddItem "青海省"
Combo1.AddItem "宁夏回族自治区"
Combo1.AddItem "新疆维吾尔自治区"
Combo1.Add
|