Property | Keterangan |
BackColor | Warna background command button. Jika ingin mengubah warna background ubah terlebih dahulu property Style dari 0-Standard ke 1-Graphical. |
Caption | Teks yang tampil di command button. |
Default | Menentukan bahwa command button akan merespon Enter walaupun fokus aktif ada di kontrol lain. |
Enabled | Menentukan command button dapat berinteraksi dengan user atau tidak. |
Font | Memanggil Font dialog box untuk mengatur font name, style, dan size dari caption |
Height | Tinggi command button dalam twips. |
Left | Posisi command button dari sisi kiri dalam twips. |
MousePointer | Menentukan bentuk mouse pointer saat user mengarahkan mouse diatas command button. |
Picture | Menyimpan nama icon gambar yang ditampilkan di command button setelah property Style bernilai 1-Graphical. |
Style | Property dengan pilihan 0-Standard ke 1-Graphical. Menentukan apakah tampilan command button akan berupa tampilan tombol standard (0-Standard) atau jika ingin mengatur warna background dan gambar pilih 1-Graphical. |
TabIndex | Urutan fokus saat tombol Tab pada keyboard ditekan. |
TabStop | Menentukan apakah Command Button dapat menerima fokus dari tombol Tab pada keyboard. |
ToolTipText | Menyimpan teks yang akan ditampilkan saat pointer mouse berpindah diatasnya pada saat aplikasi run. |
Top | Posisi command button dari sisi atas dalam twips. |
Visible | Menentukan apakah Command Button dapat menerima terlihat oleh user atau tidak. |
Width | Lebar command button dalam twips. |
Event yang Umum Digunakan
Method yang Umum Digunakan
Method | Keterangan |
Move | Memindahkan posisi commandbutton. |
SetFocus | Memindahkan fokus pada commandbutton yang bersangkutan |
Berikut ini adalah beberapa contoh penggunaan CommandButton:
1. CommandButton Style Standard Vs Graphical
Mari kita perhatikan saat kita mengatur BackColor dan Picture untuk CommandButton, seolah tidak ada perubahan jika style yang kita gunakan 0-Standard.
Berbeda ketika kita mengubah style menjadi 1-Graphical. Perubahan tampak pada saat design maupun run.
2. CommandButton Caption berubah saat click
UI:
Code:
Private Sub Command1_Click()
Command1.Caption = Command1.Name & " Clicked"
End Sub
Runtime:
3. CommandButton Disable dan Enable
UI:
Private Sub Command1_Click()
Command1.Caption = "Disabled"
Command2.Caption = "Command2"
Command1.Enabled = False
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
Command2.Caption = "Disabled"
Command1.Caption = "Command1"
Command1.Enabled = True
Command2.Enabled = False
End Sub
Runtime: Command1 dan Command2 bergantian enable dan disable
4. CommandButton Default
UI:
Code:
Private Sub Command1_Click()
MsgBox "Command1 Clicked"
End Sub
Private Sub Command2_Click()
MsgBox "Command2 Clicked"
End Sub
Runtime: Saat fokus berada di Text1 kemudian menekan tombol Enter maka yang akan berjalan adalah Command1.
Click here if you like this article.
0 Comments