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

''黑龙江省

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 "大兴安岭"
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 "镇江"
　　　　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 "滁州"
　　　　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 &q

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