Frame içindeki tüm controlleri false yapmak

Katılım
2 Mart 2005
Mesajlar
225
Excel Vers. ve Dili
2003
2007
2010
bir frame içinde 2 adet textbox bir adet combobox ve 3 adet label var bunları
Kod:
combobox1.Enabled = False
textbox1.Enabled = False
yerine tek satırda yapabilmek mümkün mü? yardımcı olacak arkadaşlara teşekkür ederim
 
Katılım
6 Mart 2005
Mesajlar
26
Kod:
Option Explicit
Private Sub UserForm_Initialize()
  Dim ctr As Object
  For Each ctr In Frame1.Controls
      ctr.Enabled = 0
  On Error Resume Next
  Next ctr
End Sub
 
Katılım
6 Mart 2005
Mesajlar
26
Ama soruda bir frame içinde 2 adet textbox bir adet combobox ve 3 adet label var bunları Enabled = False yapabilirmiyim diyor. Frameyi frame1.enabled = False yapmak sorunun cevabı değil sadece çözümdür.
 
Katılım
7 Temmuz 2004
Mesajlar
1,141
Sayın Ahmet okuduklarımdan anladıklarımın özü şu,

"Frame içindeki kontrollerin çalışırlığını iptal etmek"

ve bunu

"tek satırda yapmak"

ve benim verdiğim kod her iki kriteri de sağlıyor.
 
Katılım
2 Mart 2005
Mesajlar
225
Excel Vers. ve Dili
2003
2007
2010
Teşekkürler,
Kod:
For i = 0 To frmIrsaliyeHazirlama.frFirmaBilgileri.Controls.Count - 1
      frmIrsaliyeHazirlama.frFirmaBilgileri.Controls(i).Enabled = False
Next i
sizin örneğinize göre bende bir örnek geliştirdim. Bu şekilde farklı kontrollerin ortak olan özelliklerine etkilemek mümkün ! :D
 
Üst