Sign in to follow this  
Ycc

Probléme de code

6 posts in this topic

>
Public Class Form1
   Dim level As String
   Dim progbar = 10
   Dim image = My.Resources._1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       ProgressBar1.Value += 1
       Label1.Text = ProgressBar1.Value
       If ProgressBar1.Value = progbar Then
           level = level + 1
           Label2.text = level
           PictureBox1.Image = Image
           MsgBox("Tu passe level " & level)
           If progbar = 10 Then
              image = My.Resources._2
               progbar = 100
           ElseIf progbar = 100 Then
              image = My.Resources._3
               progbar = 200

               ''            ElseIf progbar = 200 Then
               ''   image = My.Resources._4
               ''              progbar = 300
           End If
           ProgressBar1.Value = 0
           ProgressBar1.Maximum = progbar

       End If

   End Sub
End Class

Edited by Blue Eyes

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this