Label1'e çift tıkladıkça captiond'daki görünen metnin değişmesi

[emsey]

Sevgili arkadaşlar,

Userform üzerine eklemiş olduğum Label1 isimli Label'i her çift tıkladığımda içinde yazan metinin değişmesini istiyorum. Toplam 4 tıklama var. Örneğin default olarak label'da "O" görünmektedir.

1. çift tıklamada "X" olacak
2. çift tıklamada "/" olacak
3. çift tıklamada "-" olacak
4. çift tıklamada tekrar başa dönecek "O" olacak. Bu şekilde sonsuz devam edecek. Her çift tıklamada değişecek. Toplam 4 çift tıklama var.

Ben aşağıda label'in çift tıklamasına girip bir kere yaptırabiliyorum ama sonsuz yaptıramıyorum. Yardımcı olabilirseniz çok makbule geçecek.

Private Sub Label1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Label1 = "X"
End Sub

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

 

[mevlutteberci]

ekteki tek tıklama ilgili bir örnek var cifte uyarlayabilirsiniz

 

[emsey]

Emeğinize sağlık işimi gördü. Çok teşekkür ederim. Allah razı olsun.

 

[emsey]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

Üstad örnek dosyası sorunsuz çalışıyor.
Kodları kendime uyarladığımda Userform'un initialize'sinde hata veriyor.
"Variable not defined" diyor.

Userformu aynen kendi programına kopyalayıp hiçbir şey değiştirmediğimde de aynı hatayı alıyorum.

Private Sub UserForm_Initialize()
Say = 1
End Sub

 

[Korhan Ayhan]

Merhaba,

Modül içindeki koduda kendi dosyanıza uygulamalısınız. Sanırım bu kısmı atladınız.

 

[zulfuernek]

mevlüt hocam bunun yazılı formülünü alabilir miyim. dosyayı indiremiyoruz.

 

[Korhan Ayhan]

Mevlüt beyin eklediği dosya aşağıdaki linktedir.

Harici link (silinebilir)

http://s6.dosya.tc/server9/h2w53p/Kitap1.rar.html