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.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 50
İleti: 4130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

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.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 50
İleti: 4130
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

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: 502
 
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: 27383
 
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