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: Visual Basic
Expertise: Intermediate
Aug 6, 1997

WEBINAR:

Live

Full Text Search: The Key to Better Natural Language Queries for NoSQL in Node.js


Date: 1/31/2018 @ 2 p.m. ET

Find the Selected Control in an Array of Option Buttons

Use this code to find the index of the currently selected control in an array of option buttons:
 
Function WhichOption(Options As _
        Object) As Integer
' This function returns the index of the 
' Option Button whose value is true.

        Dim i
        ' In case Options is not a valid 
        ' object
        On Error GoTo WhichOptErr
        ' Default to failed
        WhichOption = -1
        ' check each OptionButton in the 
        ' array. Note this fails if indices 
        ' are not consecutive
        For i = Options.lbound To _
                Options.ubound
                If Options(i) Then
                        ' when the one set to true is 
                        ' found, Remember it
                        WhichOption = i
                        ' and stop looking
                        Exit For
                End If
        Next
WhichOptErr:

End Function
Call the function with code like this, assuming that iCurOptIndex is an integer and Option1 is the name of an array of OptionButton controls:
 
iCurOptIndex = WhichOption(Option1)
Note the function parameter is an object. This function only works if the parameter is an object or a variant.
Terry Conkright
 
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