Toggle Button Kullanımı

Basma düğmesi

Toggle Button Kullanımı

İleti#1)  Erkan Akayay » 11 Kas 2008 15:05

Eskiden çok kullandığım bir uygulamaydı. Bu başlığı boş görünce bir örnek koyayım dedim.
ToggleButton ne işe yarar ? Sorusundan başlayalım. Aslına bakarsanız pek bir işe yaramaz. Userformda olmasada olur diyebileceğimiz nesnelerden biridir. Commandbuttonla yakın akraba olan ToggleButton iki commandbutton'un yapacağı işi tek başına yapar. Userforma 2 CommandButon koyup 2 kodlama yapacağınıza 1 ToggleButton koyup tek kodlama ile işi halledebilirsiniz. Örnek olarak bir userform oluşturun. ToggleButton ekleyin. Öncelikle Userform_İnitialize kısmına aşağıdaki kodu yazarak Userform açılışında ToggleButton'un caption özelliğini belirtelim.
Kod: Tümünü seç
Private Sub UserForm_Initialize()
ToggleButton1.Caption = "ExcelVBA"
End Sub

Sonraki işlemlerde
İlk kısımda ToggleButon'a tıkladığımızda yapılacak işlemleri tanımlarız

Kod: Tümünü seç
ToggleButton1.Caption = "ExcelVBA"
If ToggleButton1.Value = True Then
Range("A1").Value = "ExcelVBA"
Range("A1").Font.Size = 18
Range("A1").Font.Color = vbRed


Bu işlemleri yaptıktan sonra Toglle Button'un Alacağı yeni Caption'ı ve yapacağı işlemleri Else ile devam ederek tanımlarız.

Kod: Tümünü seç
Else
ToggleButton1.Caption = "Geri Dönmek için Tıklayın"
Range("A1").Font.Size = 10
Range("A1").Font.Color = vbBlack
Range("A1").Value = "Hoşçakalın"


Sonuçta şöyle bir kod bloğumuz oluştu.

Kod: Tümünü seç
Private Sub ToggleButton1_Click()
ToggleButton1.Caption = "ExcelVBA"
If ToggleButton1.Value = True Then
Range("A1").Value = "ExcelVBA"
Range("A1").Font.Size = 18
Range("A1").Font.Color = vbRed
Else
ToggleButton1.Caption = "Geri Dönmek için Tıklayın"
Range("A1").Font.Size = 10
Range("A1").Font.Color = vbBlack
Range("A1").Value = "Hoşçakalın"
End If
End Sub


Boş bir çalışma açarak , userforma ToggleBUtton ekleyin ve tıkladığınızda ToggleBUtton üzerindeki ve A1 hücresindeki değişiklikleri inceleyin. Kullanıp kullanmamak size kalmış. Dediğim gibi pek gerekli bir nesne değil , fakat nedense bana hep sempatik gelmiştir. :P
Sorularınızı düzgün bir Türkçe ile detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Alıntı ile gereksiz şişirilen başlıkları takip edemiyorum. Lütfen Cevap Yaz butonunu kullanın.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 51
İleti: 4218
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yalova

Toggle Button Kullanımı

İleti#2)  Erkan Akayay » 11 Kas 2008 15:55

Aslında ToggleButton'a daha fazla seçenek atanabilir. Onu sizin bulmanızı isteyeceğim. Size sadece küçük bir ipucu : ToggleButton.Caption'ı kullanabilirsiniz.
Sorularınızı düzgün bir Türkçe ile detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Alıntı ile gereksiz şişirilen başlıkları takip edemiyorum. Lütfen Cevap Yaz butonunu kullanın.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 51
İleti: 4218
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Yalova

Toggle Button Kullanımı

İleti#3)  MAJUHOO » 11 Kas 2008 15:59

Teşekkürler Erkan bey..

Bizimde bilgi dağarcığımızı genişletmemiz lazım :P
Alacağınız her çıktı, bir ağaç yaprağı...
Hayat 3 ila 4 arasıdır ya 3,5 atarsın yada 4 - 4 lük yaşarsın...
MAJUHOO
Site Dostu
 
Adı Soyadı:KADRİYE OMRAK
Kayıt: 15 Tem 2008 10:40
Yaş: 38
İleti: 506
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

Toggle Button Kullanımı

İleti#4)  Tarkan VURAL » 11 Kas 2008 16:00

Benden de bir ipucu:
ToggleButton.Caption farklılıklarını CommandButton.Caption farklılıkları ile de yapabilirsiniz. Yani Erkan Beyin dediği gibi aslında ToggleButton çok fazla kullanışlı olan bir nesne değil, ama kullanılmayacak anlamında da değil. --)(
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ?
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 47
İleti: 27425
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum ToggleButton

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe