| Предыдущая тема :: Следующая тема |
| Автор |
Сообщение |
Андрей ИВ
Зарегистрирован: 27.02.2006
Сообщения: 1
|
 Добавлено: Пн 27 Фев 2006 10:52 Заголовок сообщения: Вывод в HTML |
 |
|
Миша и Рустам
У меня следующая ситуация.
Во время работы цикла результаты выводятся в окно HTML.
Но, просмотр результатов возможен только после отработки цикла.
Можно ли сделать так, чтобы просмотр результатов был возможен во время работы цикла? |
|
| Вернуться к началу |
|
 |
Кузнецов Андрей
Зарегистрирован: 22.04.2005
Сообщения: 28
Откуда: Магнитогорск
|
| Добавлено: Чт 02 Мар 2006 12:16 Заголовок сообщения: |
|
|
Я делал вот такую штуку, может поможет: | Код: | Dim Form
Dim LayerID, TableName, FieldName, IsProgress
Sub DoIt(DB)
Dim MOS, MOQ, MO, Cnt, i, j
Set MOS = DB.MapObjects
Set MOQ = MOS.QueryByLayers(LayerID)
i = MsgBox("Начать запись в слое " & DB.LayerFromID(LayerID).Name, 1, "Сем дата")
if i = 2 then Exit Sub
Cnt = 0
Do While Not MOQ.EOF
Set MO = MOS.GetObject(MOQ.ObjectID)
MO.SemData.SetValue TableName, FieldName, MOQ.ObjectID
MOQ.MoveNext
Cnt = Cnt + 1
Form.Browser.Document.all.P1.value = Cnt
Application.ProcessMessages
if not IsProgress then
MsgBox "Прервано пользователем"
Exit Sub
end if
Loop
MOS.UpdateChanges
Set MOQ = Nothing
Set MOS = Nothing
MsgBox "Ok"
End Sub
sub OnButtonStopClick
IsProgress = False
End Sub
sub OnButtonClick
Dim DB
if IsProgress then Exit Sub
if not IsObject(Application.ActiveDB) then
MsgBox "База данных не открыта"
else
Set DB = Application.ActiveDB
LayerID = Form.Browser.Document.all.t1.value
TableName = Form.Browser.Document.all.t2.value
FieldName = Form.Browser.Document.all.t3.value
IsProgress = True
DoIt(DB)
IsProgress = False
end if
end sub
sub OpenForm
if IsObject(Form) then Exit Sub
set Form = Application.OpenHTMLWindow(ContextCard)
with Form.Browser
.Navigate "about:blank"
do while not (.ReadyState = 4 or .ReadyState = 3)
Application.ProcessMessages
loop
end with
set Form.External = Disp
end sub
sub StartAction
OpenForm
Form.Browser.Document.Body.innerHTML = _
"<p>Прогресс: <input type=text name=P1 size=35 value = '0'><br>" &_
"Слой: <input type=text name=T1 size=35 value = " & LayerID & "><br>" &_
"Таблица: <input type=text name=T2 size=31 value = " & TableName & "><br>" &_
"Поле: <input type=text name=T3 size=35 value = " & FieldName & "><br>" &_
"<input type=button value=Начать name=StartButton language=vbscript " &_
"onclick='window.external.OnButtonClick'><br>" &_
"<input type=button value=Закончить name=StopButton language=vbscript " &_
"onclick='window.external.OnButtonStopClick'></p>"
Form.Visible = True
end sub
'Обработка команды Action
sub ActionList_Action()
StartAction
end sub
' Вызывается сразу после запуска программного модуля
sub Module_StartComplete()
Module.LoadActions Script.ContextCard, "ActionList", Application.MainWindow.Actions
Module.LoadMenu Script.ContextCard, "Menu", Application.MainWindow.Menu.Items, "MenusHelp"
LayerID = "000100015B32"
TableName = "InmetaLinkInfoTable"
FieldName = "InmetaLinkInfo"
IsProgress = False
end sub |
|
|
| Вернуться к началу |
|
|
Кузнецов Андрей
Зарегистрирован: 22.04.2005
Сообщения: 28
Откуда: Магнитогорск
|
|
| Вернуться к началу |
|
|
Кузнецов Андрей
Зарегистрирован: 22.04.2005
Сообщения: 28
Откуда: Магнитогорск
|
| Добавлено: Пт 03 Мар 2006 14:38 Заголовок сообщения: |
|
|
У меня еще вопрос есть по выводу в HTML:
можно ли вставить изображение в HTML форму (gif, jpg, bmp)?
Если да, то как? |
|
| Вернуться к началу |
|
|
andreichernov
Зарегистрирован: 14.02.2005
Сообщения: 209
Откуда: Самара
|
| Добавлено: Пт 03 Мар 2006 15:48 Заголовок сообщения: |
|
|
| Кузнецов Андрей писал(а): | У меня еще вопрос есть по выводу в HTML:
можно ли вставить изображение в HTML форму (gif, jpg, bmp)?
Если да, то как? |
Угу, через ссылку (предварительно разместив в общей папке на диске)
"<img src='drive:\path\name.jpg'>" |
|
| Вернуться к началу |
|
|
|
FAQ
Поиск
Пользователи
Группы
Регистрация
Профиль
Войти и проверить личные сообщения
Вход
