Visual Basic.NET How to Program (PDF)

Chapter 21 ASP .NET and Web Services 1079
67 cityLabels.Add(32, label32)
68 cityLabels.Add(33, label33)
69 cityLabels.Add(34, label34)
70
71 ' create Hashtable and populate with all weather
72 ' conditions
73 Dim weather As New Hashtable()
74 weather.Add("SUNNY", "sunny")
75 weather.Add("PTCLDY", "pcloudy")
76 weather.Add("CLOUDY", "mcloudy")
77 weather.Add("MOCLDY", "mcloudy")
78 weather.Add("TSTRMS", "rain")
79 weather.Add("RAIN", "rain")
80 weather.Add("SNOW", "snow")
81 weather.Add("VRYHOT", "vryhot")
82 weather.Add("FAIR", "fair")
83 weather.Add("RNSNOW", "rnsnow")
84 weather.Add("SHWRS", "showers")
85 weather.Add("WINDY", "windy")
86 weather.Add("NOINFO", "noinfo")
87 weather.Add("MISG", "noinfo")
88 weather.Add("DRZL", "rain")
89 weather.Add("HAZE", "noinfo")
90 weather.Add("SMOKE", "mcloudy")
91 weather.Add("FOG", "mcloudy")
92
93 Dim i As Integer
94 Dim background As New Bitmap("images/back.jpg")
95 Dim font As New Font("Courier New", 8, _
96 FontStyle.Bold)
97
98 ' for every city
99 For i = 0 To cities.Length - 1
100
101 ' use Hashtable to find the next Label
102 Dim currentCity As Label = _
103 CType(cityLabels(i + 1), Label)
104
105 ' set current Label's image to the image
106 ' corresponding to its weather condition -
107 ' find correct image name in Hashtable weather
108 currentCity.Image = New Bitmap("images/" & _
109 weather(descriptions(i).Trim()).ToString & ".jpg")
110
111 ' set background image, font and forecolor
112 ' of Label
113 currentCity.BackgroundImage = background
114 currentCity.Font = font
115 currentCity.ForeColor = Color.White
116
Fig. 21.22 Receiving temperature and weather data from a Web service (part 3 of 4).