Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Userform. Смена надписей во время выполнения кода.
 
#1
21.02.2016 14:52:59
Здравствуйте!
Столкнулся с такой проблемой - нужно, что бы во время выполнения кода листбокс отображал стадию процесса.
Ни как не получается.
вот такой простенький код
Код
Private Sub CommandButton1_Click()
Dim i, t
t = Timer
Me.Label1 = "Цикл 1"
For i = 1 To 200000000
Next
Debug.Print Timer - t
Me.Label1 = "Цикл 2"
For i = 1 To 200000000
Next
Me.Label1 = "Цикл 3"
For i = 1 To 200000000
Next
Debug.Print Timer - t
End Sub


зы. у меня код выполняется около 10 с, специально для надписей.
 
 
 
#2
21.02.2016 14:59:48
?
Код
Private Sub CommandButton1_Click()
Dim i, t
t = Timer
Me.Label1 = "Цикл 1"
Me.Repaint
For i = 1 To 200000000
Next
'Debug.Print Timer - t
Me.Label1 = "Цикл 2"
Me.Repaint
For i = 1 To 200000000
Next
Me.Label1 = "Цикл 3"
Me.Repaint
For i = 1 To 200000000
Next
'Debug.Print Timer - t
Unload Me
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
21.02.2016 15:03:11
Sanja, ни чего не меняет. Тем более это пример, походу там много чего вместо дебага выполняется.
Или это может только на моем компе только "Цикл 3" в конце показывает?
Упсс... не заметил добавки..
Спасибо!, в примере работает. Проверю в рабочем файле.
Изменено: Михаил С. - 21.02.2016 15:07:28
 
 
 
#4
21.02.2016 15:03:42
Код
Me.Label1.Caption = "Цикл 1"
DoEvents
For i = 1 To 200000000
 
 
 
#5
21.02.2016 15:04:43
doevents тоже поможет.
А вот что лучше - сразу не скажу,
 
 
 
#6
21.02.2016 15:07:23
Цитата
Апострофф написал: А вот что лучше - сразу не скажу
Лучше DoEvents, т.к. в этом случае перерисовка экрана точно произойдет, а вот Repaint просто кинет в очередь и будет ждать, пока ОС "перерисует".
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#7
21.02.2016 15:08:44
Спасибо всем, попробую и то и то.
 
 
 
#8
21.02.2016 15:08:52
Цитата
The_Prist написал: Лучше DoEvents, т.к....
Спасибо, буду знать
Согласие есть продукт при полном непротивлении сторон
 
 
 
#9
21.02.2016 15:36:11
Да, DoEvents работает надежнее.
 
 
 
#10
21.02.2016 15:44:17
А что, есть проблемы применить Me.Repaint:DoEvents? :)
 
 
 
#11
21.02.2016 15:57:11
Сразу обе? А зачем?
 
 
 
#12
21.02.2016 16:15:58
DoEvents будет толкачём для Repaint )
 
 
 
#13
21.02.2016 16:29:36
Ну зачем-то ведь придумали Repaint :)
 
 
 
#14
21.02.2016 16:50:19
DoEvents тоже нужно на место воткнуть.
Года 3 назад сделал прогрессбар.
Дома в 2007 все работает, на работе в 2010 - через раз.  :cry:
Передвинул DoEvents на строчку (или две) - стало везде работать.  :)
 
 
 
Страницы: 1
Наверх