Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB7
Expertise: beginner
Jun 29, 2002

Map an enumerated value to a set of OptionButton controls

In VB6 and previous version, displaying an enumerated value in a group of option buttons is quite simple, provided that the option buttons be grouped in a control array. VB.NET doesn't support control arrays, so you can't reuse the same simple coding techniques. However, you can prepare a couple of helper procedure to make your job as easy as possible:

' set the RadioButton corresponding to the specified value
' sets the first RadioButton if the value is out of the valid range

Sub SetRadioButton(ByVal value As Integer, ByVal ParamArray ctrls() As _
    RadioButton)
    ' keep the value in correct range
    If value < 0 Or value >= ctrls.Length Then value = 0
    ctrls(value).Checked = True
End Sub

' return the index of the only selected RadioButton in a group
' returns -1 if no RadioButton is checked

Function GetRadioButton(ByVal ParamArray ctrls() As RadioButton) As Integer
    Dim value As Integer
    For value = 0 To ctrls.Length - 1
        If ctrls(value).Checked Then Return value
    Next
    Return -1
End Function
Here's how you can use these routines. Say that you have three RadioButton controls named rbuBlack, rbuGray, and rbuWhite and you want to use them to display a value from a variable that can be 0 (black), 1 (gray), or 2 (white).


' set the RadioButton corresponding to a color 
Dim color As Integer = 1
SetRadioButton(color, rbuBlack, rbuGray, rbuWhite)
' ...

' retrieve the color set by the user
color = GetRadioButton(rbuBlack, rbuGray, rbuWhite)

Francesco Balena
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date