VB6: Label Control

Kebanyakan coder menggunakan label untuk menampilkan tulisan seperti judul form atau keterangan control lain seperti TextBox, ComboBox, dan List Box.

Berikut ini property yang sering digunakan pada Label.

Property	Keterangan
Alignment	Menentukan penjajaran teks label, apakah rata kiri, rata kanan atau tengah (Left Justify, Right Justify, Center)
AutoSize	Jika nilainya = true maka pada saat runtime caption nya diubah menjadi lebih panjang, ukuran label akan melebar secara otomatis.
BackColor	Warna background label yang akan tampil jika propery BackStyle = 1-Opaque
BackStyle	Menentukan apakah label ingin mempunyai warna latar sendiri atau mengikuti warna container nya (transparant)
BorderStyle	1-Fixed Single untuk menampilkan garis disekeliling label. Atau 0-None untuk membiarkannya tanpa garis.
Caption	Holds the text that appears on the label.
Font	Untuk mengatur tampilan font dari caption yang terdiri dari font name, style, dan size.
ForeColor	Warna dari teks label.
Height	Tinggi label dalam ukuran twips.
Left	Jarak label dari sisi kiri dalam ukuran twips.
MousePointer	Menentukan bentuk mouse saat bergerak diatas label.
TabIndex	Urutan fokus saat tombol Tab pada keyboard ditekan
ToolTipText	Menyimpan teks yang akan ditampilkan saat mouse ada di atas label.
Top	Jarak label dari sisi atas dalam ukuran twips.
Visible	Menentukan apakah label dapat dilihat oleh user atau tidak
Width	Lebar label dalam ukuran twips.
WordWrap	Jika nilai = true maka saat lebar label lebih kecil dari teks maka akan dibuat baris baru.

Method dan event lebih jarang digunakan karena biasanya label hanya untuk menampilkan tulisan saja.

Event	Keterangan
Click	terjadi saat label di click.
MouseMove	terjadi saat mouse pointer bergerak diatas label.
MouseDown	terjadi saat mouse click dilakukan diatas label.
MouseUp	terjadi setelah mouse click dilakukan diatas label dilepas.

Method	Keterangan
Move	Memindahkan posisi label.

Contoh Penggunaan Label.
1. Border Style dan Alignment Label

2. Autosize dan Wordwrap
UI:

Code:
Private Sub Form_Load()
Label1.Caption = "Proses QA sebelum deployment " & _
                 "akan memperkecil error saat " & _
                 "aplikasi digunakan user."
Label1.WordWrap = True
Label1.AutoSize = True
End Sub

Runtime:

3. Event Click, MouseMove, MouseDown, dan MouseUp
UI:

Code:
Private Sub Label1_Click()
Label1.Caption = "Clicked"
End Sub

Private Sub Label1_MouseDown(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
Label1.Caption = "MouseDown"
End Sub

Private Sub Label1_MouseMove(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
Label1.BackColor = vbRed
End Sub

Private Sub Form_MouseMove(Button As Integer, _
    Shift As Integer, X As Single, Y As Single)
Label1.BackColor = vbYellow
End Sub

Runtime:

Click here if you like this article.