VB.NET Class.10 ()

練習：
---------------------------------------------------------------------------

---------------------------------------------------------------------------
Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Now
    End Sub
---------------------------------------------------------------------------
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        PictureBox1.Visible = False
    End Sub
---------------------------------------------------------------------------
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PictureBox1.Visible = True
    End Sub
---------------------------------------------------------------------------
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        PictureBox1.Visible = Not (PictureBox1.Visible)
    End Sub
---------------------------------------------------------------------------
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Label1.BackColor = Color.FromArgb(255, 0, 0)
        RadioButton1.Checked = True
    End Sub
---------------------------------------------------------------------------
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Label1.BackColor = Color.FromArgb(0, 255, 0)
        RadioButton2.Checked = True
    End Sub
---------------------------------------------------------------------------
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Label1.BackColor = Color.FromArgb(0, 0, 255)
        RadioButton3.Checked = True
    End Sub
---------------------------------------------------------------------------
    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Label1.BackColor = Color.FromArgb(255, 0, 0)
    End Sub
---------------------------------------------------------------------------
    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Label1.BackColor = Color.FromArgb(0, 255, 0)
    End Sub
---------------------------------------------------------------------------
    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
        Label1.BackColor = Color.FromArgb(0, 0, 255)
    End Sub
---------------------------------------------------------------------------
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Label2.Text = "您的興趣為："
        Dim gap As String = " "
        If CheckBox1.Checked = True Then
            Label2.Text = Label2.Text & gap & CheckBox1.Text
            gap = ", "
        End If
        If CheckBox2.Checked = True Then
            Label2.Text = Label2.Text & gap & CheckBox2.Text
            gap = ", "
        End If
        If CheckBox3.Checked = True Then
            Label2.Text = Label2.Text & gap & CheckBox3.Text
            gap = ", "
        End If
        If CheckBox4.Checked = True Then
            Label2.Text = Label2.Text & gap & CheckBox4.Text
            gap = ", "
        End If
        If CheckBox5.Checked = True Then
            Label2.Text = Label2.Text & gap & CheckBox5.Text
            gap = ", "
        End If
        If CheckBox6.Checked = True Then
            Label2.Text = Label2.Text & gap & CheckBox6.Text
            gap = ", "
        End If
    End Sub
---------------------------------------------------------------------------
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Label2.Text = "您的興趣為："
        If CheckBox1.Checked = True Then
            Label2.Text = Label2.Text & CheckBox1.Text & ", "
        End If
        If CheckBox2.Checked = True Then
            Label2.Text = Label2.Text & CheckBox2.Text & ", "
        End If
        If CheckBox3.Checked = True Then
            Label2.Text = Label2.Text & CheckBox3.Text & ", "
        End If
        If CheckBox4.Checked = True Then
            Label2.Text = Label2.Text & CheckBox4.Text & ", "
        End If
        If CheckBox5.Checked = True Then
            Label2.Text = Label2.Text & CheckBox5.Text & ", "
        End If
        If CheckBox6.Checked = True Then
            Label2.Text = Label2.Text & CheckBox6.Text & ", "
        End If
        Label2.Text = Label2.Text.Substring(0, Label2.Text.Length - 2)
    End Sub
End Class

---------------------------------------------------------------------------