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

从网站上获取需要的数据实例（天气预报）2010-07-14 csdn博客 //定义

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