快速业务通道

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

作者 佚名技术 来源 程序设计 浏览 发布时间 2012-06-29

//定义

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 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号