调用webservices方法获取天气预报

一、服务地址

http://www.webxml.com.cn/WebServices/WeatherWebService.asmx

二、项目添加服务引用-高级-添加web引用。

说明，如果仅仅是添加服务引用，运行会报错，类似“未将对象添加到实例”，原因很简单，这个网站是net2.0。添加web引用就是基于2.0的。

三、关键代码

引用部分：

Imports System
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Web
Imports System.Web.Services

调用部分：

Dim w As Weather.WeatherWebService = New Weather.WeatherWebService()

Dim b() As String = w.getWeatherbyCityName(cityName) '根据城市获取天气,返回一个数组，23个元素。

Dim wstr As String = "省份,城市,城市代码,城市图片名称,最后更新时间,当天的 气温,概况,风向和风力,天气趋势开始图片名称(以下称：图标一),天气趋势结束图片名称(以下称：图标二),现在的天气实况,天气和生活指数,第二天的气温,概况,风向和风力,图标一,图标二,第三天的 气温,概况,风向和风力,图标一,图标二,被查询的城市或地区的介绍"

这里是用到了另外两个方法获取省份，根据省份获取城市。

            citylist = New List(Of Array)
            Dim w As Weather.WeatherWebService = New Weather.WeatherWebService()
            Dim b() As String = w.getSupportProvince '获取省份
            Dim i As Integer
            Me.ComboBox1.Items.Add("请选择地区")

            For i = 0 To UBound(b)
                Me.ComboBox1.Items.Add(b(i))
                citylist.Add(w.getSupportCity(b(i))) '获取城市，添加到数组列表
            Next
            Me.ComboBox1.SelectedIndex = 0