Public Class Form1
Dim MyWeather As Weather.WeatherWebService = New Weather.WeatherWebService()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim tmpStr(0 To 23) As String
tmpStr = MyWeather.getWeatherbyCityName(Cmb_City.Text.Substring(0, Cmb_City.Text.IndexOf(" ")))
If (tmpStr(8) = "") Then
MessageBox.Show("暫時不支持您查詢的城市")
Else
Label1.Text = "天氣概況：" & tmpStr(1) & " " & tmpStr(6)
TextBox1.Text = tmpStr(10)
TextBox2.Text = tmpStr(11)
TextBox3.Text = tmpStr(13) & "," & tmpStr(12) & "," & tmpStr(14) & vbCrLf & tmpStr(18) & "," & tmpStr(17) & "," & tmpStr(19)
TextBox4.Text = tmpStr(22)
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim ProvinceStr() As String
Dim i As Integer
ProvinceStr = MyWeather.getSupportProvince()
For i = ProvinceStr.GetLowerBound(0) To ProvinceStr.GetUpperBound(0)
Cmb_Province.Items.Add(ProvinceStr(i))
Next
Cmb_Province.Text = ProvinceStr(0)
End Sub
Private Sub Cmb_Province_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Province.SelectedIndexChanged
Dim CityStr() As String
Dim i As Integer
CityStr = MyWeather.getSupportCity(Cmb_Province.Text)
For i = CityStr.GetLowerBound(0) To CityStr.GetUpperBound(0)
Cmb_City.Items.Add(CityStr(i))
Next
Cmb_City.Text = CityStr(0)
End Sub
End Class
6.運行結(jié)果：
好玩的實用的WebService還有很多，不過好多都需要掏錢了。
