20-09-13, 10:37 PM
السلام عليكم و رحمة الله
كما هو مبين في العنوان "كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟"
هذه الجملة تقوم بتنفيذ مجموعة أو سلسلة من العبارات التي تشير إلى كائن معين يعني أعضاء خاصة به
ولكي تتوضح الصورة نأخذ هذا المثال البسيط
مثلا نقوم بإضافة تاكست بوكس إلى الفورم عن طريق الكود كما يلي:
طبعا الكود في حدث اللاود للفورم
كما هو مبين في العنوان "كيف نستخدم الجملة (With...End With) و ما دورها يا ترى؟"
هذه الجملة تقوم بتنفيذ مجموعة أو سلسلة من العبارات التي تشير إلى كائن معين يعني أعضاء خاصة به
ولكي تتوضح الصورة نأخذ هذا المثال البسيط
مثلا نقوم بإضافة تاكست بوكس إلى الفورم عن طريق الكود كما يلي:
طبعا الكود في حدث اللاود للفورم
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim textbox1 As New TextBox
Controls.Add(textbox1)
End Sub
الآن نقوم بإدخال بعض الأمور على الكائن تاكست بوكس مثل التكست و الحجم و حجم الخط و نوعه إلخ..
PHP كود :
Dim textbox1 As New TextBox
textbox1.Location = New Point(20, 20)
textbox1.BackColor = Color.Black
textbox1.ForeColor = Color.AliceBlue
textbox1.TextAlign = HorizontalAlignment.Center
textbox1.Multiline = True
textbox1.Size = New Size(300, 200)
textbox1.Font = New Font(textbox1.Font, FontStyle.Bold)
textbox1.Font = New Font("Times New Roman", 30)
textbox1.Text = "mohammed moh"
Controls.Add(textbox1)
End Sub
كما تلاحظون في الصورة أعلاه قمنا بإضافة بعض الأمور للكائن تاكست بوكس
الآن جاء الدور على جملتنا و أهم شيء في الموضوع ألا و هي (With...End With)
و يكون الكود كما يلي:
PHP كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim textbox1 As New TextBox
With textbox1
.Location = New Point(20, 20)
.BackColor = Color.Black
.ForeColor = Color.AliceBlue
.TextAlign = HorizontalAlignment.Center
.Multiline = True
.Size = New Size(300, 200)
.Font = New Font(textbox1.Font, FontStyle.Bold)
.Font = New Font("Times New Roman", 30)
.Text = "mohammed moh"
End With
Controls.Add(textbox1)
End Sub
الشيء الملاخظ هو أن الصورة 2 تشبه الصورة رقم 3 يعني جملتنا (With...End With) و ظيفتها إختصار كتابة الكائن كل مرة نريد فيها إضافة خاصية أو عنصر خاص به
يعني عوض أن نكتب
كائن1.عنصر1 = كذا
كائن1.عنصر2 = كذا
.
.
كائن1.عنصر(ن) = كذا
نكتب ما يلي:
PHP كود :
With الكائن
.عنصر1 = كذا
.عنص21 = كذا
.
.
.
.عنصر(ن) = كذا
End With
و أتمنى أن تكون الفكرة قد وصلت
مع تحيات أخوكم محمد بالتوفيق