Bonjour,

Quand je fais un boucle Do mon programme reste comme bloquer alors que j'aimerais qu'il montre dans un textBox les incremantation de mes deux variable et un que le boucle Do puisse se stopper quand je click sur un bouton.

Voici mon code :

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
 
Dim Aux As String
Dim Sortir As Boolean = False
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        Dim i, j As Integer
        i = 0
        Do
            j = 0
            Do
                Aux = "Valeur de I " & i & " Valueur de J " & j
                j = j + 1
            Loop Until j = 100000 Or Sortir = True
            i = i + 1
        Loop Until i = 100000 Or Sortir = True
 End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        TextBox1.Text = TextBox1.Text & vbCr & Aux
 
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Sortir = True
    End Sub
D'avance merci