- Katılım
- 24 Haziran 2017
- Mesajlar
- 749
- Excel Vers. ve Dili
- türkçe
- Altın Üyelik Bitiş Tarihi
- 13-01-2024
yserfom üzerindeki frame üzerinde birçok sıralı halde optionbutton var. option button sağ click yapınca resim değiştirmeyi nasıl yapabiliriz.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub UserForm_Initialize()
OptionButton3.Caption = Sheets("Sayfa1").[B1]
OptionButton4.Caption = Sheets("Sayfa1").[C1]
OptionButton5.Caption = Sheets("Sayfa1").[B2]
OptionButton6.Caption = Sheets("Sayfa1").[C2]
OptionButton7.Caption = Sheets("Sayfa1").[B3]
OptionButton8.Caption = Sheets("Sayfa1").[C3]
For i = 1 To 8
ComboBox1.AddItem Me.Controls("OptionButton" & i).Name
Next
End Sub
Private Sub ComboBox1_Change()
Me.Controls(ComboBox1.Value).Value = True
End Sub
Aslında var... MouseDown "olayı" bu iş için tasarlanmıştır.OptionButtonnun Sağ_Click olayı yoktur.
Private Sub OptionButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
MsgBox IIf(Button = 1, "Sol tuşa bastınız", "Sağ tuşa bastınız")
End Sub