IBM Lotus Symphony


使用程序代码打开对话框

在所创建对话框的 Lotus® Symphony™ BASIC 窗口中,通过单击指定了该对话框的模块的名称选项卡即可离开对话框编辑器。名称选项卡位于窗口底部。

输入以下代码,生成名为 Dialog1Show 的子例程。在本例中,创建的对话框名为“Dialog1”:

Sub Dialog1Show

BasicLibraries.LoadLibrary("Tools")

oDialog1 = LoadDialog("Standard", "Dialog1")

oDialog1.Execute()

End Sub

如果不使用“LoadDialog”,可以通过以下方法调用代码:

Sub Dialog1Show

DialogLibraries.LoadLibrary( "Standard" )

oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )

oDialog1.Execute()

End Sub

当执行此代码时,将打开“Dialog1”对话框。要关闭该对话框,请单击标题栏上的关闭按钮(x)。


产品反馈 | 其他文档 | 商标