110,534
社区成员
发帖
与我相关
我的任务
分享
Protected Sub Weather(ByVal cityCode As String)
Dim wa() As String = WeatherClass.getCityWeather(cityCode.Trim())
Label1.Text = wa(10)
Label2.Text = wa(6) & " " & wa(5) & " " & wa(7)
Label3.Text = wa(13) & " " & wa(12) & " " & wa(14)
Label4.Text = wa(18) & " " & wa(17) & " " & wa(19)
Label5.Text = wa(11).Replace(Chr(10), "<br />")
Label6.Text = wa(22).Replace(Chr(10), "<br />")
Label7.Text = CType(wa(4), DateTime).ToString("yyyy年MM月dd日 dddd HH:mm")
Label8.Text = wa(0) & " / " & wa(1)
Image1.ImageUrl = "~/images/weather/" & wa(8)
Image2.ImageUrl = "~/images/weather/" & wa(9)
Image3.ImageUrl = "~/images/weather/" & wa(15)
Image4.ImageUrl = "~/images/weather/" & wa(16)
Image5.ImageUrl = "~/images/weather/" & wa(20)
Image6.ImageUrl = "~/images/weather/" & wa(21)
CityPhoto.ImageUrl = "http://www.cma.gov.cn/tqyb/img/city/" & wa(3)
CityPhoto.AlternateText = City.SelectedItem.Text
End Sub