devxlogo

GetSelectedOption – Get the selected element in an OptionButton control array

GetSelectedOption – Get the selected element in an OptionButton control array

' Determine which element of an option button control array was selected' Returns -1 if no control has been selected' Use : OptSelected = GetSelectedOption(Option1)Function GetSelectedOption(Opt As Object) As Integer    Dim i As Integer    GetSelectedOption = -1    For i = Opt.LBound To Opt.UBound        If Opt(i).Value Then            GetSelectedOption = i            Exit For        End If    NextEnd Function

devx-admin

Share the Post: