IBM Lotus Symphony
|
В окне BASIC 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) в строке его заголовка.