Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Как показать картинку после нажатия кнопки в HTA (VBScript)? / 4 сообщений из 4, страница 1 из 1
02.04.2008, 18:57
    #35231070
pazdak
pazdak
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как показать картинку после нажатия кнопки в HTA (VBScript)?
Подскажите, как сделать прогрес бар (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
| Ответить | Цитировать | Написать  
03.04.2008, 11:24
    #35232158
bazile
bazile
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как показать картинку после нажатия кнопки в HTA (VBScript)?
Пока на странице работает скрипт экран не будет перерисовываться. Выход в отложенном запуске скрипта с помощью таймера. Код будет выглядеть примерно так:

Код: 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
| Ответить | Цитировать | Написать  
09.04.2008, 16:28
    #35245987
pazdak
pazdak
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как показать картинку после нажатия кнопки в HTA (VBScript)?
bazile
К сожалению все равно не работает как надо...
Картинка появляется, но пока идет сама процедура выгрузки, картинка как бы статичная, т.е. нет движения
Видимо это ограничения отрисовки объектов в HTML
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.04.2008, 16:39
    #35246021
bazile
bazile
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как показать картинку после нажатия кнопки в HTA (VBScript)?
У тебя анимированный gif? Анимация не будет работать по то же причине, по которой картинка первоначально не отображалась - пока работает скрипк экран не будет обновляться. Разбей свою работу на части и выполняй ее с помощью setTimeout().
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Как показать картинку после нажатия кнопки в HTA (VBScript)? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 436ms
Закрыть
start [/forum/topic.php?fid=22&mobile=1&tid=1456630]:
 0ms
get settings:
 5ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 182ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 21ms
get tp. blocked users:
 1ms
others: 202ms
total:  436ms
x
x
Закрыть


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