With Kullanarak Daha Az Kod Yazabilirsiniz

Merhaba Arkadaşlar ; With Kullanarak Daha Az Kod Yazabilirsiniz ve Programınız Daha Hızlı Çalışır.Peki Bu With Nedir ? Nasıl Kullanılır ? Ne İşe Yarar ? Aklınıza Takılan Tüm Soruların Cevapları ;
With Bir Nesnenin veya Kullanıcı Tanımlı Bir Değişkenin Bir Dizi Deyim İçin Birkez Belirtilmesini Sağlar.With Sayesinde Prosedürler Daha Hızlı Çalışır ve Daha Az Kod Yazmamızı Sağlar.Mesela Bir Nesneye Çok Sayıda Özellik Vereceksek With Kullanmak Daha Mantıklıdır.Örneklerle Daha da İyi Anlayacaksınız.
Örnek ; With Kullanmadan Önceki Kodumuz :
----------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Combo1.AddItem "Matematik"
Combo1.AddItem "Felsefe"
Combo1.AddItem "Coğrafya"
Combo1.AddItem "Geometri"
Combo1.Fontname= "Arial"
Combo1.Fontbold = True
End Sub
-------------------------------------------------------------------------------------------------
Şimdi Aynı Örneği With Kullanarak Yapalım
Private Sub Command1_Click()
With Combo1
.AddItem "Matematik"
.AddItem "Felsefe"
.AddItem "Coğrafya"
.AddItem "Geometri"
.Fontname = "Arial"
.Fontbold = "True"
End With
End Sub
--------------------------------------------------------------------------------------------------------
Kolay Gelsin..