Visual Basic 2010 Program Mengubah Warna Dan teks

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





Program Mengubah Warna Dan teks VB 2010

 Public Class form1
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Label1.ForeColor = Color.Red
    End Sub
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Label1.ForeColor = Color.Yellow
    End Sub
    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        Label1.ForeColor = Color.Green
    End Sub
    Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
        Label1.ForeColor = Color.Blue
    End Sub
    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.Bold)
        Else
            Label1.Font = New Font(Label1.Font, Label1.Font.Style And Not FontStyle.Bold)
        End If
    End Sub
    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox1.Checked Then
            Label1.Font = New Font(Label1.Font, Label1.Font.Style Or FontStyle.Italic)
        Else
            Label1.Font = New Font(Label1.Font, Label1.Font.Style And Not FontStyle.Italic)
        End If
    End Sub
    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox1.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
    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.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 TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Label1.Text = TextBox1.Text
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Text = TextBox1.Text
    End Sub
End Class


Related Post

SUBSCRIBE TO OUR NEWSLETTER

closed