optionknapper

lav et array! :D og så en

select case (knap-index)
case knap1
blabla
case knap2
og så videre! :D
end select

eller det var måske ikke helt det nemmeste nu jeg tænker over det

nej hehe...den løsning kunne jeg godt selv komme frem til :)
Men er det fedt at have en sådan kode hvis man har 50 eller 100 optionknapper?

det er der jo noget om! Kan du ikke køre den igennem en forlykke der går ud fra hvor mange der er i indexet og så tjekker den med en if() løkke om den har ramt den rigtige knap??

noget i retningen af:

for (i = 1 to val(index))
if(knapperne(i) = true) then
msgbox "optionknap nr: " & i & " er trykket!! :D"
end if
next i

'Denne virker:

Private Sub Command1_Click()
Dim opOption As Object
Dim a As String

For Each opOption In Controls
If opOption.Name Like "Option*" Then
    If opOption.Value = True Then
        a = opOption.Name
        Exit For
    End If
End If
Next

MsgBox a
End Sub