VB6: Struktur Kode With...End With

Code yang kita susun akan lebih efisien dengan menggunakan struktur With...End With. Terutama saat kita sedang menyusun poperty dan/atau method pada suatu object dimana nama object tersebut akan kita ketikan berulang-ulang.

Sebagai contoh kita akan mengatur property sebuah textbox, struktur With...End With tergambar pada contoh berikut ini:
With Text1
   .Text = "Welcome Readers!"
   .Font.Size = 12
   .Font.Bold = True
   .ForeColor = vbBlue
   .Height = 150 
End With

Kasus lain yang sering Rani alami, yaitu saat harus mengatur propery control-control yang ada pada form saat runtime. Saat kita tidak hapal nama-nama control yang ada pada form daripada buka tutup Design View biasanya mengetikan: Me. kemudian akan muncul list yang dapat kita pilih.
With Me
   .Caption = "Parameter Laporan"
   .dtpTanggal.Value = Date
   .cboOperator.ListIndex = 0
   .txtKeyword = "%"
End With

Click here if you like this article.