从网站上获取需要的数据实例(天气预报)

//定义

Option Explicit
Private Type Weather
　　strAdd　　 As String
　　strDate　　As String
　　strPicPath As String
　　strWeather As String
　　strWind　　As String
　　strSM(10)　As String
End Type

Public Weatherday(2) As Weather

//*******************************************************************

//窗体

Option Explicit
Dim strHTML As String
Public StaFlag As Byte
Private Sub Combo1_Click()

Combo2.Clear

''北京

If Combo1.Text = "北京市" Then
　　　　Combo2.AddItem "北京"
End If

''天津

If Combo1.Text = "天津市" Then
　　　　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 "长治"
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 "衡水"
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 "乌兰浩特"
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 "辽阳"
End If

''吉林省

If Combo1.Text = "吉林省" Then
　　　　Combo2.AddItem "长春"
　　　　Combo2.AddItem "吉林"
　　　　Combo2.AddItem "四平"
　　　　Combo2.AddItem "辽源&qu

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!