23 July 2014

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.
PropertyKeterangan
AlignmentMenentukan penjajaran teks label, apakah rata kiri, rata kanan atau tengah (Left Justify, Right Justify, Center)
AutoSizeJika nilainya = true maka pada saat runtime caption nya diubah menjadi lebih panjang, ukuran label akan melebar secara otomatis.
BackColorWarna background label yang akan tampil jika propery BackStyle = 1-Opaque
BackStyleMenentukan apakah label ingin mempunyai warna latar sendiri atau mengikuti warna container nya (transparant)
BorderStyle1-Fixed Single untuk menampilkan garis disekeliling label. Atau 0-None untuk membiarkannya tanpa garis.
CaptionHolds the text that appears on the label.
FontUntuk mengatur tampilan font dari caption yang terdiri dari font name, style, dan size.
ForeColorWarna dari teks label.
HeightTinggi label dalam ukuran twips.
LeftJarak label dari sisi kiri dalam ukuran twips.
MousePointerMenentukan bentuk mouse saat bergerak diatas label.
TabIndexUrutan fokus saat tombol Tab pada keyboard ditekan
ToolTipTextMenyimpan teks yang akan ditampilkan saat mouse ada di atas label.
TopJarak label dari sisi atas dalam ukuran twips.
VisibleMenentukan apakah label dapat dilihat oleh user atau tidak
WidthLebar label dalam ukuran twips.
WordWrapJika 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.
EventKeterangan
Clickterjadi saat label di click.
MouseMoveterjadi saat mouse pointer bergerak diatas label.
MouseDownterjadi saat mouse click dilakukan diatas label.
MouseUpterjadi setelah mouse click dilakukan diatas label dilepas.

MethodKeterangan
MoveMemindahkan 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.


0 comments: