Probleme VB

Version imprimable

Probleme VB

Salut tous le monde :)
J'ai un petit problème ! Je suis débutant et je veux apprendre la langage vb !
Mon problème est que j'ai de "form" ! je veux que après que la valeur de "progress bar" atteint 100 ,l'application passe automatiquement au 2éme "form" sans cliquer sur le bouton une autre fois ! Voila le script ... quelle sont les fautes ? car quand je lance l'application , elle se plante en cliquant sur le bouton ! (J'utilise vb 2010)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Public Class Form1
 
 
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
 
 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(10)
        Timer1.Interval = (1)
 
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Timer1.Start()
 
        Dim i As Integer
        ProgressBar1.Value = i
        Do Until i = 100
            If ProgressBar1.Value = 100 Then
                Form2.Show()
 
            End If
        Loop
 
 
 
 
    End Sub
 
End Class

15/08/2011, 19h30
Pol63

un thread n'exécute qu'une sub à la fois, chacune leur tour
pendant le do loop, ca ne fait rien d'autre, donc le tick du timer n'est pas appelé, donc le progressbar ne bouge pas, donc ca boucle à l'infini

button.click : timer.start
timer.tick : incrément, if value >= 100 then timer.stop et form2.show et me.close

après avant de coder il faut lire tout ca :
http://plasserre.developpez.com/cours/vb-net/

Citation:

Envoyé par zodiag

... je veux que après que la valeur de "progress bar" atteint 100 ,l'application passe automatiquement au 2éme "form" sans cliquer sur le bouton...

Bonjour,

Voici, code testé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Option Explicit On
Public Cs Form1
  Dim va As Integer = 0
 
  Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ProgressBar1.Minimum = 0
    ProgressBar1.Maximum = 100
    ProgressBar1.Value = 0
    Timer1.Interval = 50
    Timer1.Enabled = False
  End Sub
 
  Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Enabled = True
  End Sub
 
  Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    ProgressBar1.Value = va
    va = va + 5
    If va > 100 Then
      Timer1.Enabled = False
      Form2.Show()
    End If
  End Sub
 
End Class

15/08/2011, 23h33
zodiag

Merci Pol63 :)
Merci Ehjoe :)
ça marche bien !