Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vba и UserForm / 4 сообщений из 4, страница 1 из 1
16.02.2006, 11:00:38
    #33548351
alien123
alien123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba и UserForm
Написал процедуру и хочу чтобы во время ее выполнения на форме отображалось что процедура делает в данный момент. После открытия формы процедура ждет пока форма незакроется.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.02.2006, 11:24:38
    #33548450
TIKO
TIKO
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba и UserForm
Если есть возможность присоеденить к проэкту ProgressBar
если об этом идет речь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.02.2006, 11:34:34
    #33548486
alien123
alien123
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba и UserForm
Наличие прогресс бара не так важно
может не совсем понятно написал

ситуация такая
есть форма, на ней лэйблы, прогресбары и тд

и есть процедура в которой допустим перебираем записи в какой-нибудь таблице (несуть)

form.show

while not rs.eof
form.label1.caption=rs.fields("col")
rs.movenext
wend

form.hide

так вот после выполнения form.show процедура останавливается и пока я незакрою форму ждет.
а я хочу чтобы открылась форма показала что просходит и в конце закрылась
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.02.2006, 11:45:56
    #33548520
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vba и UserForm
Ну правильно, формы в VBA по-умолчанию открываются в модальном режиме в отличие от VB. Вот она соответственно и ждет пока ты ее закроешь, чтобы затем продолжить выполнение последующего кода.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub X()
    Dim lngI As Long

    UserForm1.Show vbModeless
    
    For lngI =  1  To  50000 
        DoEvents
        UserForm1.Label1.Caption = CStr(lngI)
    Next lngI
    
    UserForm1.Hide
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / vba и UserForm / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 467ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166365]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 169ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 233ms
total:  467ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]