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 |
Partager