ToggleButton'da, tek tıklama ile eyleme çevirme

[EKREM1661]

Değerli Arkadaşlar..! İlişikte vermiş olduğum dosyada, basit bir ToggleButton örneği var (form üzerinde), satırı açıp gizliyor..

Yalnız, formu ilk kez açıp çalıştırırken; 1.nci celsede (tıklamada) değil, 2.nci (celsede) tıklamada eylem gerçekleşiyor.

Bu durumu; tek tıklamada, eyleme çeviremezmiyiz..?

 

[N.Ziya Hiçdurmaz]

Yanıt

Bu şekil deneyiniz

Private Sub ToggleButton1_Click()
   If ToggleButton1.Value = True Then
      ToggleButton1.Caption = "gizle"
        Rows(17).Hidden = False
   Else
      ToggleButton1.Caption = "göster"
        Rows(17).Hidden = True
   End If
End Sub
Private Sub UserForm_Initialize()
ToggleButton1 = True
End Sub

 

[EKREM1661]

Sayın Nur Ziya Hiçdurmaz..! İçten teşekkürlerimi ifade ederek, cümle hayatında başarılar diliyorum..

 

[EKREM1661]

Sn.Hocam..! Şöyle bir durum oldu.. Eğer ToggleButton birden fazla ise, formu ilk açarken satırlar da açılıyor; halbuki ilgili düğmeye tıklayınca açılması lazım..
Sanırım bu da, Initialize olayındaki True özelliğinden kaynaklanıyor; bu sorunu nasıl aşabiliriz..

 

[EKREM1661]

Belki; If Else komutlarını kullanarak yapılabilirmi diye düşündüm, fakat olmadı..