Visual Basic 2010 Mengubah Teks sederhana
Mengubah Teks dengan VB 2010
Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
Label1.Font = New Font(Label1.Font, Label1.Font.Style Or FontStyle.Strikeout)
Else
Label1.Font = New Font(Label1.Font, Label1.Font.Style And Not FontStyle.Strikeout)
End If
End Sub
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
If CheckBox2.Checked Then
Label1.Font = New Font(Label1.Font, Label1.Font.Style Or FontStyle.Underline)
Else
Label1.Font = New Font(Label1.Font, Label1.Font.Style And Not FontStyle.Underline)
End If
End Sub
End Class 