Code korter maken

[Matthew117]

ik heb nu deze code voor mijn controle maar ik zou hem korter willen krijgen door middel van arrays (of iets anders) want hij is veel te lang op dit moment.

Private Sub btnControle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnControle.Click

        Dim intUitkomst1, intUitkomst2, intUitkomst3, intUitkomst4, intUitkomst5, intUitkomst6, intUitkomst7, intUitkomst8, intUitkomst9, intUitkomst10 As Integer

        intUitkomst1 = CInt(txtOefening1.Text)
        intUitkomst2 = CInt(txtOefening2.Text)
        intUitkomst3 = CInt(txtOefening3.Text)
        intUitkomst4 = CInt(txtOefening4.Text)
        intUitkomst5 = CInt(txtOefening5.Text)
        intUitkomst6 = CInt(txtOefening6.Text)
        intUitkomst7 = CInt(txtOefening7.Text)
        intUitkomst8 = CInt(txtOefening8.Text)
        intUitkomst9 = CInt(txtOefening9.Text)
        intUitkomst10 = CInt(txtOefening10.Text)

        If intUitkomst1 = lblControle1.Text Then
            lblControle1.Visible = False
        Else
            lblControle1.Visible = True
        End If

        If intUitkomst2 = lblControle2.Text Then
            lblControle2.Visible = False
        Else
            lblControle2.Visible = True
        End If

        If intUitkomst3 = lblControle3.Text Then
            lblControle3.Visible = False
        Else
            lblControle3.Visible = True
        End If

        If intUitkomst4 = lblControle4.Text Then
            lblControle4.Visible = False
        Else
            lblControle4.Visible = True
        End If

        If intUitkomst5 = lblControle5.Text Then
            lblControle5.Visible = False
        Else
            lblControle5.Visible = True
        End If

        If intUitkomst6 = lblControle6.Text Then
            lblControle6.Visible = False
        Else
            lblControle6.Visible = True
        End If

        If intUitkomst7 = lblControle7.Text Then
            lblControle7.Visible = False
        Else
            lblControle7.Visible = True
        End If

        If intUitkomst8 = lblControle8.Text Then
            lblControle8.Visible = False
        Else
            lblControle8.Visible = True
        End If

        If intUitkomst9 = lblControle9.Text Then
            lblControle9.Visible = False
        Else
            lblControle9.Visible = True
        End If

        If intUitkomst10 = lblControle10.Text Then
            lblControle10.Visible = False
        Else
            lblControle10.Visible = True
        End If
    End Sub

Alvast bedankt

 

[edmoor]

Kijk eens naar deze:

Private Sub btnControle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnControle.Click

    lblControle1.Visible = Iif(CInt(txtOefening1.Text = lblControle1.Text), True, False)
    lblControle2.Visible = Iif(CInt(txtOefening2.Text = lblControle2.Text), True, False)
    lblControle3.Visible = Iif(CInt(txtOefening3.Text = lblControle3.Text), True, False)
    lblControle4.Visible = Iif(CInt(txtOefening4.Text = lblControle4.Text), True, False)
    lblControle5.Visible = Iif(CInt(txtOefening5.Text = lblControle5.Text), True, False)
    lblControle6.Visible = Iif(CInt(txtOefening6.Text = lblControle6.Text), True, False)
    lblControle7.Visible = Iif(CInt(txtOefening7.Text = lblControle7.Text), True, False)
    lblControle8.Visible = Iif(CInt(txtOefening8.Text = lblControle8.Text), True, False)
    lblControle9.Visible = Iif(CInt(txtOefening9.Text) = lblControle9.Text, True, False)
    lblControle10.Visible = Iif(CInt(txtOefening10.Text = lblControle10.Text), True, False)

End Sub

Uitleg:
https://msdn.microsoft.com/en-us/library/27ydhh0d(v=vs.90).aspx