| Вопрос: Когда стартует программа | Добавлено: 13.06.07 16:46 |
Автор вопроса:  KreAtoR
|
|
Когда у меня стартует программа, то в Form_Load у меня загружается 4 WMEncoder а это процесс долгий. Сама форма появляется только когда Form_Load загружается до конца.
В это время, а это порядка 30-40 секунд, я хотел вывести на экран меленькую форму с надписью Loading... которая в свое время будет показывать, что программа не зависла тем, что точечки будут появляться и исчезать. Если вывести я ее могу, то вот маргать ну никак не могу заставить. Маргать она начинает, только когда Form_Load полностью загрузился, когда уже поздно. Подскажите как это можно сделать? P.S. я использовал в основном Таймер |
| Ответы | Всего ответов: 25 |
|
Номер ответа: 1 Автор ответа:  Docal ICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #1 | Добавлено: 13.06.07 17:05 |
| Doevents перед кодом | ||
|
Номер ответа: 2 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #2 | Добавлено: 13.06.07 17:29 |
| Грузи через цыкл например do while ... | ||
|
Номер ответа: 3 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #3 | Добавлено: 13.06.07 18:45 |
| Doevents пытался, а через цикл ща попробую | ||
|
Номер ответа: 4 Автор ответа: KreAtoRВопросов: 120 Ответов: 438 |
Профиль | | #4 | Добавлено: 13.06.07 18:51 |
|
ага попробовал. он у меня в цикле видит пока переменная тру не станет!!! а она становится тру тока в самом конце
|
||
|
Номер ответа: 5 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #5 | Добавлено: 13.06.07 19:03 |
| А перед цыклом бахай doevents.Можеш и вкаждую процедуру класть | ||
|
Номер ответа: 6 Автор ответа: Silver FerrumICQ: 422640045 Вопросов: 12 Ответов: 144 |
Профиль | | #6 | Добавлено: 13.06.07 19:17 |
|
сделай через модуле и ф-ию MAIN
Private sub Main() Load frmLoad frmLoad.show ... тут загружай енкодеры ... Unload frmLoad Load frmMain frmMain.show End Sub |
||
|
Номер ответа: 7 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #7 | Добавлено: 13.06.07 19:18 |
|
begin 644 KREATOR.rar
hIa3m6Fc5+AyEQk++1E++++++++1S+5EUU12+XE6++B64+++0cSwg2veNnHMR hBF2+6++++2hGFI3IHp7QFaxmPH2iNb7hdlVJvV2xNwbANihW6-oss7GmU8ij hNi1jNb80Ib7iFlbfjSEaDT+pzCiiXepAppL9pfAvHYCDHF6UxW0Dgpli3+ox hvo2UnWok5bAOBFAuf7SFsrYH4Xkzd45xqW-Zerxy0LW3KykdM5WIKP8PEy3K h-lcLnrWuMsA48Z1swlnTW3rpEckIW9bNCseOQ8Ud2ajJl-A1N0+XmZRarpEg hHquPfGyu7SKpIUzQQKLNsvuHS9pD1+2F1BvRuexHh1K8CcOb3nwxm3bIPzY6 h5VyvI9I5ydhNg++Ymg2QlIGcY1IzpT4Rk8xwObC7Q8hMJ3FhUfpCL+XK8Bdk hy+SUWZNnZIvJJ+n34VeFOQhnkDCz0+klLv3G7CXW+5mJTiwWjyVh66ngnfyk h4lyE2BvUC6g-sZEi0DngBIOf6mpmAM24EQBMf-+xZe1L5EPUK17hZtOBCY-b h3AN1R6wLLWtoNqAr4HAYfIiClclwIRwB8yBbgZwKQkv2zxKaemD7LrJHRgjE hVyPg4TdNthM9zOIlsKvrr5sTkkRA+EkdTu0KVJ6bbInoJZpNylqD-ohDKPz8 h0znLQ8IvvZYv8xKsdOpFn3sbZvvClfCqQveGX6VYugrzrtDwtYcTM9jmbbK4 hHdN-KpD7kBRrEYlIhks2D8n1msdNgs7sj2AK55kFwmfHdzHZFB6vuvHD232r hbmBpuFNwQF-92tFDLNvQMHTWaSbSmur4JKbbTBLFdJqapKvkB3YmM7nWmX5M hgci4AQU0pfK2dNxrGKR+6IrYwNKGM83Mkxv2jk86ehDBSy7c+J1Kd04R682Q hf2nV2OHG9CjP1m4S5meFzu9aNnDSYLJabWQi25etvXrwIQ7xrHTY+9y6NzOd hzxF1FbEUU1E+y+2++C60+++0mUIGoviNnHMRBFE+6++++2hGFI3IHp7QI57j hOaJXR12iRa7k1VoEmB1x6-ZyxGjUwLHsqp62k7zbZIT+UEhWLG2J7NpGgjkQ h6ncRE4657ouwfvjIcGGY4sq2gtLkYEhnBBpvjtbXnnRnJfPKPafyl9xbVSLn hY2jUqWxjgP592iXocaziITu0T388BvZrknz9o-l3EKZU7+rPVAzu5TKfbvge hdUgwJBDDpwvwCBdnjRniyQl-F98o19Fyv-GX9rLvCzK4BN-l-7+CAiHaXl2w hFToiLvi0shqedLfM42Z+8Loa4mr7KZHla5MjBALGq4bKbT4kmtWN8MJZBlbv hShcj98BhB8L1EAqqNmXL+lqZ1empixRhqi-GTncdbX-opVH4xhrbG-Z7fYLv h8U9gt+nmkoASYgL6XdlVW3EAYcoQRFCyMcN8FFwrhdA9Is3R0Eygu6FMVuFJ hhsUy7HwkdJp1lkFvc01LgUaDiyWY+r14x86gdIiXPjxhb4RAb7HIXQ-JNZkJ hw4Vp1yXgd1HYZ3WUzLzBhVqIpm5gcBQFwuxl6jTLK4MnE0waVOBTUL-wO5AM hq6M+aBXw27jXpwxNaRLCTwpLFw7TV5tRK4sQUuJ2xJhMQrJ5pXZFH3dPmJOE hUde+edNcG0FAf-nU8BL5ZpQy+uHKmxCmnhMUvQNiR2yTfan66C9xwHhX984C hMB7nvClK6zWgUDzObHOYTSzW+C7o66+o+16++++m+++++U9jKHyvaQoq5H+I h+0++++-9IYJ-J2xGL3-mPqdZMrEl9bNWRoNjQaol61oUB1Eg61Is90+sAnIg h61MsAmkUEmkUAX6g616t90+sAHAg61MpB0kUEko8LL-os6+b++++++++++++ T+U++++0qaQoq31+5+-++++-9IYJ-J2xGl1pv+2+5++++ + end sum -r/size 17438/1426 А вот и примерчик небольшой |
||
|
Номер ответа: 8 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #8 | Добавлено: 13.06.07 19:21 |
|
Load frmLoad
frmLoad.show ... тут загружай енкодеры ... Unload frmLoad Load frmMain frmMain.show Господи ето шо за бред |
||
|
Номер ответа: 9 Автор ответа: Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #9 | Добавлено: 13.06.07 20:14 |
|
А что программа могёт что-то делать пока не получит ответ, что энкодер твой загрузился???
Она же будет висеть эти самые 30 сек а только потом пойдет выполнение дальше... Что, не так? |
||
|
Номер ответа: 10 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | | #10 | Добавлено: 13.06.07 21:57 |
|
последовательность событий при запуске VB-формы
1 - Initialize 2 - Load 3 - Resize 4 - Activate 5 - Paint Это не поможет? |
||
|
Номер ответа: 11 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #11 | Добавлено: 13.06.07 21:59 |
| Ты видел мой пример? | ||
|
Номер ответа: 12 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #12 | Добавлено: 13.06.07 22:11 |
|
Docal, мог бы уж и кодом выложить ))
Блин, ну не понимаю я! в твоем примере никакие программы не загружаются. DoEvents
Form1.Show Shell "Calc" loader допустим делаем в твоем примере так и прога подвисает, пока калькулятор не запустится. И вообще как можно отследить загрузилась прога или еще нет? |
||
|
Номер ответа: 13 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #13 | Добавлено: 13.06.07 22:12 |
|
Пост номер 11 относитса к посту 8
а етот к 11: Боцман а ты поставь Функцыю например в Paint (последнею) и постав на форме лейбел и поймеш в чем дело. KREATOR ну че пробывал пост 7? А ти ICQ имеиш? |
||
|
Номер ответа: 14 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #14 | Добавлено: 13.06.07 22:15 |
| Я просто пример показывал.Сейчас намучу чето для откривания архивов.WAIT... | ||
|
Номер ответа: 15 Автор ответа: DocalICQ: 408802757 Вопросов: 14 Ответов: 126 |
Web-сайт: Профиль | | #15 | Добавлено: 13.06.07 22:33 |
| KREATOR покажы что ты там уже на клепал а я только до делаю.Бо чето я не дуплю че ты хочеш зделать.Что просто запустить 4 WMEncoder почти одновремено?Или как? | ||