Выход Из Цикла

Тема в разделе "Visual Basic", создана пользователем -, 24 дек 2012.

  1. Гость

    Ищу добрую душу, для помощи.
    Пытаюсь делать одну прикладную прогу, но не получается. Вот кусочек, который желательно переделать. Нужно, чтобы счётчик, запускался и останавливался не при отпускания клавиши мышки, а при нажатии
    Сюда на форму добавляются две кнопки и текстовое окно.

    Dim x As Long
    Private Sub Command1_Click()
    x = 0
    Do While x = 0 ' Если X = 0 то цикл повторятся
    DoEvents ' Это чтоб цикл не зациклился, если ее не напишешь то комп будет виснуть
    Text1.Text = Text1.Text + 1 ' Каждый раз когда цикл будет повторяться текст в текстовом поле будет на 1 увеличиваться
    Loop
    End Sub

    Private Sub Command2_Click()
    x = 1 ' При нажатии на кнопку цикл останавливается
    End Sub

    Private Sub Form_Load()
    x = 0
    Text1.Text = 0
    End Sub
     
Загрузка...

Поделиться этой страницей