Düğmelerin pasif durumdan aktif duruma gelmesi

[Mdemir63]

Selamlar

Arkadaşlar form üzerindeki bazı düğmeler pasif görünüyor ama ilgili yerlere bilgi girildiğinde aktif hale geliyor. Acaba bunlar düğmelerin özelliklerinden mi yoksa kodlarla mı yaptırılıyor. Bu konuda bilgi verebilirseniz sevinirim.

Saygılar

 

[harziyan]

iki şekilde de yapılabiliyor.

özelliklerden "enabled"

kod olarak ta "commandbutton1.Enabled = False veya true" şeklinde olabiliyor.

 

[Orion1]

Merhaba.
Aşağıdaki kod commandbutonu pasif yapar.

CommandButton1.Enabled = False

Aşağıdaki kod commandbutonu aktif yapar.

CommandButton1.Enabled = True

 

[Mdemir63]

Sn: Harziyan ve Sn: Sezar
Çok teşekkürler fakat birde şöyle bir şey var . Düğmelerin üzerinde örneğin aç yazıyor form açılıyor. Form açıldıktan sonra Aynı düğme üzerinde bu defa kapat yazısı çıkıyor . bununla ilgili de bilginiz varsa yazabilirmisiniz.

Saygılar

 

[harziyan]

buda düğmenin "caption" özelliği ile ilgili.
CommandButton1.Caption = "Kapat" gibi olabilir.

 

[Recep İpek]

Bu Araç Kutusundaki ToggleButton ile yapılmaktadır.

Örnek için aşağıdaki linkleri inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=29319

http://www.excel.web.tr/showthread.php?t=27178

http://www.excel.web.tr/showthread.php?t=13512

 

[Orion1]

Merhaba.
Sayfa1 üzerine bir tane commandbuton koyun.
VBE de bir tane userform oluşturun.
Userform'un Showmodal özelliğini false yapın.
Sayfada oluşturuduğunuz commandbutona aşağıdaki kodları kopyalayıp sonucu izleyiniz?

Private Sub CommandButton1_Click()
If Range("A1").Value = 0 Then
CommandButton1.Caption = "K A P A T"
Range("A1").Value = 1
UserForm1.Show
Else
CommandButton1.Caption = "A Ç"
Range("A1").Value = 0
Unload UserForm1
End If
End Sub

 

[harziyan]

saygıdeğer üstadlarım: bu çömez de ne çok araya giriyor demeyin sakın? bizde elimizden geldiğince arkadaşlara yardımcı olmaya çalışıyoruz. (bilgimiz dahilinde.)

 

[Orion1]

Merhaba.
Sayın harziyan bende sizin gibi elimden geldiğince yardım etmeye çalışıyorum.
Sıkmayın canınızı.:arkadas:

 

[Mdemir63]

Bütün arkadaşlar hepinize çok teşekkür ediyorum
sağolun
Saygılar