Çözüldü OPTIONBUTTON PICTURE SAĞ CLICK İLE DEĞİŞTİRME

[zulfuernek]

yserfom üzerindeki frame üzerinde birçok sıralı halde optionbutton var. option button sağ click yapınca resim değiştirmeyi nasıl yapabiliriz.

 

[Orion1]

OptionButtonnun Sağ_Click olayı yoktur.

 

[zulfuernek]

peki hocam userform üzerindeki bütün optionbuttonları listeleyecek bir combbox yapailirmiyiz? böyle bir imkanımız varmı

 

[Orion1]

Var.

 

[Orion1]

Dosyanız ektedir.

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

 

[zulfuernek]

@Orion1 hocam mükemmelsin valla. hemen bakıyorum

 

[zulfuernek]

@Orion1 peki hocam şöyle bişey nasıl olur? optionbuttona tıklayınca ımage3 nesnesinde optionbutton resmi görünsün

yani;

Image3.Picture = OptionButton7.Picture

bu yolla seçilen option button resmi Picture de görünecek ve ben picturede gördükten sonra tooglebutona tıklayınca resim seçeceğim ve seçtiğim resmi tekrar toogle butonla option buton resmini değişmiş olacak

 

[Orion1]

İmage3 yok uf de.

 

[zulfuernek]

ekliyorum şimdi hocam. uf biraz karışık duruyor ama aldırmayın

 

[Orion1]

Dosyanız ektedir.

 

[zulfuernek]

@Orion1 kodlar aynı hocam başka bir kodlamamı eklediniz. uf üzerine?

 

[Orion1]

Yolladığınız dosyaya combobox ekledim.
Userformun Initialize kısmına ve combobox1 in change olayına kod yazdım.
İmge3 e comboboxtan seçtiğin resmi getiriyor.

 

[zulfuernek]

@Orion1 hmm ellerine sağlık hocam. size birazdan minyatürünü göderieceğim hocam

 

[zulfuernek]

@Orion1 hocam toogle buttonu atladık ) toogle buttona tıklayınca image 3 e herhangi bir dosyadan seçip resim seçmek ikinci tıklamadada seçili olan option buttonun imagesi yapmalı ))

 

[Haluk]

OptionButtonnun Sağ_Click olayı yoktur.

Aslında var... MouseDown "olayı" bu iş için tasarlanmıştır.

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

.

 

[zulfuernek]

@Haluk hocam sağ tuş yapınca option button imagesini herhangi bir dosyadan seçmesini istiyordum ancak öyle olunca çok fazl kod birikecek. bu yüzden ttogle buttonla değişmeye karar verdik. ilk tıkta picture3 e herhangi bir dosyadan resim seçecek ve ikinci tıkta ise seçili olan optionbuttonun image si yapacak.