Visual Basic 2010 Mengubah Teks sederhana

//lh3.googleusercontent.com/-K5UKWzgJhmU/AAAAAAAAAAI/AAAAAAAACdI/CN3nwiBZsGE/s512-c/photo.jpg
November 16, 2016





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


Related Post

SUBSCRIBE TO OUR NEWSLETTER

closed