Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Выход из цикла не получается  (Прочитано 10637 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Сергей2012
Новенький

ru
Offline Offline

« : 24-12-2012 11:54 » 

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





Записан
Sla
Команда клуба

ua
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 24-12-2012 13:33 » 

x разве глобальная переменная?
Записан

Мы все учились понемногу... Чему-нибудь и как-нибудь.
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines