![]() |
快捷方法,创建并运行一个对话框窗口,返回结果
win.OpenModalDialog url[,Width, Height ,arg]
此方法是为了使用方便而设立,是一组简单方法的组合,其实现完全等同于下面的程序:
Set ht = CreateObject("NetBox.HtmlWindow") ht.ResizeTo width, height ht.ResizAble = false ht.Center ht.ScrollBar = false ht.Open url result = ht.showDialog
此方法并不影响对象本身,运行过程中显示的窗口为在方法内部独立创建,并自动释放。所以可以在 htmlWindow 内直接使用 external.OpenModalDialog 来显示对话框。
下面的程序创建一个 htmlWindow 对象,并显示一个对话框:
Set ht = CreateObject("NetBox.HtmlWindow") r = ht.OpenModalDialog("netbox:/test.html", 300, 200)
在 HtmlWindow 内部的脚本则可以直接使用 external 来显示对话框:
r = external.OpenModalDialog("netbox:/test1.html", 300, 200)