以下脚本代码与前面示例中的相同资源演示了一个简单分离对话框。如果你想尝试此示例,请创建一个新的工具栏按钮,然后将脚本代码粘贴到命令编辑器的 Script Code 标签页,并将资源 XML 粘贴到 Resources 标签页。
脚本代码 - VBScript
Function OnClick(ByRef clickData)
Set Dlg = DOpus.Dlg
Dlg.window = clickData.func.sourcetab
Dlg.template = "testdlg"
Dlg.detach = True
Dlg.Show
Do
Set Msg = Dlg.GetMsg
If Not Msg.result Then Exit Do
DOpus.Output "Msg Event = " & Msg.event
Loop
DOpus.Output "Return code = " & Dlg.result
End Function
脚本代码 - JScript
function OnClick(clickData) {
var Dlg = DOpus.Dlg;
Dlg.window = clickData.func.sourcetab;
Dlg.template = "testdlg";
Dlg.detach = true;
Dlg.Show();
while (true) {
var Msg = Dlg.GetMsg();
if (!Msg.result) break;
DOpus.Output("Msg Event = " + Msg.event);
}
DOpus.Output("Return code = " + Dlg.result);
}