Penggunaan “With – End With” Sebagai Peringkas Penulisan Kode Pada Gambas

With digunakan untuk mewakili penggunaan object yang dipakai secara berulang, tujuannya adalah menyederhanakan penulisan kode.

Misal :

Public Sub Form_Open()

   TextBox1.Clear

   TextBox1.Text = "Anu"

   TextBox1.W = 100

   TextBox1.H = 20

   TextBox1.Enabled = True

   ‘Dan seterusnya

End

Penulisan dapat disingkat dengan:

Public Sub Form_Open()

   With TextBox1

     .Clear

     .Text = "Anu"

     .W = 100

     .H = 20

     .Enabled = True

   End With

End

Bisa juga disertakan dengan properti yang sama:

Public Sub Form_Open()

   With Koneksi.Database

     .Exec(Sql1)

     .Exec(Sql2)

     .Exec(Sql3)

     .Exec(Sql4)

     .Exec(Sql5)

   End With

End

Jadi, dengan menggunakan with kita tidak perlu menulis ulang object