Keskustelu: Koodit: VB.NET: Muistilista

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Font = New Font("Arial", 14, FontStyle.Regular)
        Label2.Font = New Font("Arial", 14, FontStyle.Regular)
        Label3.Font = New Font("Arial", 14, FontStyle.Regular)
        Label4.Font = New Font("Arial", 14, FontStyle.Regular)
        Label5.Font = New Font("Arial", 14, FontStyle.Regular)
        Label6.Font = New Font("Arial", 14, FontStyle.Regular)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Asetetaan tekstit.
        Label1.Text = TextBox1.Text
        Label2.Text = TextBox2.Text
        Label3.Text = TextBox3.Text
        Label4.Text = TextBox4.Text
        Label5.Text = TextBox5.Text
        Label6.Text = TextBox6.Text

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        'Yliviivataan
        If (CheckBox1.Checked) Then
            Label1.Font = New Font("Arial", 14, FontStyle.Strikeout)
        Else
            Label1.Font = New Font("Arial", 14, FontStyle.Regular)

        End If
        If (CheckBox2.Checked) Then
            Label2.Font = New Font("Arial", 14, FontStyle.Strikeout)
        Else
            Label2.Font = New Font("Arial", 14, FontStyle.Regular)

        End If
        If (CheckBox3.Checked) Then
            Label3.Font = New Font("Arial", 14, FontStyle.Strikeout)
        Else
            Label3.Font = New Font("Arial", 14, FontStyle.Regular)

        End If
        If (CheckBox4.Checked) Then
            Label4.Font = New Font("Arial", 14, FontStyle.Strikeout)
        Else
            Label4.Font = New Font("Arial", 14, FontStyle.Regular)

        End If
        If (CheckBox5.Checked) Then
            Label5.Font = New Font("Arial", 14, FontStyle.Strikeout)
        Else
            Label5.Font = New Font("Arial", 14, FontStyle.Regular)

        End If
        If (CheckBox6.Checked) Then
            Label6.Font = New Font("Arial", 14, FontStyle.Strikeout)
        Else
            Label6.Font = New Font("Arial", 14, FontStyle.Regular)

        End If
        If (CheckBox7.Checked) Then
            Label7.Text = "Ajoissa"
        Else
            Label7.Text = "Myöhässä"
        End If
        If (CheckBox8.Checked) Then
            Label8.Text = "Ajoissa"
        Else
            Label8.Text = "Myöhässä"
        End If
        If (CheckBox9.Checked) Then
            Label9.Text = "Ajoissa"
        Else
            Label9.Text = "Myöhässä"
        End If
        If (CheckBox10.Checked) Then
            Label10.Text = "Ajoissa"
        Else
            Label10.Text = "Myöhässä"
        End If
        If (CheckBox11.Checked) Then
            Label11.Text = "Ajoissa"
        Else
            Label11.Text = "Myöhässä"
        End If
        If (CheckBox12.Checked) Then
            Label12.Text = "Ajoissa"
        Else
            Label12.Text = "Myöhässä"
        End If
        'Kaikki tehtävät suoritettu nollataan.
        If (CheckBox1.Checked And CheckBox2.Checked And CheckBox3.Checked And CheckBox4.Checked And CheckBox5.Checked And CheckBox6.Checked) Then
            Label1.Text = ""
            Label2.Text = ""
            Label3.Text = ""
            Label4.Text = ""
            Label5.Text = ""
            Label6.Text = ""
            Label7.Text = ""
            Label8.Text = ""
            Label9.Text = ""
            Label10.Text = ""
            Label11.Text = ""
            Label12.Text = ""
            CheckBox1.Checked = False
            CheckBox2.Checked = False
            CheckBox3.Checked = False
            CheckBox4.Checked = False
            CheckBox5.Checked = False
            CheckBox6.Checked = False
            CheckBox7.Checked = False
            CheckBox8.Checked = False
            CheckBox9.Checked = False
            CheckBox10.Checked = False
            CheckBox11.Checked = False
            CheckBox12.Checked = False
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
        End If
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        'Tyhjennetään
        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = ""
        Label4.Text = ""
        Label5.Text = ""
        Label6.Text = ""
        Label7.Text = ""
        Label8.Text = ""
        Label9.Text = ""
        Label10.Text = ""
        Label11.Text = ""
        Label12.Text = ""

        CheckBox1.Checked = False
        CheckBox2.Checked = False
        CheckBox3.Checked = False
        CheckBox4.Checked = False
        CheckBox5.Checked = False
        CheckBox6.Checked = False
        CheckBox7.Checked = False
        CheckBox8.Checked = False
        CheckBox9.Checked = False
        CheckBox10.Checked = False
        CheckBox11.Checked = False
        CheckBox12.Checked = False
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""

    End Sub


End Class