Страницы: 1
RSS
Форма Ожидания (или Waiting Form). in VBA
 
Добрый день!  
Можно ли зделать так, чтоб когда выполняется сложный макрос на посередине экрана выходило форма типа как в обычном Windows-е "Подождите......" и по окончанию закрывалось автоматически!  Это полезно было бы, т.к пользователь чуть подождал и ниче не нажимал бы, чтоб Компу не тяжко было.  
Если возможно в форме даже что-то наполнялось или двигалось!  
Согласитесь класно было бы! Спасибо за понимание!  
Заранее благодарен!
With my best regards,      Inter_E
 
Добавьте ProgreesBar.
 
{quote}{login=Dok}{date=03.07.2008 02:54}{thema=}{post}Добавьте ProgreesBar.{/post}{/quote}  
 
Спасибо, Как это делается, я не пользовался. Подробнее можете обьяснить? в Help посмотрел что-то нет! в Insert-e нет....
With my best regards,      Inter_E
 
вот вам пример
 
Спасибо! А как его активизировать, т.е внедрид в код, чтоб работало?
With my best regards,      Inter_E
 
Классные прогрессбары! Пользуйтесь!
 
{quote}{login=Inter_E}{date=03.07.2008 03:20}{thema=}{post}Спасибо! А как его активизировать, т.е внедрид в код, чтоб работало?{/post}{/quote}  
 
перетащить в свой проект, а дальше:  
   progress.bar.min = 0  
   progress.bar.Max = 100  
   progress.bar.Value = 0  
 
 
progress.show(false) для показа  
unload progress по окончании  
progress.value=  ваше значение в процессе работы(от 0 до 100, соответственно, хотя можете задать и свои границы)
 
{quote}{login=dsapa}{date=03.07.2008 03:22}{thema=}{post}Классные прогрессбары! Пользуйтесь!{/post}{/quote}  
 
Да, классно, Спасибо!  
а мой код поставлю, где на английском указано, да?  
 
Sub DemoProgress1()  
'  
' Progress Bar  
'  
   Dim intIndex As Integer  
   Dim sngPercent As Single  
   Dim intMax As Integer  
     
   intMax = 100  
   For intIndex = 1 To intMax  
       sngPercent = intIndex / intMax  
       ProgressStyle1 sngPercent, chkPg1Value.Value  
       DoEvents  
       '------------------------  
       ' Your code would go here  
       '------------------------  
       Sleep 100  
   Next  
 
End Sub  
 
А что такое "Option Explicit" везде написано что-то?
 
взболтать(объявить) перед употреблением(переменных)
 
Да,точно вспомнил! про Explicit  
 
а мой код поставлю, где на английском указано, да?  
 
Sub DemoProgress1()  
'  
' Progress Bar  
'  
Dim intIndex As Integer  
Dim sngPercent As Single  
Dim intMax As Integer  
 
intMax = 100  
For intIndex = 1 To intMax  
sngPercent = intIndex / intMax  
ProgressStyle1 sngPercent, chkPg1Value.Value  
DoEvents  
'------------------------  
' Your code would go here  
'------------------------  
Sleep 100  
Next  
 
End Sub
With my best regards,      Inter_E
 
{quote}{login=}{date=03.07.2008 03:34}{thema=Re: }{post}{quote}{login=Inter_E}{date=03.07.2008 03:20}{thema=}{post}Спасибо! А как его активизировать, т.е внедрид в код, чтоб работало?{/post}{/quote}  
 
перетащить в свой проект, а дальше:  
   progress.bar.min = 0  
   progress.bar.Max = 100  
   progress.bar.Value = 0  
 
Можете сделать маленький примерчик с макросом, чтоб работало ПрогрессБар, я раньше не пользовался и че-то не получается? Я может  спешу, т.к. рабочий день уже кончиться!  
Заранее огромное спасибо!...  
 
 
progress.show(false) для показа  
unload progress по окончании  
progress.value=  ваше значение в процессе работы(от 0 до 100, соответственно, хотя можете задать и свои границы){/post}{/quote}
With my best regards,      Inter_E
 
Можете сделать маленький примерчик с макросом, чтоб работало ПрогрессБар, я раньше не пользовался и че-то не получается?  
Заранее огромное спасибо!...
With my best regards,      Inter_E
 
Че-то у меня не получается!
With my best regards,      Inter_E
 
держи
 
Добрый день! Спасибо! А куда мой код макроса поставить?  
И как progressbar создать рядом с формами, как его поставить?  
Заранее спасибо!
With my best regards,      Inter_E
 
Уважаемый dsapa,  
очень хочу воспользоваться вашим макросом:  
 
Sub DemoProgress1()  
'  
' Progress Bar  
'  
Dim intIndex As Integer  
Dim sngPercent As Single  
Dim intMax As Integer  
 
intMax = 100  
For intIndex = 1 To intMax  
sngPercent = intIndex / intMax  
ProgressStyle1 sngPercent, chkPg1Value.Value  
DoEvents  
'------------------------  
' Your code would go here  
'------------------------  
Sleep 100  
Next  
 
End Sub  
 
но у меня почему-то при его запуске  
пишет ошибка и выделяет желтым: chk  
не подскажите пожалуйста в чем дело?
 

> Можете сделать маленький примерчик с макросом, чтоб работало ПрогрессБар <BR>Такие примерчики уже давно сделаны. Надо лишь немного поискать... <BR>http://www.programmersforum.ru/showpost.php?p=148631&postcount=2 <BR>http://www.programmersforum.ru/showpost.php?p=363995&postcount=5

 
Ещё есть в Копилке ссылка на набор из 8-ми прогрессбаров
Страницы: 1
Читают тему
Наверх
Loading...