欢迎光临:
非常感谢您光临枕善居。本站是一个免费的基于VB，VB.NET源代码交流的平台，为大家提供优质的专业的源代码，如果您有需要，本站可以帮助在业余时间里给您寻找代码。当然，如果您有好的代码也可以在本站发布，共享给大家。
专业VB和.NET源码、编程开发教程、图标资源、USB电脑遥控器、智能家电控制开关....更多东东请进入我的淘宝小店--->
VB及.NET新源码2011(3DVD,控件+资源)
智能多路控制(串口编程开关) 带源码!
上一篇
下一篇
相关日志:
文章来自: 
引用通告: 
Tags: 
评论: 22 | 
回复
joforn
[2006-08-03 09:11:03 | 
| 
][stun]老是看不到链接的？
[wink]看看。
回复朵朵
[2006-04-14 22:18:19 | | ]不错
如果只是实现天气预报，那代码本身太多冗余，修改如下：这里向原作者致歉：
form1.frm
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form Weather
BorderStyle = 1 'Fixed Single
Caption = "天气预报 2.0"
ClientHeight = 5265
ClientLeft = 3375
ClientTop = 3150
ClientWidth = 7875
ForeColor = &H00A9601F&
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 351
ScaleMode = 3 'Pixel
ScaleWidth = 525
Begin VB.CommandButton Command1
Caption = "查询"
Height = 390
Left = 3645
TabIndex = 4
Top = 45
Width = 1095
End
Begin InetCtlsObjects.Inet Inet
Left = 6630
Top = 2715
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
Begin VB.ComboBox Dec
CausesValidation= 0 'False
Height = 300
ItemData = "Form1.frx":4B2A
Left = 660
List = "Form1.frx":4B94
MouseIcon = "Form1.frx":4CDE
MousePointer = 99 'Custom
Style = 2 'Dropdown List
TabIndex = 1
Top = 105
Width = 1455
End
Begin VB.ComboBox City
CausesValidation= 0 'False
Height = 300
ItemData = "Form1.frx":4E30
Left = 2235
List = "Form1.frx":4E32
MouseIcon = "Form1.frx":4E34
MousePointer = 99 'Custom
Style = 2 'Dropdown List
TabIndex = 0
Top = 105
Width = 1335
End
Begin SHDocVwCtl.WebBrowser Web
Height = 4800
Left = 0
TabIndex = 3
Top = 465
Width = 7875
ExtentX = 13891
ExtentY = 8467
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "城市:"
Height = 255
Left = 60
TabIndex = 2
Top = 165
Width = 495
End
End
Attribute VB_Name = "Weather"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Sub Command1_Click()
On Error Resume Next
Dim i As Long, j As Long, Buff As String
Web.Navigate "about:blank"
Buff = Inet.OpenURL("http://php.weather.sina.com.cn/search.php?city=" & City)
If Len(Buff) > 0 Then
i = InStr(Buff, "<!-- 城市天气 begin -->")
j = InStr(i + 1500, Buff, "<!-- 天气预报 end -->")
Buff = "<style type=text/css>td,p{font-size:12px}body{color:red}</style>" & Mid(Buff, i, j - i)
If i * j Then Web.Document.write Buff
End If
End Sub
Private Sub Dec_Click()
With City
.Clear
Select Case Dec.Text
Case "北京市"
.AddItem "北京"
Case "天津市"
.AddItem "天津"
Case "山西省"
.AddItem "太原"
.AddItem "大同"
.AddItem "阳泉"
.AddItem "晋城"
.AddItem "朔州"
.AddItem "忻州"
.AddItem "离石"
.AddItem "榆次"
.AddItem "临汾"
.AddItem "运城"
.AddItem "长治"
Case "河北省"
.AddItem "石家庄"
.AddItem "唐山"
.AddItem "秦皇岛"
.AddItem "张家口"
.AddItem "承德"
.AddItem "廊坊"
.AddItem "邯郸"
.AddItem "邢台"
.AddItem "保定"
.AddItem "沧州"
.AddItem "衡水"
Case "内蒙古自治区"
.AddItem "呼和浩特"
.AddItem "包头"
.AddItem "乌海"
.AddItem "集宁"
.AddItem "巴彦浩特"
.AddItem "临河"
.AddItem "鄂尔多斯"
.AddItem "赤峰"
.AddItem "通辽"
.AddItem "锡林浩特"
.AddItem "海拉尔"
.AddItem "乌兰浩特"
Case "辽宁省"
.AddItem "沈阳"
.AddItem "大连"
.AddItem "鞍山"
.AddItem "抚顺"
.AddItem "本溪"
.AddItem "锦州"
.AddItem "营口"
.AddItem "阜新"
.AddItem "盘锦"
.AddItem "铁岭"
.AddItem "朝阳"
.AddItem "葫芦岛"
.AddItem "丹东"
.AddItem "辽阳"
Case "吉林省"
.AddItem "长春"
.AddItem "吉林"
.AddItem "四平"
.AddItem "辽源"
.AddItem "松原"
.AddItem "白城"
.AddItem "延边"
.AddItem "通化"
Case "黑龙江省"
.AddItem "哈尔滨"
.AddItem "鸡西"
.AddItem "鹤岗"
.AddItem "双鸭山"
.AddItem "伊春"
.AddItem "佳木斯"
.AddItem "七台河"
.AddItem "牡丹江"
.AddItem "绥化"
.AddItem "齐齐哈尔"
.AddItem "大庆"
.AddItem "黑河"
.AddItem "大兴安岭"
Case "上海市"
.AddItem "上海"
Case "江苏省"
.AddItem "南京"
.AddItem "无锡"
.AddItem "徐州"
.AddItem "常州"
.AddItem "苏州"
.AddItem "南通"
.AddItem "连云港"
.AddItem "淮阴"
.AddItem "盐城"
.AddItem "扬州"
.AddItem "镇江"
.AddItem "泰州"
.AddItem "宿迁"
Case "浙江省"
.AddItem "杭州"
.AddItem "宁波"
.AddItem "温州"
.AddItem "嘉兴"
.AddItem "湖州"
.AddItem "绍兴"
.AddItem "金华"
.AddItem "衢州"
.AddItem "舟山"
.AddItem "丽水"
.AddItem "台州"
Case "安徽省"
.AddItem "合肥"
.AddItem "芜湖"
.AddItem "蚌埠"
.AddItem "淮南"
.AddItem "马鞍山"
.AddItem "淮北"
.AddItem "铜陵"
.AddItem "安庆"
.AddItem "黄山市"
.AddItem "阜阳"
.AddItem "宿州"
.AddItem "滁州"
.AddItem "六安"
.AddItem "宣城"
.AddItem "巢湖"
.AddItem "池州"
Case "福建省"
.AddItem "福州"
.AddItem "厦门"
.AddItem "莆田"
.AddItem "三明"
.AddItem "泉州"
.AddItem "漳州"
.AddItem "南平"
.AddItem "宁德"
.AddItem "龙岩"
.AddItem "陇南"
.AddItem "庆阳"
Case "江西省"
.AddItem "南昌"
.AddItem "景德镇"
.AddItem "赣州"
.AddItem "萍乡"
.AddItem "九江"
.AddItem "新余"
.AddItem "鹰潭"
.AddItem "宜春"
.AddItem "上饶"
.AddItem "吉安"
Case "山东省"
.AddItem "济南"
.AddItem "青岛"
.AddItem "淄博"
.AddItem "枣庄"
.AddItem "东营"
.AddItem "烟台"
.AddItem "潍坊"
.AddItem "济宁"
.AddItem "泰安"
.AddItem "威海"
.AddItem "日照"
.AddItem "滨州"
.AddItem "德州"
.AddItem "聊城"
.AddItem "临沂"
.AddItem "菏泽"
.AddItem "莱芜"
Case "河南省"
.AddItem "郑州"
.AddItem "开封"
.AddItem "洛阳"
.AddItem "平顶山"
.AddItem "安阳"
.AddItem "鹤壁"
.AddItem "新乡"
.AddItem "焦作"
.AddItem "濮阳"
.AddItem "许昌"
.AddItem "漯河"
.AddItem "三门峡"
.AddItem "商丘"
.AddItem "周口"
.AddItem "驻马店"
.AddItem "南阳"
.AddItem "信阳"
Case "湖北省"
.AddItem "武汉"
.AddItem "黄石"
.AddItem "十堰"
.AddItem "随州"
.AddItem "宜昌"
.AddItem "襄樊"
.AddItem "鄂州"
.AddItem "荆门"
.AddItem "黄冈"
.AddItem "孝感"
.AddItem "咸宁"
.AddItem "荆州"
.AddItem "恩施"
Case "湖南省"
.AddItem "长沙"
.AddItem "衡阳"
.AddItem "邵阳"
.AddItem "郴州"
.AddItem "永州"
.AddItem "韶山"
.AddItem "张家界"
.AddItem "怀化"
.AddItem "吉首"
.AddItem "株洲"
.AddItem "湘潭"
.AddItem "岳阳"
.AddItem "常德"
.AddItem "益阳"
.AddItem "娄底"
Case "广东省"
.AddItem "广州"
.AddItem "深圳"
.AddItem "汕尾"
.AddItem "惠州"
.AddItem "河源"
.AddItem "佛山"
.AddItem "清远"
.AddItem "东莞"
.AddItem "珠海"
.AddItem "江门"
.AddItem "肇庆"
.AddItem "中山"
.AddItem "湛江"
.AddItem "茂名"
.AddItem "韶关"
.AddItem "汕头"
.AddItem "梅州"
.AddItem "阳江"
.AddItem "潮州"
.AddItem "顺德"
.AddItem "揭阳"
.AddItem "云浮"
Case "广西壮族自治区"
.AddItem "南宁"
.AddItem "梧州"
.AddItem "玉林"
.AddItem "桂林"
.AddItem "百色"
.AddItem "河池"
.AddItem "钦州"
.AddItem "柳州"
.AddItem "北海"
.AddItem "防城港"
.AddItem "贵港"
.AddItem "贺州"
Case "海南省"
.AddItem "海口"
.AddItem "三亚"
.AddItem "西沙群岛"
Case "四川省"
.AddItem "成都"
.AddItem "眉山"
.AddItem "雅安"
.AddItem "峨嵋山"
.AddItem "自贡"
.AddItem "南充"
.AddItem "泸州"
.AddItem "德阳"
.AddItem "绵阳"
.AddItem "遂宁"
.AddItem "内江"
.AddItem "乐山"
.AddItem "宜宾"
.AddItem "广元"
.AddItem "达州"
.AddItem "资阳"
.AddItem "攀枝花"
.AddItem "阿坝"
.AddItem "甘孜"
.AddItem "凉山"
.AddItem "广安"
.AddItem "巴中"
Case "重庆市"
.AddItem "重庆"
.AddItem "万州"
.AddItem "涪陵"
.AddItem "黔江"
Case "贵州省"
.AddItem "贵阳"
.AddItem "六盘水"
.AddItem "铜仁"
.AddItem "安顺"
.AddItem "凯里"
.AddItem "都匀"
.AddItem "兴义"
.AddItem "毕节"
.AddItem "遵义"
Case "云南省"
.AddItem "昆明"
.AddItem "德宏"
.AddItem "曲靖"
.AddItem "楚雄"
.AddItem "玉溪"
.AddItem "红河"
.AddItem "文山"
.AddItem "思茅"
.AddItem "昭通"
.AddItem "西双版纳"
.AddItem "大理"
.AddItem "保山"
.AddItem "怒江"
.AddItem "丽江"
.AddItem "迪庆"
.AddItem "临沧"
Case "西藏自治区"
.AddItem "拉萨"
.AddItem "昌都"
.AddItem "山南"
.AddItem "日喀则"
.AddItem "那曲"
.AddItem "阿里"
.AddItem "林芝"
Case "陕西省"
.AddItem "西安"
.AddItem "铜川"
.AddItem "宝鸡"
.AddItem "咸阳"
.AddItem "渭南"
.AddItem "汉中"
.AddItem "安康"
.AddItem "商洛"
.AddItem "延安"
.AddItem "榆林"
Case "甘肃省"
.AddItem "兰州"
.AddItem "白银"
.AddItem "金昌"
.AddItem "天水"
.AddItem "张掖"
.AddItem "武威"
.AddItem "定西"
.AddItem "平凉"
.AddItem "临夏"
.AddItem "嘉峪关"
.AddItem "酒泉"
Case "青海省"
.AddItem "西宁"
.AddItem "果洛"
.AddItem "海西"
.AddItem "格尔木"
.AddItem "海东"
.AddItem "海北"
.AddItem "玉树"
.AddItem "黄南"
Case "宁夏回族自治区"
.AddItem "银川"
.AddItem "石嘴山"
.AddItem "吴忠"
.AddItem "固原"
Case "新疆维吾尔自治区"
.AddItem "乌鲁木齐"
.AddItem "克拉玛依"
.AddItem "吐鲁番"
.AddItem "哈密"
.AddItem "昌吉"
.AddItem "博乐"
.AddItem "库尔勒"
.AddItem "阿克苏"
.AddItem "克州"
.AddItem "喀什"
.AddItem "伊犁"
.AddItem "石河子"
.AddItem "塔城"
.AddItem "阿勒泰"
.AddItem "和田"
Case "台湾省"
.AddItem "台北"
Case "澳门特别行政区"
.AddItem "澳门"
Case "香港特别行政区"
.AddItem "香港"
End Select
End With
End Sub
Private Sub Form_Load()
Show
Dec.ListIndex = 13
City.ListIndex = 4
Command1_Click
End Sub
'==============================
weather.vbp
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
Object={EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0; shdocvw.dll
Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; MSINET.OCX
Form=Form1.frm
IconForm="Weather"
Startup="Weather"
HelpFile=""
Title="Weather"
ExeName32="Weather.exe"
Command32=""
Name="frmWeather"
HelpContextID="0"
CompatibleMode="0"
MajorVer=2
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionComments="鸿鹰软件 http://www.zpwm.com"
VersionCompanyName="鸿鹰软件"
VersionFileDescription="天气预报"
VersionProductName="天气预报"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
DebugStartupOption=0
[MS Transaction Server]
AutoRefresh=1
[Infs]
LastWrite=2006-4-12 下午 09:57:50
'============属性===========
Dec.List=
北京市
天津市
重庆市
河北省
山西省
内蒙古自治区
辽宁省
吉林省
黑龙江省
上海市
江苏省
浙江省
安徽省
福建省
江西省
山东省
河南省
湖北省
湖南省
广东省
广西壮族自治区
海南省
四川省
贵州省
云南省
西藏自治区
陕西省
甘肃省
青海省
宁夏回族自治区
新疆维吾尔自治区
台湾省
香港特别行政区
澳门特别行政区
form1.frm
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
Begin VB.Form Weather
BorderStyle = 1 'Fixed Single
Caption = "天气预报 2.0"
ClientHeight = 5265
ClientLeft = 3375
ClientTop = 3150
ClientWidth = 7875
ForeColor = &H00A9601F&
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 351
ScaleMode = 3 'Pixel
ScaleWidth = 525
Begin VB.CommandButton Command1
Caption = "查询"
Height = 390
Left = 3645
TabIndex = 4
Top = 45
Width = 1095
End
Begin InetCtlsObjects.Inet Inet
Left = 6630
Top = 2715
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
Begin VB.ComboBox Dec
CausesValidation= 0 'False
Height = 300
ItemData = "Form1.frx":4B2A
Left = 660
List = "Form1.frx":4B94
MouseIcon = "Form1.frx":4CDE
MousePointer = 99 'Custom
Style = 2 'Dropdown List
TabIndex = 1
Top = 105
Width = 1455
End
Begin VB.ComboBox City
CausesValidation= 0 'False
Height = 300
ItemData = "Form1.frx":4E30
Left = 2235
List = "Form1.frx":4E32
MouseIcon = "Form1.frx":4E34
MousePointer = 99 'Custom
Style = 2 'Dropdown List
TabIndex = 0
Top = 105
Width = 1335
End
Begin SHDocVwCtl.WebBrowser Web
Height = 4800
Left = 0
TabIndex = 3
Top = 465
Width = 7875
ExtentX = 13891
ExtentY = 8467
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "城市:"
Height = 255
Left = 60
TabIndex = 2
Top = 165
Width = 495
End
End
Attribute VB_Name = "Weather"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function MoveWindow Lib "user32" (ByVal hWnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Sub Command1_Click()
On Error Resume Next
Dim i As Long, j As Long, Buff As String
Web.Navigate "about:blank"
Buff = Inet.OpenURL("http://php.weather.sina.com.cn/search.php?city=" & City)
If Len(Buff) > 0 Then
i = InStr(Buff, "<!-- 城市天气 begin -->")
j = InStr(i + 1500, Buff, "<!-- 天气预报 end -->")
Buff = "<style type=text/css>td,p{font-size:12px}body{color:red}</style>" & Mid(Buff, i, j - i)
If i * j Then Web.Document.write Buff
End If
End Sub
Private Sub Dec_Click()
With City
.Clear
Select Case Dec.Text
Case "北京市"
.AddItem "北京"
Case "天津市"
.AddItem "天津"
Case "山西省"
.AddItem "太原"
.AddItem "大同"
.AddItem "阳泉"
.AddItem "晋城"
.AddItem "朔州"
.AddItem "忻州"
.AddItem "离石"
.AddItem "榆次"
.AddItem "临汾"
.AddItem "运城"
.AddItem "长治"
Case "河北省"
.AddItem "石家庄"
.AddItem "唐山"
.AddItem "秦皇岛"
.AddItem "张家口"
.AddItem "承德"
.AddItem "廊坊"
.AddItem "邯郸"
.AddItem "邢台"
.AddItem "保定"
.AddItem "沧州"
.AddItem "衡水"
Case "内蒙古自治区"
.AddItem "呼和浩特"
.AddItem "包头"
.AddItem "乌海"
.AddItem "集宁"
.AddItem "巴彦浩特"
.AddItem "临河"
.AddItem "鄂尔多斯"
.AddItem "赤峰"
.AddItem "通辽"
.AddItem "锡林浩特"
.AddItem "海拉尔"
.AddItem "乌兰浩特"
Case "辽宁省"
.AddItem "沈阳"
.AddItem "大连"
.AddItem "鞍山"
.AddItem "抚顺"
.AddItem "本溪"
.AddItem "锦州"
.AddItem "营口"
.AddItem "阜新"
.AddItem "盘锦"
.AddItem "铁岭"
.AddItem "朝阳"
.AddItem "葫芦岛"
.AddItem "丹东"
.AddItem "辽阳"
Case "吉林省"
.AddItem "长春"
.AddItem "吉林"
.AddItem "四平"
.AddItem "辽源"
.AddItem "松原"
.AddItem "白城"
.AddItem "延边"
.AddItem "通化"
Case "黑龙江省"
.AddItem "哈尔滨"
.AddItem "鸡西"
.AddItem "鹤岗"
.AddItem "双鸭山"
.AddItem "伊春"
.AddItem "佳木斯"
.AddItem "七台河"
.AddItem "牡丹江"
.AddItem "绥化"
.AddItem "齐齐哈尔"
.AddItem "大庆"
.AddItem "黑河"
.AddItem "大兴安岭"
Case "上海市"
.AddItem "上海"
Case "江苏省"
.AddItem "南京"
.AddItem "无锡"
.AddItem "徐州"
.AddItem "常州"
.AddItem "苏州"
.AddItem "南通"
.AddItem "连云港"
.AddItem "淮阴"
.AddItem "盐城"
.AddItem "扬州"
.AddItem "镇江"
.AddItem "泰州"
.AddItem "宿迁"
Case "浙江省"
.AddItem "杭州"
.AddItem "宁波"
.AddItem "温州"
.AddItem "嘉兴"
.AddItem "湖州"
.AddItem "绍兴"
.AddItem "金华"
.AddItem "衢州"
.AddItem "舟山"
.AddItem "丽水"
.AddItem "台州"
Case "安徽省"
.AddItem "合肥"
.AddItem "芜湖"
.AddItem "蚌埠"
.AddItem "淮南"
.AddItem "马鞍山"
.AddItem "淮北"
.AddItem "铜陵"
.AddItem "安庆"
.AddItem "黄山市"
.AddItem "阜阳"
.AddItem "宿州"
.AddItem "滁州"
.AddItem "六安"
.AddItem "宣城"
.AddItem "巢湖"
.AddItem "池州"
Case "福建省"
.AddItem "福州"
.AddItem "厦门"
.AddItem "莆田"
.AddItem "三明"
.AddItem "泉州"
.AddItem "漳州"
.AddItem "南平"
.AddItem "宁德"
.AddItem "龙岩"
.AddItem "陇南"
.AddItem "庆阳"
Case "江西省"
.AddItem "南昌"
.AddItem "景德镇"
.AddItem "赣州"
.AddItem "萍乡"
.AddItem "九江"
.AddItem "新余"
.AddItem "鹰潭"
.AddItem "宜春"
.AddItem "上饶"
.AddItem "吉安"
Case "山东省"
.AddItem "济南"
.AddItem "青岛"
.AddItem "淄博"
.AddItem "枣庄"
.AddItem "东营"
.AddItem "烟台"
.AddItem "潍坊"
.AddItem "济宁"
.AddItem "泰安"
.AddItem "威海"
.AddItem "日照"
.AddItem "滨州"
.AddItem "德州"
.AddItem "聊城"
.AddItem "临沂"
.AddItem "菏泽"
.AddItem "莱芜"
Case "河南省"
.AddItem "郑州"
.AddItem "开封"
.AddItem "洛阳"
.AddItem "平顶山"
.AddItem "安阳"
.AddItem "鹤壁"
.AddItem "新乡"
.AddItem "焦作"
.AddItem "濮阳"
.AddItem "许昌"
.AddItem "漯河"
.AddItem "三门峡"
.AddItem "商丘"
.AddItem "周口"
.AddItem "驻马店"
.AddItem "南阳"
.AddItem "信阳"
Case "湖北省"
.AddItem "武汉"
.AddItem "黄石"
.AddItem "十堰"
.AddItem "随州"
.AddItem "宜昌"
.AddItem "襄樊"
.AddItem "鄂州"
.AddItem "荆门"
.AddItem "黄冈"
.AddItem "孝感"
.AddItem "咸宁"
.AddItem "荆州"
.AddItem "恩施"
Case "湖南省"
.AddItem "长沙"
.AddItem "衡阳"
.AddItem "邵阳"
.AddItem "郴州"
.AddItem "永州"
.AddItem "韶山"
.AddItem "张家界"
.AddItem "怀化"
.AddItem "吉首"
.AddItem "株洲"
.AddItem "湘潭"
.AddItem "岳阳"
.AddItem "常德"
.AddItem "益阳"
.AddItem "娄底"
Case "广东省"
.AddItem "广州"
.AddItem "深圳"
.AddItem "汕尾"
.AddItem "惠州"
.AddItem "河源"
.AddItem "佛山"
.AddItem "清远"
.AddItem "东莞"
.AddItem "珠海"
.AddItem "江门"
.AddItem "肇庆"
.AddItem "中山"
.AddItem "湛江"
.AddItem "茂名"
.AddItem "韶关"
.AddItem "汕头"
.AddItem "梅州"
.AddItem "阳江"
.AddItem "潮州"
.AddItem "顺德"
.AddItem "揭阳"
.AddItem "云浮"
Case "广西壮族自治区"
.AddItem "南宁"
.AddItem "梧州"
.AddItem "玉林"
.AddItem "桂林"
.AddItem "百色"
.AddItem "河池"
.AddItem "钦州"
.AddItem "柳州"
.AddItem "北海"
.AddItem "防城港"
.AddItem "贵港"
.AddItem "贺州"
Case "海南省"
.AddItem "海口"
.AddItem "三亚"
.AddItem "西沙群岛"
Case "四川省"
.AddItem "成都"
.AddItem "眉山"
.AddItem "雅安"
.AddItem "峨嵋山"
.AddItem "自贡"
.AddItem "南充"
.AddItem "泸州"
.AddItem "德阳"
.AddItem "绵阳"
.AddItem "遂宁"
.AddItem "内江"
.AddItem "乐山"
.AddItem "宜宾"
.AddItem "广元"
.AddItem "达州"
.AddItem "资阳"
.AddItem "攀枝花"
.AddItem "阿坝"
.AddItem "甘孜"
.AddItem "凉山"
.AddItem "广安"
.AddItem "巴中"
Case "重庆市"
.AddItem "重庆"
.AddItem "万州"
.AddItem "涪陵"
.AddItem "黔江"
Case "贵州省"
.AddItem "贵阳"
.AddItem "六盘水"
.AddItem "铜仁"
.AddItem "安顺"
.AddItem "凯里"
.AddItem "都匀"
.AddItem "兴义"
.AddItem "毕节"
.AddItem "遵义"
Case "云南省"
.AddItem "昆明"
.AddItem "德宏"
.AddItem "曲靖"
.AddItem "楚雄"
.AddItem "玉溪"
.AddItem "红河"
.AddItem "文山"
.AddItem "思茅"
.AddItem "昭通"
.AddItem "西双版纳"
.AddItem "大理"
.AddItem "保山"
.AddItem "怒江"
.AddItem "丽江"
.AddItem "迪庆"
.AddItem "临沧"
Case "西藏自治区"
.AddItem "拉萨"
.AddItem "昌都"
.AddItem "山南"
.AddItem "日喀则"
.AddItem "那曲"
.AddItem "阿里"
.AddItem "林芝"
Case "陕西省"
.AddItem "西安"
.AddItem "铜川"
.AddItem "宝鸡"
.AddItem "咸阳"
.AddItem "渭南"
.AddItem "汉中"
.AddItem "安康"
.AddItem "商洛"
.AddItem "延安"
.AddItem "榆林"
Case "甘肃省"
.AddItem "兰州"
.AddItem "白银"
.AddItem "金昌"
.AddItem "天水"
.AddItem "张掖"
.AddItem "武威"
.AddItem "定西"
.AddItem "平凉"
.AddItem "临夏"
.AddItem "嘉峪关"
.AddItem "酒泉"
Case "青海省"
.AddItem "西宁"
.AddItem "果洛"
.AddItem "海西"
.AddItem "格尔木"
.AddItem "海东"
.AddItem "海北"
.AddItem "玉树"
.AddItem "黄南"
Case "宁夏回族自治区"
.AddItem "银川"
.AddItem "石嘴山"
.AddItem "吴忠"
.AddItem "固原"
Case "新疆维吾尔自治区"
.AddItem "乌鲁木齐"
.AddItem "克拉玛依"
.AddItem "吐鲁番"
.AddItem "哈密"
.AddItem "昌吉"
.AddItem "博乐"
.AddItem "库尔勒"
.AddItem "阿克苏"
.AddItem "克州"
.AddItem "喀什"
.AddItem "伊犁"
.AddItem "石河子"
.AddItem "塔城"
.AddItem "阿勒泰"
.AddItem "和田"
Case "台湾省"
.AddItem "台北"
Case "澳门特别行政区"
.AddItem "澳门"
Case "香港特别行政区"
.AddItem "香港"
End Select
End With
End Sub
Private Sub Form_Load()
Show
Dec.ListIndex = 13
City.ListIndex = 4
Command1_Click
End Sub
'==============================
weather.vbp
Type=Exe
Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation
Object={EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0; shdocvw.dll
Object={48E59290-9880-11CF-9754-00AA00C00908}#1.0#0; MSINET.OCX
Form=Form1.frm
IconForm="Weather"
Startup="Weather"
HelpFile=""
Title="Weather"
ExeName32="Weather.exe"
Command32=""
Name="frmWeather"
HelpContextID="0"
CompatibleMode="0"
MajorVer=2
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
VersionComments="鸿鹰软件 http://www.zpwm.com"
VersionCompanyName="鸿鹰软件"
VersionFileDescription="天气预报"
VersionProductName="天气预报"
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
Retained=0
ThreadPerObject=0
MaxNumberOfThreads=1
DebugStartupOption=0
[MS Transaction Server]
AutoRefresh=1
[Infs]
LastWrite=2006-4-12 下午 09:57:50
'============属性===========
Dec.List=
北京市
天津市
重庆市
河北省
山西省
内蒙古自治区
辽宁省
吉林省
黑龙江省
上海市
江苏省
浙江省
安徽省
福建省
江西省
山东省
河南省
湖北省
湖南省
广东省
广西壮族自治区
海南省
四川省
贵州省
云南省
西藏自治区
陕西省
甘肃省
青海省
宁夏回族自治区
新疆维吾尔自治区
台湾省
香港特别行政区
澳门特别行政区
回复aseny
[2006-04-12 17:32:50 | | ]这个网站很好,我喜欢,同样也是VB的爱好者,我也希望自己可以像站长一样,一样的厉害...嘻嘻..
回复sadamu9527
[2006-04-12 16:39:35 | | ]Mndsoft兄见笑了。我的办法很土的就是自动执行两次查询。哈哈 。代码就不发了。因为是别人的东东再发上来，有点不好意思。呵呵。全球的很简单只要到新浪去查全球的然后一点点加进去就OK了。哈哈。
希望sadamu9527兄弟能把修改及增加的部分贡献给大家，共同学习，共同进步[yes]
回复sadamu9527
[2006-04-12 09:15:16 | | ]我觉得有BUG。这个程序在VB6环境下测试一切反应正常，当生成EXE文件后总觉得反应迟钝，比如查杭州天气，一般要按两次查询才能显示。不知道你们的电脑是不是有这种情况。不过我已经修改了。还加入了全球天气预报。哈哈。
回复天外飞仙
[2006-04-11 07:18:07 | | ]初次来访，感觉不错，先谢过！
不好意思哦，我不是雪原的斑竹哦
发表评论
您没有权限发表评论！
