Memindahkan Kontrol Saat Runtime

Hanya dengan beberapa kode, Anda dapat memindahkan kontrol dengan drag-drop saat aplikasi runtime (berjalan). Untuk percobaan, buatlah sebuah Form dengan sebuah Button / tombol didalamnya.

[ VB 6.0 ]
Di bagian 'Command1_MouseMove' ketikkan :

Static l As Integer, t As Integer
  
If Button = 1 Then
  Command1.Left = (Command1.Left + X) - l
  Command1.Top = (Command1.Top + Y) - t
Else
  l = X
  t = Y
End If

[ VB .NET ]
Di bagian 'Button1_MouseMove' ketikkan :

Static p As Point
If e.Button = Windows.Forms.MouseButtons.Left Then
  Button1.Left = (Button1.Left + e.X) - p.X
  Button1.Top = (Button1.Top + e.Y) - p.Y
Else
  p = e.Location
End If

Mengubah Font Saat Runtime

Cara ini dkhususkan untuk para pengguna VB .NET, mengingat dalam mengubah properti font saat runtime (dijalankan) dari suatu kontrol tidak sesederhana dalam VB 6.0. Agar mempermudah prosesnya, maka Anda perlu menambahkan sebuah fungsi dibawah ini ke dalam Module baru.

Public Function nFont(ByVal FontName As String, ByVal Size As Single, Optional ByVal Bold As Boolean = False, Optional ByVal Italic As Boolean = False, Optional ByVal Underline As Boolean = False, Optional ByVal Strikeout As Boolean = False) As Font
Dim fs As FontStyle = FontStyle.Regular
If Bold = True Then fs += FontStyle.Bold
If Italic = True Then fs += FontStyle.Italic
If Underline = True Then fs += FontStyle.Underline
If Strikeout = True Then fs += FontStyle.Strikeout

Try
Return New Font(FontName, Size, fs)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function

Sekarang untuk mengetesnya, buatlah sebuah kontrol Label. Lalu tuliskan kode berikut di 'Form_Load'.

Label1.Font = nFont("Arial", 16)

Anda juga bisa menerapkannya pada kontrol ListView. Buat sebuah kontrol ListView(View=List), lalu tuliskan kode berikut di 'Form_Load'.

ListView1.Items.Add("Pertama").Font = nFont("Arial", 9, True)
ListView1.Items.Add("Kedua").Font = nFont("Times New Roman", 10, , True)
ListView1.Items.Add("Ketiga").Font = nFont("Lucida Handwriting", 8, , , True)
ListView1.Items.Add("Keempat").Font = nFont("Courier New", 10, , , , True)

Menghapus Isi Semua TextBox

Mungkin Anda pernah membuat sebuah Form inputan yang mempunyai banyak kontrol TextBox didalamnya. Untuk melakukan perintah penghapusan seluruh isi semua TextBox, sebenarnya tidak harus menuliskan kode penghapusan text sebanyak TextBox yang ada. Cukup mengetikkan kode dibawah ini, maka isi semua keseluruhan TextBox yang ada dalam Form akan dihapus.

Dim Ctl As Control
For Each Ctl In Me.Controls
If TypeOf Ctl Is TextBox Then Ctl.Text = ""
Next

Tombol DropDown

Tombol / button DropDown adalah tombol yang bilamana di klik akan menampilkan sejumlah menu dibawahnya.

[ VB 6.0 ]
Buat Form baru dengan sebuah kontrol CommandButton didalamnya. Siapkan sebuah rangkaian menu yang akan ditampilkan, cara pembuatannya sama dengan membuat PopUp (klik kanan) menu. Lalu di bagian 'Command1_Click' ketikkan :

PopupMenu mnuDrop, , Command1.Left, Command1.Top + Command1.Height

Gantikan tulisan merah dengan nama popup menu yang telah disiapkan tadi.

[ VB .NET ]
Buat Form baru dengan sebuah kontrol Button dan sebuah kontrol ContextMenuStrip didalamnya. untuk percobaan, isikan beberapa item ke dalam ContextMenuStrip tersebut. Lalu di bagian 'Button1_Click' ketikkan :

ContextMenuStrip1.Show(Button1, 0, Button1.ClientRectangle.Height)