MsgBox après progressbar !

[ExLiNK]

Salut ! j'aimerais afficher un MsgBox après une ProgressBar, mais je n'y arrive pas, je vous donne le code pourriez vous me dire que faire pour que ça fonctionne?
Et si vous pouvez faire un sorte que quand on clique sur OK sa ferme le logiciel ^^'

Code

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = ProgressBar1.Maximum Then
ProgressBar1.Value = 0
Timer1.Stop()
Timer1.Enabled = False
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
ListBox1.Enabled = True
Button1.Enabled = True
RadioButton1.Enabled = True
RadioButton2.Enabled = True
RadioButton3.Enabled = True
RadioButton4.Enabled = True

Merci d'avance !​

 

[Astropilot]

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = ProgressBar1.Maximum Then
If MessageBox.Show("Ferme le logiciel ?", "Question", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            Environment.Exit(0)
        End If
ProgressBar1.Value = 0
Timer1.Stop()
Timer1.Enabled = False
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
ListBox1.Enabled = True
Button1.Enabled = True
RadioButton1.Enabled = True
RadioButton2.Enabled = True
RadioButton3.Enabled = True
RadioButton4.Enabled = True

 

[Misuki]

Tu veux afficher une MsgBox lorsque la valeur de la progressbar est au max ? Dans ce cas tu as juste à mettre "MsgBox.Show("lolilol")" dans ton If.

Pour que le logiciel se ferme après avoir appuyer sur Ok tu vas devoir faire un autre If dans ton If (tu suis ? (a) ). En gros ça se passe comme ça:

If ProgressBar1.Value = ProgressBar1.Maximum Then
    If MessageBox.Show("blablablabla", "title", MessageBoxButtons.OK) = DialogResult.OK Then
       Environment.Exit
    End If
End If

(au passage le VB c'est dégueux :'( )

 

[ExLiNK]

Petit problème :

 

[Misuki]

Forcément, imagine quand ta progressBar est déjà au maximum: t'essaye de lui ajouter 1.

Après tout ton premier If, met un Else et met ton Progressbar1.Value = ProgressBar1.Value + 1 dans ton Else.

 

[Astropilot]

Pour le premier If rajoute un Else et place la ligne ou tu a l'erreur dedans ^^
Tant que la valeur est pas maximal on incrémente

 

[ExLiNK]

Les gars vous m'avez perdu là j'ai rien compris x]
Déjà que je débute :x​

 

[Misuki]

ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = ProgressBar1.Maximum Then
If MessageBox.Show("Ferme le logiciel ?", "Question", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            Environment.Exit(0)
        End If
ProgressBar1.Value = 0
Timer1.Stop()
Timer1.Enabled = False
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
ListBox1.Enabled = True
Button1.Enabled = True
RadioButton1.Enabled = True
RadioButton2.Enabled = True
RadioButton3.Enabled = True
RadioButton4.Enabled = True

devient

If ProgressBar1.Value = ProgressBar1.Maximum Then
If MessageBox.Show("Ferme le logiciel ?", "Question", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then
            Environment.Exit(0)
        End If
ProgressBar1.Value = 0
Timer1.Stop()
Timer1.Enabled = False
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
ListBox1.Enabled = True
Button1.Enabled = True
RadioButton1.Enabled = True
RadioButton2.Enabled = True
RadioButton3.Enabled = True
RadioButton4.Enabled = True
Else
ProgressBar1.Value = ProgressBar1.Value + 1
End If

En gros il faut vérifier que la ProgressBar soit pas au max avant de rajouter 1 à sa valeur ^^'

 

[Astropilot]

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ProgressBar1.Value = ProgressBar1.Maximum Then 'Si la progressbar est au max
If MessageBox.Show("Ferme le logiciel ?", "Question", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then 'On demande a fermer le logiciel ou non
            Environment.Exit(0) 'Si oui on le ferme
        End If
ProgressBar1.Value = 0
Timer1.Stop()
Timer1.Enabled = False
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
ListBox1.Enabled = True
Button1.Enabled = True
RadioButton1.Enabled = True
RadioButton2.Enabled = True
RadioButton3.Enabled = True
RadioButton4.Enabled = True

Else ' Si la progressbar n'est pas au maximum

ProgressBar1.Value = ProgressBar1.Value + 1 'On l'augmente de 1
End If

 

[ExLiNK]

Super ! Faut juste trouvé un moyen pour pas que ça le mette environs 2o ooo fois d'affilé ^^'​

 

[Misuki]

Normalement ça devrait pas

 

[ExLiNK]

Le code ressemble à ça :


Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If ProgressBar1.Value = ProgressBar1.Maximum Then 'Si la progressbar est au max
If MessageBox.Show("Ferme le logiciel ?", "Question", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then 'On demande a fermer le logiciel ou non
Environment.Exit(0) 'Si oui on le ferme
End If
ProgressBar1.Value = 0
Timer1.Stop()
Timer1.Enabled = False
TextBox1.Enabled = True
TextBox2.Enabled = True
TextBox3.Enabled = True
TextBox4.Enabled = True
ListBox1.Enabled = True
Button1.Enabled = True
RadioButton1.Enabled = True
RadioButton2.Enabled = True
RadioButton3.Enabled = True
RadioButton4.Enabled = True

Else ' Si la progressbar n'est pas au maximum

ProgressBar1.Value = ProgressBar1.Value + 1 'On l'augmente de 1
End If

End Sub

-------- Partie logiciel

Timer1.Enabled = True
Timer1.Start()
Timer1.Interval = 99 ' = 1min
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox3.Enabled = False
TextBox4.Enabled = False
ListBox1.Enabled = False
Button1.Enabled = False
RadioButton1.Enabled = False
RadioButton2.Enabled = False
RadioButton3.Enabled = False
RadioButton4.Enabled = False​

---------- Message ajouté à 15h45 ---------- Le message précédent était à 15h29 ----------

Résolu grâce à @Misuki et à @Astropilot !

Merci de bien vouloir lock ! ​