Lat VB dengan CheckBox

Menggunakan kontrol CheckBox

kontrol CheckBox merupakan kontrol yang digunakan untuk memberikan dua pilihan, yaitu true dan false.

Contoh program CheckBox

Listing Program

Private Sub Cetaktebal_Click(Index As Integer)

If  Cetaktebal .Count = 1 Then

Text1.FontBold = True

Else

Text1.FontBold = False

End If

End Sub

Private Sub Cetakmiring_Click(Index As Integer)

If Cetakmiring.Count = 1 Then

Text1.FontItalic = True

Else

Text1.FontItalic = False

End If

End Sub

Private Sub Garisbawah_Click(Index As Integer)

If Garisbawah.Count = 1 Then

Text1.FontUnderline = True

Else

Text1.FontUnderline = False

End If

End Sub

Private Sub Clear_Click()

Text1.Text = ""

End Sub

Ket : bila anda ceklis cetak tebal maka tulisan akan menjadi tebal, dan begitu seterus'a tergantung anda pilih yang mana.