Set ie=CreateObject("InternetExplorer.Application")
ie.Visible=False
ie.AddressBar=False
ie.MenuBar=False
ie.StatusBar=False
ie.ToolBar=False
ie.Resizable=true
ie.Left=300
ie.Top=200
ie.Width=300
ie.Height=240
ie.Silent=True
ie.Navigate "about:blank"
ie.Document.Title="VBScript 创建的窗口"
ie.Document.body.bgColor="#ECE9D8"
ie.Document.body.style.overflow="hidden"
ie.Document.body.style.borderWidth="0"
ie.Document.body.innerHtml="<b>VBScript</b>创建的窗口测试!!<br/><br/><br/><br/>" & _
"<p align='center'><input type='button' onclick=” & _
”'vbscript:msgbox(""单击事件测试!"")' value='单击这里关闭'/></p>"
ie.Visible=True

效果如下:



 


本文链接地址: 在脚本中创建窗体
http://qingfengju.com/index.asp?id=145

分类:脚本编程 查看次数:5574 发布时间:2009-8-22 1:21:54