快速业务通道

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

作者 佚名技术 来源 程序设计 浏览 发布时间 2012-06-29
自治区" 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

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站: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号