ProgressBar bij goed antwoord

Status
Niet open voor verdere reacties.

Helogat

Gebruiker
Lid geworden
22 apr 2008
Berichten
808
Hallo,
ik ben een programma aan het maken om de tafels mee te oefenen.
Ik wil dat bij een goed antwoord er 10 bij komt bij "Form3.ProgressBar1"
Ik heb al deze code maar dat werkt alleen bij Form 1:
Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "2" Then
            Label3.Visible = True
            Label3.Text = "Super"
            Label3.ForeColor = Color.Lime
            Form3.ProgressBar1.Value = +10
            Button1.Enabled = False
            TextBox1.ReadOnly = True
            Button2.Visible = True
        Else
            Label4.Text = "Fout, Het goede antwoord moet zijn: 2"
            Label4.ForeColor = Color.Red
            Label4.Visible = True
            Button1.Enabled = False
            TextBox1.ReadOnly = True
            Button2.Visible = True
        End If
        If Form3.ProgressBar1.Value = 100 Then
            Me.Close()
            Form3.Close()
            Form1.Show()
        End If
    End Sub
 
misschien moet je kijken naar je code met name de regel
Code:
Form3.ProgressBar1.Value = +10
Daarmee zet je de waarde van je progressbar op 10 terwijl je er eigenlijk 10 bij op wil tellen. Dus
Code:
Form3.ProgressBar1.Value = Form3.ProgressBar1.Value  +10
of
Code:
Form3.ProgressBar1.Value += 10
afhankelijk van welke VB versie je gebruikt.

Enjoy!
 
Je kunt ook nog:

Code:
Imports <Project naam>.form3

Dan kan je in een keer de controls uit form3 gebruiken zonder eerst form3.--- te typen:thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan