Login | Register   
RSS Feed
Download our iPhone app
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.

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



Building the Right Environment to Support AI, Machine Learning and Deep Learning

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 _
    ' 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
    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.



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