简单对话框和弹出菜单

简单对话框和弹出菜单

通过 Dialog 对象，脚本可以轻松显示各种类型的对话框和弹出菜单。以下是几个示例。您可以在 CLI 中尝试所有这些，已设置为 脚本模式（类型设置为 VBScript）。

简单对话框和弹出菜单

' 创建 Dialog 对象。您还可以从文件窗口、Tab、Func 和 Command 对象获取对话框对象。
设置 dlg = DOpus.Dlg 
' 初始化对象，以显示带有三个按钮的简单消息。
dlg.window = DOpus.文件窗口s(0)
dlg.message = "简单对话框消息"
dlg.title = "对话框标题"
dlg.buttons = "首选 | 第二选择 | 取消"
' 显示对话框，并将结果输出到脚本日志
ret = dlg.Show
DOpus.Output "Dialog.Show 返回 " & ret

简单对话框和弹出菜单

' 创建 Dialog 对象。
设置 dlg = DOpus.Dlg 
' 初始化对象，以显示一个带三个按钮的消息，其中一个按钮包含多个选项的下拉菜单
' 该对话框还有一个警告图标、一个允许用户输入一行文本的文本字段、
' 以及可以打开或关闭的两个复选框。
dlg.window = DOpus.文件窗口s(0)
dlg.message = "更复杂的对话框消息。" & vbCrLf & "输入一些文本并选择您的选项。"
dlg.title = "复杂对话框标题"
dlg.buttons = "首选 | 第二选择 + 第三选择 + 第四选择 | 取消"
dlg.icon = "warn"
dlg.max = 128 ' 启用文本字段
dlg.options(0).label = "复选框选项 1"
dlg.options(1).label = "复选框选项 2"
' 显示对话框，并将结果输出到脚本日志
ret = dlg.Show
DOpus.Output "Dialog.Show 返回 " & ret
DOpus.Output "您输入的字符串为 " & dlg.input
DOpus.Output "设置的两个复选框分别为 " & dlg.options(0).state &" 和 " & dlg.options(1).state

简单对话框和弹出菜单

' 创建 Dialog 对象。
设置 dlg = DOpus.Dlg 
' 初始化对象，以显示一个下拉控件，使用户能够从很多选项中选取一个
dlg.window = DOpus.文件窗口s(0)
dlg.message = "下拉列表对话框消息"
dlg.title = "下拉对话框标题"
dlg.buttons = "确定 | 取消"
dlg.choices = DOpus.Create.Vector("选项 1", "选项 2", "选项 3", "选项 4")
dlg.selection = 0
' 显示对话框，并将结果输出到脚本日志
ret = dlg.Show
DOpus.Output "Dialog.Show 返回 " & ret
DOpus.Output "选定的选项为 " & dlg.choices(dlg.selection)

简单对话框和弹出菜单

' 创建 Dialog 对象。
设置 dlg = DOpus.Dlg 
' 初始化对象，以显示一个列表项，用户可以打开或关闭这些项
dlg.window = DOpus.文件窗口s(0)
dlg.message = "列表项选择对话框消息"
dlg.title = "列表项选择对话框标题"
dlg.buttons = "确定 | 取消"
dlg.choices = DOpus.Create.Vector("选项 1", "选项 2", "选项 3", "选项 4")
dlg.list = DOpus.Create.Vector(True, False, True, False)
' 显示对话框，并将结果输出到脚本日志
ret = dlg.Show
DOpus.Output "Dialog.Show 返回 " & ret
对于 i = 0 至 dlg.choices.size - 1
DOpus.Output dlg.choices(i) & " 状态为 " & dlg.list(i)
下一步

简单对话框和弹出菜单

' 创建 Dialog 对象。
设置 dlg = DOpus.Dlg 
' 初始化对象，以显示一个弹出菜单，供用户选取
dlg.window = DOpus.文件窗口s(0)
dlg.choices = DOpus.Create.Vector("选项 1", "选项 2", "-", "选项 3", "选项 4")
dlg.menu = DOpus.Create.Vector(2, 0, 0, 2, 0)
' 显示菜单，并将结果输出到脚本日志
ret = dlg.Show
DOpus.Output "Dialog.Show 返回 " & ret