استخدام With...End With Statement

يستخدم التركيب (أو جملة)  With...End With  Statement  لتسهيل عملية الوصول الى أعضاء الكائن دون الحاجة الى كتابة اسم الكائن.و ذلك  لتسهيل عملية كتابة الاكواد و قراءتها و تحسين شكل الكود و توفير الوقت اللازم لكتابة الاكواد 


خذ المثال التالي:

    Dim New_Button As New Button

        New_Button.BackColor = Color.Black

        New_Button.ForeColor = Color.Wheat

        New_Button.Text = "مدونة خيال مبرمج"

        New_Button.Name = "button1"

        New_Button.Width = 100

        New_Button.Height = 50

فبدلا من الوصول الى أعضاء الكائن كما في الكود السابق يمكنك استخدام With...End  With  بهذه الطريقة :
   

    Dim New_Button As New Button

        With New_Button

            .BackColor = Color.Black

            .ForeColor = Color.Wheat

            .Text = "مدونة خيال مبرمج"

            .Name = "button1"

            .Width = 100

            .Height = 50

        End With

مثال آخر لرسم مجموعة من الاشكال على الــForm :

    Dim new_drawing As System.Drawing.Graphics

        new_drawing = Me.CreateGraphics

        With new_drawing

            .DrawLine(Pens.Black, 0, 0, 100, 100)

            .DrawPie(Pens.Bisque, 5, 5, 30, 40, 7, 89)

            .DrawRectangle(Pens.DarkGoldenrod, 45, 87, 20, 60)

            .FillEllipse(Brushes.DarkSeaGreen, 45, 87, 30, 50)

        End With

كما يمكن لمجموعة من جمل With...End With أن تكون متداخلة بهذه الطريقة :

  Dim form2 As New Form

        With form2

            .Text = "مدونة خيال مبرمج"

            .Height = 500

            .Width = 500

            Dim New_textbox As New TextBox

            With New_textbox

                .ForeColor = Color.Chocolate

                .Location = New Point(20, 10)

                form2.Controls.Add(New_textbox)

            End With

            form2.Show()

        End With

يمكنك استخدامها أيضا مع OpenFileDialog قم باضافة OpenFileDialog الى الــForm واكتب الكود التالي :

   With OpenFileDialog1

            .FileName = "C:\My Documents\Doc1.txt"

            .DefaultExt = ".txt"

            .Filter = "Text Files|*.TXT"

            .Filter = "Bitmaps|*.BMP|GIF Images|*.GIF|" & _

               "JPG Images|*.JPG|All Images|*.BMP;*.GIF;*.JPG"

            .FilterIndex = 2

            .InitialDirectory = "C:\My Documents"

            .ShowReadOnly = True

            .ReadOnlyChecked = True

            .ShowDialog()

        End With

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