VB6_小林的气象类模块
前言. [如果使用过程有什么问题可以QQ或邮箱联系我。 1919988942 | w2638301509@gmail.com] ______________________________________________ 这大概是我做的最累的VB6作品，啊...累死了.....。 [并且我也懒得花心思去改代码了,里面有非常非常多的垃圾代码,但是对VB新手初学者而言,这个类模块非常适合你学习。因为简单且易懂] 第一次玩编程熬到四点.....感觉整个人都不好了。 类模块所有的气象数据都来源于中国气象网的各个平台,{手机微信PC和其他一些挖到的接口},定位服务,逆地址解析服务等来源于腾讯地图的WebAPI。 先上一下使用类模块的实例截图 代码如下： '部分示例 Private Sub Command1_Click() Dim i As 小林的天气模块 Set i = New 小林的天气模块 'i.Set_ID (i.Get_ID_forRegion("吉林", "磐石")) 'Call i.Refresh(, i.Get_ID_forRegion("吉林", "磐石")) '23.3175479108, 116.3527464867 'Call i.Refresh("map", , 43.8504363962, 126.5322875977)