AW: Aktion in Abhängigkeit von 4 Radiobutton
4
Hallo Matthias,
auf die UF ein Frame zugeben und in die Frame die OptionButtons, so funktionieren die OptionButtons wie Radiobuttonliste. Hier ein Beispiel, wie man es weahrend des Laufzeits tun kann. Man braucht aber noch die Events dazu, vor allem
Private Sub OptionButton1_Click(), also der folgende Code ist nur ein Beispiel. Du wirst bestimmt die OButtons nicht in der Laufzeit zugeben, sondern in der Design Zeit. Gruss Dan, CZ.
Man braucht eine User Form, der Code kommt in die Sub Initialize des UF.
Private Sub UserForm_Initialize()
Dim Frame1 As Frame
Dim OptionButton1 As Control
Dim OptionButton2 As Control
Dim OptionButton3 As Control
Dim OptionButton4 As Control
Set Frame1 = Me.Controls.Add("Forms.Frame.1")
With Frame1
.Top = 10
.Left = 10
.Height = 80
.Width = 70
Set OptionButton1 = .Controls.Add("Forms.OptionButton.1")
OptionButton1.Top = 0
OptionButton1.Left = 0
OptionButton1.Caption = "Bild 1"
OptionButton1.Value = True
Set OptionButton2 = .Controls.Add("Forms.OptionButton.1")
OptionButton2.Top = OptionButton1.Top + OptionButton1.Height
OptionButton2.Left = 0
OptionButton2.Caption = "Bild 2"
Set OptionButton3 = .Controls.Add("Forms.OptionButton.1")
OptionButton3.Top = OptionButton2.Top + OptionButton2.Height
OptionButton3.Left = 0
OptionButton3.Caption = "Bild 3"
Set OptionButton4 = .Controls.Add("Forms.OptionButton.1")
OptionButton4.Top = OptionButton3.Top + OptionButton3.Height
OptionButton4.Left = 0
OptionButton4.Caption = "Bild 4"
End With
End Sub