Циклы!
Как сделать чтобы при каждом нажатии по командной кнопке срабатывал только один шаг цикла?
Код:
Private Sub запуск_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles запуск.Click
For i = 0 To 99 Step 1
ListBox1.Items.Add(i + 1 & " Тест")
Next
End Sub
For i = 0 To 99 Step 1
ListBox1.Items.Add(i + 1 & " Тест")
Next
End Sub
Код:
Dim iii as Integer
Private Sub запуск_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles запуск.Click
'// For i = 0 To 99 Step 1
ListBox1.Items.Add(iii & " Тест")
iii = iii +1
'// Next
End Sub
Private Sub запуск_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles запуск.Click
'// For i = 0 To 99 Step 1
ListBox1.Items.Add(iii & " Тест")
iii = iii +1
'// Next
End Sub
:-)
Код:
Private Sub запуск_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles запуск.Click
'Это вообще изврат полный писать на циклах с единичным приращением Step
For i = 0 To 99 'Step 1
ListBox1.Items.Add(i + 1 & " Тест")
Exit For
Next
End Sub
'Это вообще изврат полный писать на циклах с единичным приращением Step
For i = 0 To 99 'Step 1
ListBox1.Items.Add(i + 1 & " Тест")
Exit For
Next
End Sub