[mohammed moh]

السلام عليكم و رحمة الله
كما هو مبين في العنوان "كيف نستخدم الجملة (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 


إلى هنا أكتفي بهذا القدر
و أتمنى أن تكون الفكرة قد وصلت
مع تحيات أخوكم محمد بالتوفيق