ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Как показать картинку после нажатия кнопки в HTA (VBScript)?
4 сообщений из 4, страница 1 из 1
Как показать картинку после нажатия кнопки в HTA (VBScript)?
    #35231070
pazdak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pazdak
Гость
Подскажите, как сделать прогрес бар (progress bar) после нажатия кнопки, во время выполнения выгрузки данных в Excel

Что имеем:
1) Есть приложение HTA написано с использованием VBScript
2) В этом приложении есть выгрузка массивных данных из SQL в таблицу Excel
3) Все это работает

Что хочется:
1) Во время этой самой выгрузки чтобы в теге < div > отображалась картинка, типа бегунка (сама картинка есть), но она не появляется, пока не закончится выгрузка

Проблема:
1) После нажатия на кнопку "Выгрузить", запускает Function которая осуществляет выгрузку, так вот эта кнопка остается нажатой до конца выгрузки и любое отображение объектов не происходит, пока она не отожмется

Приведу код:
Сама кнопка при запуске формы скрыта (также пробовал display:none, но эфект тот же)
Код: plaintext
<img id="ProgressBar" style="visibility: hidden;" src="progbar.gif">
Функция отображения картинки:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Function ShowProgressBar(mode)
  If LCase(mode) = "show" Then
    'document.getElementById("ProgressBar").style.display = ""
    document.getElementById("ProgressBar").style.visibility = "visible"
  Else
    'document.getElementById("ProgressBar").style.display = "none"
    document.getElementById("ProgressBar").style.visibility = "hidden"
  End If
End Function
Кнопка вызова выгрузки:
Код: plaintext
<INPUT type='button' name='fRunLoad' value='Выбрать' onclick='ChoiseXLSToSQL()'>
Собственно хотел в начале этой функции отобразить картинку:
Код: plaintext
ShowProgressBar("show")
а в конце ее скрыть
Код: plaintext
ShowProgressBar("hide")
Но кнопка после нажатия на нее остается нажатой и видимо никакого обновления объектов не происходит, как это обойти или что сделать чтобы картинка как хочется вовремя отображалась?
...
Рейтинг: 0 / 0
02.04.2008, 18:57
| Ответить | Цитировать | Написать  
Как показать картинку после нажатия кнопки в HTA (VBScript)?
    #35232158
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bazile
Участник
Пока на странице работает скрипт экран не будет перерисовываться. Выход в отложенном запуске скрипта с помощью таймера. Код будет выглядеть примерно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
<INPUT type='button' name='fRunLoad' value='Выбрать' onclick='BeginWork()'>
...
Sub BeginWork
    ShowProgressBar("show")
    Call setTimeout('ChoiseXLSToSQL()',  100 )
End Sub

Sub ChoiseXLSToSQL
    ' Код выгрузки
    ...
    ' Выгрузка завершена, скрываем бегунок
    ShowProgressBar("hide")
End Sub
...
Рейтинг: 0 / 0
03.04.2008, 11:24
| Ответить | Цитировать | Написать  
Как показать картинку после нажатия кнопки в HTA (VBScript)?
    #35245987
pazdak
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pazdak
Гость
bazile
К сожалению все равно не работает как надо...
Картинка появляется, но пока идет сама процедура выгрузки, картинка как бы статичная, т.е. нет движения
Видимо это ограничения отрисовки объектов в HTML
...
Рейтинг: 0 / 0
09.04.2008, 16:28
| Ответить | Цитировать | Написать  
Как показать картинку после нажатия кнопки в HTA (VBScript)?
    #35246021
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bazile
Участник
У тебя анимированный gif? Анимация не будет работать по то же причине, по которой картинка первоначально не отображалась - пока работает скрипк экран не будет обновляться. Разбей свою работу на части и выполняй ее с помощью setTimeout().
...
Рейтинг: 0 / 0
09.04.2008, 16:39
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Как показать картинку после нажатия кнопки в HTA (VBScript)?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=22&fpage=338&tid=1456630]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 46ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 245ms
total:  376ms
созд. / загр.: 376ms
x
x
Закрыть


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