IBM Lotus Symphony
|
Na janela do Lotus® Symphony™ BASIC para uma caixa de diálogo criada pelo utilizador, saia do editor de caixas de diálogo, fazendo clique no separador do nome do Módulo ao qual a caixa de diálogo está atribuída. O separador do nome está ao fundo da janela.
Introduza o seguinte código para uma sub-rotina, denominado Dialog1Show. Neste exemplo, o nome da caixa de diálogo que criou é "Dialog1":
Sub Dialog1Show
BasicLibraries.LoadLibrary("Tools")
oDialog1 = LoadDialog("Standard", "Dialog1")
oDialog1.Execute()
End Sub
Sem utilizar "LoadDialog" pode invocar o código da seguinte forma:
Sub Dialog1Show
DialogLibraries.LoadLibrary( "Standard" )
oDialog1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
oDialog1.Execute()
End Sub
Quando este código é executado, "Dialog1" é aberta. Para fechar a caixa de diálogo, faça clique no botão para fechar (x), na respectiva barra de título.