.hta 嵌入到 Iframe 中
.hta embedded in Iframe
我有一个 .hta 程序,它有 3 个 Iframe,其中 2 个我想嵌入其他 .hta 程序,一个包含一个 excel sheet(虽然可以)。
当我 运行 我的程序时我没有收到任何错误,但是我想将 hta 程序放入的 2 个 iframe 保持空白。
越快获得建议或答案越好,谢谢。
顺便说一句,我正在使用 VBScript
<head>
<title>Test</title>
<HTA:APPLICATION
onload="Window_onload"
APPLICATIONNAME="FileGen"
SCROLL="no"
SINGLEINSTANCE="no"
MaximizeButton="no"
Border="thin"
version="1.0"
caption="yes"
>
</head>
<style type="text/css">
body
{
font-family: Arial; font-size: 8pt; background-color:#8A8A8A;
margin:0;
}
input{ font-family: Arial; font-size: 8pt; background-color:#E6E6E6; }
</style>
<script LANGUAGE="VBScript">
'==========================================================
sub Window_onload
'======================================================
window.resizeTo 900,215
window.moveTo 0,0
'Declares FSO
set FSO = CreateObject("Scripting.FileSystemObject")
'Gets full path of folder
FullPath = FSO.GetAbsolutePathName(folderName)
TFG = FullPath & "\Background\FileGen.html"
document.getElementById("frame1").srcdoc= CStr(TFG)
TGC = FullPath & "\Background\Graph_Control.html"
document.getElementById("frame2").srcdoc= CStr(TGC)
TDA = FullPath & "\Background\Data.xls"
document.getElementById("frame3").src= CStr(TDA)
End sub
</script>
<Body>
<div >
<iframe srcdoc="" id=frame1 width=150 height=190 frameborder=1 scrolling=no frameborder=0 ></iframe>
<iframe srcdoc="" id=frame2 width=150 height=190 frameborder=1 scrolling=no frameborder=0 ></iframe>
<iframe srcdoc="" id=frame3 width=510 frameborder=1 scrolling=yes frameborder=0 ></iframe>
</div>
</Body>
已将 hta 转换为 html 并设置为 iframe 的 src
我有一个 .hta 程序,它有 3 个 Iframe,其中 2 个我想嵌入其他 .hta 程序,一个包含一个 excel sheet(虽然可以)。 当我 运行 我的程序时我没有收到任何错误,但是我想将 hta 程序放入的 2 个 iframe 保持空白。
越快获得建议或答案越好,谢谢。 顺便说一句,我正在使用 VBScript
<head>
<title>Test</title>
<HTA:APPLICATION
onload="Window_onload"
APPLICATIONNAME="FileGen"
SCROLL="no"
SINGLEINSTANCE="no"
MaximizeButton="no"
Border="thin"
version="1.0"
caption="yes"
>
</head>
<style type="text/css">
body
{
font-family: Arial; font-size: 8pt; background-color:#8A8A8A;
margin:0;
}
input{ font-family: Arial; font-size: 8pt; background-color:#E6E6E6; }
</style>
<script LANGUAGE="VBScript">
'==========================================================
sub Window_onload
'======================================================
window.resizeTo 900,215
window.moveTo 0,0
'Declares FSO
set FSO = CreateObject("Scripting.FileSystemObject")
'Gets full path of folder
FullPath = FSO.GetAbsolutePathName(folderName)
TFG = FullPath & "\Background\FileGen.html"
document.getElementById("frame1").srcdoc= CStr(TFG)
TGC = FullPath & "\Background\Graph_Control.html"
document.getElementById("frame2").srcdoc= CStr(TGC)
TDA = FullPath & "\Background\Data.xls"
document.getElementById("frame3").src= CStr(TDA)
End sub
</script>
<Body>
<div >
<iframe srcdoc="" id=frame1 width=150 height=190 frameborder=1 scrolling=no frameborder=0 ></iframe>
<iframe srcdoc="" id=frame2 width=150 height=190 frameborder=1 scrolling=no frameborder=0 ></iframe>
<iframe srcdoc="" id=frame3 width=510 frameborder=1 scrolling=yes frameborder=0 ></iframe>
</div>
</Body>
已将 hta 转换为 html 并设置为 iframe 的 src