Option button ile multi page secmek

[karadami]

vb editorde user form uzerinde 3 sayfali bir multi page yaptım. 3 adet te option button ekledim. yapmak istediğim option button 1 i secince multi pagede 1. sayfanın açılması, option button 2 yi seçince 2. sayfanın açılması, option button 3ü seçince 3. sayfanın açılması. bunu nasıl yapabilirim. teşekkürler.

 

[Orion1]

Aşağıdaki kodlar işiniz görür.
Private Sub OptionButton1_Click()

Dim i As Byte
For i = 1 To 3
    If Controls("OptionButton" & i).Value = True Then
        MultiPage1.Value = i - 1
    End If
Next i
End Sub

Private Sub OptionButton2_Click()
Dim i As Byte
For i = 1 To 3
    If Controls("OptionButton" & i).Value = True Then
        MultiPage1.Value = i - 1
    End If
Next i
End Sub

Private Sub OptionButton3_Click()
Dim i As Byte
For i = 1 To 3
    If Controls("OptionButton" & i).Value = True Then
        MultiPage1.Value = i - 1
    End If
Next i
End Sub

 

[Seyit Tiken]

Aşağıdaki gibi deneyebilirsiniz.

Private Sub OptionButton1_Click()
Me.MultiPage1.Value = 0
End Sub

Private Sub OptionButton2_Click()
Me.MultiPage1.Value = 1
End Sub

Private Sub OptionButton3_Click()
Me.MultiPage1.Value = 2
End Sub

 

[karadami]

Teşekkürler Orion2 ve Seyit Tiken....

 

[karadami]

bir sorum daha olacak. yukarida anlattığım gibi bir userformda optionbutton1 seçiliyken sadece page1 in görünmesini nasıl sağlayabilir. 2 saattir uğraşıyorum forumlarda dolaşıyorum ama benzer bir örnek bulamadım.

 

[Seyit Tiken]

Dosyayı inceleyiniz.

Private Sub OptionButton1_Click()
Me.MultiPage1.Pages(0).Visible = 1
Me.MultiPage1.Pages(1).Visible = 0
Me.MultiPage1.Pages(2).Visible = 0
End Sub

Private Sub OptionButton2_Click()
Me.MultiPage1.Pages(0).Visible = 0
Me.MultiPage1.Pages(1).Visible = 1
Me.MultiPage1.Pages(2).Visible = 0
End Sub

Private Sub OptionButton3_Click()
Me.MultiPage1.Pages(0).Visible = 0
Me.MultiPage1.Pages(1).Visible = 0
Me.MultiPage1.Pages(2).Visible = 1
End Sub