VB 5/6-Tipp 0318: Gewählten Index einer OptionButton-Gruppe auslesen

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Optionsfeld-Steuerelement "Option1" (Index von 0 bis 3)


'Autor: Marcus Woida
'E-Mail: m.Woida@t-online.de

Option Explicit

Private Sub Command1_Click()
    Select Case OptionGroup(Option1)
        Case 0: MsgBox "Option (0)"
        Case 1: MsgBox "Option (1)"
        Case 2: MsgBox "Option (2)"
        Case 3: MsgBox "Option (3)"
    End Select
End Sub

Private Function OptionGroup(Gruppe As Object) As Integer
    Dim intIndex As Integer

    For intIndex = Gruppe.LBound To Gruppe.UBound
        If Gruppe(intIndex).Value = True Then
            OptionGroup = intIndex
            Exit Function
        End If
    Next intIndex
End Function
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------