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. ^_^
