<![CDATA[Серый форум — HTA: передача в модальное окно параметров пользовательской формы]]> https://forum.script-coding.com/viewtopic.php?id=4047 Sun, 06 Jun 2010 06:49:36 +0000 PunBB <![CDATA[Re: HTA: передача в модальное окно параметров пользовательской формы]]> https://forum.script-coding.com/viewtopic.php?pid=36372#p36372 Более продвинутый пример. Запускаем caller.hta

]]> Sun, 06 Jun 2010 06:49:36 +0000 https://forum.script-coding.com/viewtopic.php?pid=36372#p36372 <![CDATA[HTA: передача в модальное окно параметров пользовательской формы]]> https://forum.script-coding.com/viewtopic.php?pid=32026#p32026 Полезный простейший пример динамического формирования дочернего диалогового окна при помощи передачи необходимой информации через аргумент типа Dictionary.

Вызывающий скрипт

<html>
<head>
<title>Caller</title>
<HTA:APPLICATION
  APPLICATIONNAME="Caller"
  ID="Caller"
  VERSION="1.0"/>
</head>

<script language="VBScript">

Sub Window_OnLoad
End Sub

Function Fill_Dict()
    dim objDic
    Set objDic = CreateObject("Scripting.Dictionary")
    objDic.Add "a", "some text string"
    objDic.Add "b", "some other text string"
    objDic.Add "c", "something else"
    Set Fill_Dict = objDic
    set objDic = Nothing
End Function

Sub OnClickButtonbtnCall()
  intReturn = window.ShowModalDialog("modal.hta", Fill_Dict) 
End Sub
</script>
<body>
<input type="button" name="btnCall" id="btnCall" value="Call" onclick="OnClickButtonbtnCall">
</body>
</html>

Дочернее окно (файл modal.hta)

<html>
<head>
<title>My HTML application</title>
<HTA:APPLICATION
  APPLICATIONNAME="My HTML application"
  ID="MyHTMLapplication"
  VERSION="1.0"/>
</head>

<script language="VBScript">
Sub Window_OnLoad
Dim objDict
Set objDict = window.dialogArguments
DataArea.InnerHTML = "<input type=""radio"" name=""rbTest"" value=""Radio 1"">" & objDict.Item("a") & "<BR>" & vbCr & _
         "<input type=""radio"" name=""rbTest"" value=""Radio 2"">" & objDict.Item("b") & "<BR>" & vbCr & _
         "<input type=""radio"" name=""rbTest"" value=""Radio 3"">" & objDict.Item("c") & "<BR>" & vbCr
End Sub
</script>
<body>
<span id=DataArea></span>
</body>
</html>
]]> Tue, 05 Jan 2010 06:48:56 +0000 https://forum.script-coding.com/viewtopic.php?pid=32026#p32026