Private Sub ToggleButton(n)_Click ...
28.10.2009 08:50:17
Matthias
Hallo
hier eine Variante:
Option Explicit
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
ToggleButton2.Value = False
ToggleButton3.Value = False
ToggleButton4.Value = False
ToggleButton5.Value = False
ToggleButton6.Value = False
ToggleButton7.Value = False
End If
End Sub
Private Sub ToggleButton2_Click()
If ToggleButton2.Value = True Then
ToggleButton1.Value = False
ToggleButton3.Value = False
ToggleButton4.Value = False
ToggleButton5.Value = False
ToggleButton6.Value = False
ToggleButton7.Value = False
End If
End Sub
Private Sub ToggleButton3_Click()
If ToggleButton3.Value = True Then
ToggleButton1.Value = False
ToggleButton2.Value = False
ToggleButton4.Value = False
ToggleButton5.Value = False
ToggleButton6.Value = False
ToggleButton7.Value = False
End If
End Sub
Private Sub ToggleButton4_Click()
If ToggleButton4.Value = True Then
ToggleButton1.Value = False
ToggleButton2.Value = False
ToggleButton3.Value = False
ToggleButton5.Value = False
ToggleButton6.Value = False
ToggleButton7.Value = False
End If
End Sub
Private Sub ToggleButton5_Click()
If ToggleButton5.Value = True Then
ToggleButton1.Value = False
ToggleButton2.Value = False
ToggleButton3.Value = False
ToggleButton4.Value = False
ToggleButton6.Value = False
ToggleButton7.Value = False
End If
End Sub
Private Sub ToggleButton6_Click()
If ToggleButton6.Value = True Then
ToggleButton1.Value = False
ToggleButton2.Value = False
ToggleButton3.Value = False
ToggleButton4.Value = False
ToggleButton5.Value = False
ToggleButton7.Value = False
End If
End Sub
Private Sub ToggleButton7_Click()
If ToggleButton7.Value = True Then
ToggleButton1.Value = False
ToggleButton2.Value = False
ToggleButton3.Value = False
ToggleButton4.Value = False
ToggleButton5.Value = False
ToggleButton6.Value = False
End If
End Sub
Gruß Matthias