Kamis, 31 Januari 2013

Fungsi dan Penggunaan CheckBox pada Visual Basic 6.0

19.37    2 comments

Dasar Pemerograman; Mengenal lebih dekat fungsi dan penggunaan CheckBox


Langsung saja, 
Jalankan VB - Buat Form Baru - desain Form kurang lebih seperti ini :

ini script-Nya :

Private Sub Check1_Click()
If Check1.Value = Checked Then
Label1.FontBold = True
Else
If Check1.Value = Unchecked Then
Label1.FontBold = False
End If
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = Checked Then
Label1.FontUnderline = True
Else
If Check2.Value = Unchecked Then
Label1.FontUnderline = False
End If
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = Checked Then
Label1.FontSize = 14
Else
If Check3.Value = Unchecked Then
Label1.FontSize = 3
End If
End If
End Sub

Private Sub Check4_Click()
If Check4.Value = Checked Then
Label1.ForeColor = &HFF&
Else
If Check4.Value = Unchecked Then
Label1.ForeColor = &H0&
End If
End If
End Sub

Private Sub Command1_Click()
End
End Sub

Tampilan program di jalankan :


Terima kasih.
Semoga bermanfaat. ^_^

2 komentar:

  1. Anonim4 Oktober 2013 pukul 09.48

    masih bisa di copi dengan ctrl+C bos...

    BalasHapus
  2. pelajar full kasus25 Mei 2018 pukul 22.20

    tinggal non aktfikan javascript
    done
    atau pake add ons right click :v

    BalasHapus

Isikan komentar anda dengan baik dan bermanfaat.. ^_^