Visual Basic.NET How to Program (PDF)

Chapter 12 Graphical User Interface Concepts: Part 1 505
129 iconType = MessageBoxIcon.Asterisk
130 End Sub ' radAsterisk_CheckedChanged
131
132 ' set icon type to Error when Error checked
133 Private Sub radError_CheckedChanged(ByVal sender _
134 As System.Object, ByVal e As System.EventArgs) _
135 Handles radError.CheckedChanged
136
137 iconType = MessageBoxIcon.Error
138 End Sub ' radError_CheckedChanged
139
140 ' set icon type to Exclamation when Exclamation checked
141 Private Sub radExclamation_CheckedChanged(ByVal sender _
142 As System.Object, ByVal e As System.EventArgs) _
143 Handles radExclamation.CheckedChanged
144
145 iconType = MessageBoxIcon.Exclamation
146 End Sub ' radExclamation_CheckedChanged
147
148 ' set icon type to Hand when Hand checked
149 Private Sub radHand_CheckedChanged(ByVal sender _
150 As System.Object, ByVal e As System.EventArgs) _
151 Handles radHand.CheckedChanged
152
153 iconType = MessageBoxIcon.Hand
154 End Sub ' radHand_CheckedChanged
155
156 ' set icon type to Information when Information checked
157 Private Sub radInformation_CheckedChanged(ByVal sender _
158 As System.Object, ByVal e As System.EventArgs) _
159 Handles radInformation.CheckedChanged
160
161 iconType = MessageBoxIcon.Information
162 End Sub ' radInformation_CheckedChanged
163
164 ' set icon type to Question when Question checked
165 Private Sub radQuestion_CheckedChanged(ByVal sender _
166 As System.Object, ByVal e As System.EventArgs) _
167 Handles radQuestion.CheckedChanged
168
169 iconType = MessageBoxIcon.Question
170 End Sub ' radQuestion_CheckedChanged
171
172 ' set icon type to Stop when Stop checked
173 Private Sub radStop_CheckedChanged(ByVal sender _
174 As System.Object, ByVal e As System.EventArgs) _
175 Handles radStop.CheckedChanged
176
177 iconType = MessageBoxIcon.Stop
178 End Sub ' radStop_CheckedChanged
179
Fig. 12.26 Using RadioButtons to set message-window options (part 4 of 6).