الدرس الثاني : تركيب With .

السلام عليكم و رحمة الله و بركاته ،

الدرس الثاني : تركيب With .

تركيب With ... End With هو تركيب بسيط جدا يفيد في اختصار الكود عن طريق تقليل كتابة أحد الكائنات المستخدمة بكثرة داخل الكود.

ويكون كالتالي :

With Object

 .Property1 = Exp

 .Property2 = Exp

 .Property... = Exp

End With

مثلاً , انا كتبت الكود التالي , لكائن اسمه TxtBoxForDatabase.

TxtBoxForDatabase.Text = "DB TxtBox"

TxtBoxForDatabase.Enabled = True

TxtBoxForDatabase.Visible = True

TxtBoxForDatabase.FontBold = True

TxtBoxForDatabase.FontName = "Arial"

TxtBoxForDatabase.Alignment = 3

بعد إدخال تركيب With يصبح :

With TxtBoxForDatabase

.Text = "DB TxtBox"

.Enabled = True

 .Visible = True

 .FontBold = True

 .FontName = "Arial"

 .Alignment = 3

End With

أرجو أن يكون الدرس مفيدا , وأن ينال إعجابكم.
والسلام عليكم و رحمة الله و بركاته.