çok kullanılan kodları yazmak yerine tek bir isim altında toplamak

[sdegirmenci]

Merhaba;
Aşağıda kısa bir örneğini verdiğim biçimlendirme ilgili bazı kodlar var, bunlar TextBox, Label, CommandButton olabiliyor, müşteri ismini ComboBoxtan seçtiğimizde, kişinin borcunun olup olmaması ile ilgili ,yada başka bir menü açtığımızda,oradaki olaya göre biçimlendirme gerekiyor, Her olay için ayrı ayrı bu kodları yazmak yerine gruplandırıp tek bir isim vererek yalnızca o ismi yazarak bu kodların çalışması mümkünmü acaba ? Bu konuda yardımcı olabilirseniz çok sevinirim, Saygılarımla


Label78.Enabled = False
Label141.Enabled = False
Label142.Enabled = False
Label183.Visible = False
Label184.Visible = False
Label185.Visible = False
Label186.Visible = False
Label187.Visible = False
Label188.Visible = False
Label189.Visible = False

firmayaiadeet.Visible = True
emanetver.Visible = True
emanetiadeal.Visible = False
müşterideniadeal.Visible = False
firmadaniadeal.Visible = False
fiyatı.Visible = False
peşin.Visible = False
kredikartı.Visible = False
veresiye.Visible = False
tahsiledilen.Visible = False
kalan.Visible = False
güncelle.Enabled = False
güncelle.BackColor = &H8000000F

açıklamaanabaşlık.Enabled = False
açıklamaanabaşlık.BackColor = &H8000000F

ödemeşekliaçcihazsatış2.Enabled = False
ödemeşekliaçcihazsatış2.BackColor = &H8000000F

alacakhastatakip.Enabled = False
alacakhastatakip.BackColor = &H8000000F

veresiyemodülaç.Enabled = False
veresiyemodülaç.BackColor = &H8000000F

detay.Enabled = False
detay.BackColor = &H8000000F

vekaletkurumdanbekleme.Enabled = False
vekaletkurumdanbekleme.BackColor = &H8000000F

ödemeşekliaçcihazsatış.Enabled = False
ödemeşekliaçcihazsatış.BackColor = &H8000000F

 

[ÖmerBey]

Bu kodları makro olarak kaydediniz. Mesela bu kodların adı bicimlendirme() olsun.
Biçimlendirmeyi çalıştırmak istediğiniz yere de "call bicimlendirme" yazarak ayrı ayrı kod yerine bu makronun çalışmasını sağlayabilirsiniz.

 

[systran]

bu kodları bir sub içinde yazın. sonra bu alt programı kullanmak istediğiniz yerde tekrarlananlar olarak çağırın. Ben örnek olarak tekrarlananlar ismini kullandım.

Sub tekrarlananlar()
...
...
...

end sub