Property yang Umum Digunakan
| Property | Keterangan |
| Alignment | Pilihan posisi checkbox dari label di kiri (0-Left Justify) atau di kanan (1-Right Justify) |
| Appearance | Pilihan tampilan checkbox 0-Flat (datar) atau 1-3D (efek 3 dimensi). |
| BackColor | Warna latar checkbox. |
| Caption | Teks label checkbox. |
| Enabled | Jika true maka checkbox dapat berinteraksi dengan user. |
| Font | Tampilan font name, style, dan size. |
| ForeColor | Warna teks label. |
| Height | Tinggi checkbox dalam twips. |
| Index | Nomor urut jika checkbox dibuat control array. |
| Left | Jarak dari kiri ke checkbox dalam satuan twips. |
| Style | 0-Standard seperti checkbox biasa atau 1-Graphical yang mirip seperti command button. |
| TabIndex | Urutan fokus dengan tombol Tab pada keyboard. |
| ToolTipText | Tulisan akan akan muncul ketika running dan mouse pointer ada di atas checkbox. |
| Top | Jarak dari atas ke checkbox dalam satuan twips. |
| Value | Nilai checkbox ada 3 pilihan: 0-Unchecked, 1-Checked, 2-Grayed |
| Visible | Jika True maka user dapat melihat checkbox dan control didalamnya, sebaliknya jika false maka tersembunyi. |
| Width | Lebar frame dalam satuan twips. |
Event yang Umum Digunakan
| Event | Keterangan |
| Click | Saat checkbox diklik. |
| DblClick | Saat checkbox diklik dua kali |
| GotFocus | Saat checkbox mendapatkan fokus aktif. |
| KeyDown | Saat checkbox dalam fokus aktif tombol keyboard ditekan. |
| KeyPress | Saat checkbox dalam fokus aktif tombol keyboard ASCII ditekan. |
| LostFocus | Saat checkbox kehilangan fokus aktif |
| MouseDown | Saat mouse ditekan diatas checkbox. |
| MouseMove | Saat mouse pointer bergerak diatas checkbox. |
| MouseUp | Saat mouse ditekan diatas checkbox dilepas. |
Method yang Umum Digunakan
| Method | Keterangan |
| Move | Memindahkan posisi checkbox. |
| SetFocus | Memindahkan fokus aktif ke checkbox. |
Contoh Penggunaan CheckBox
1. CheckBox Alignment
2. CheckBox Style
3. CheckBox State
4. CheckBox untuk Format Font Label
UI:
Code:
Private Sub Check1_Click()
Label1.FontBold = Check1.Value
End Sub
Private Sub Check2_Click()
Label1.FontItalic = Check2.Value
End Sub
Private Sub Check3_Click()
Label1.FontUnderline = Check3.Value
End Sub
Runtime:
Click here if you like this article.
8 Comments
saya sudah mencoba skrip ini buk :
Try
rs = cn.Execute("Select * From tbl_Access Where level ='" & cbo_Username.Text & "'")
If rs.Rows.Count = 0 Then
Else
With rs.Rows(0)
cek_File.Checked = .Item("file")
cek_SystemControl.Checked = .Item("system")
End With
End If
Catch ex As Exception
MsgBox(ex.Message, vbCritical)
End Try
klo skrip manual jalan buk ,,
if cbo_username.text = "Admin" Then
cek_file.Checked=true
End if
tapi mau membuat admin di cbo_username dan data true dari cek_file
diambil dari tabel buk ,,
nama tabel tbl_Access
isinya :
level
file
system
isi field level : admin dan user
isi field file : untuk admin true dan untuk user false
isi field system : untuk admin true dan untuk user true
mohon bimbingannya buk ,, ^_^
error nya emang gimana?
udah coba pake casting/konversi data ke boolean? pake CBool() coba
mmm ,, erornya bahasa inggris buk,, gak ngerti artinya hehehe
tapi ada bolean2 nya di erornya ,,
tapi uda bisa buk sekarang ,,
pake skrip ini :D
rs = cn.Execute("Select * From tbl_Access Where level ='" & cbo_Username.Text & "'")
If Not rs.EOF Then
cek_File.Checked = rs(1).Value
cek_SystemControl.Checked = rs(2).Value
End If
oiy buk casting/konversi data ke boolean? pake CBool() ini maksudnya gmn buk ?
dan untuk checkbox juga biasa nya property value bukan checked.
konversi tipe data di VB6 ada disini
http://rani-irsan.blogspot.com/2014/07/vb6-fungsi-konversi-tipe-data.html
makasih ya buk atas pengetahuannya ,,