دورة مبسطة فى لغة visual basic 6الدرس الثاني : تركيب 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

منقول

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذه الصورة]

شكرا لكم مع دوام التوفيق