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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager