IBM Lotus Symphony
|
W oknie BASIC programu Lotus® Symphony™ z utworzonym oknem dialogowym należy zamknąć edytor okien dialogowych, klikając kartę nazwy modułu, do którego okno dialogowe zostało przypisane. Karta nazwy znajduje się w dolnej części okna.
Należy wprowadzić poniższy kod dla procedury podrzędnej o nazwie PokazOkno1. W tym przykładzie nazwa utworzonego okna dialogowego to "Dialog1":
Sub PokazOkno1
BasicLibraries.LoadLibrary("Tools")
oOkno1 = LoadDialog("Standard", "Dialog1")
oOkno1.Execute()
End Sub
Powyższy kod można wywołać bez użycia funkcji "LoadDialog" w następujący sposób:
Sub PokazOkno1
DialogLibraries.LoadLibrary( "Standard" )
oOkno1 = CreateUnoDialog( DialogLibraries.Standard.Dialog1 )
oOkno1.Execute()
End Sub
Wykonanie tego kodu spowoduje otwarcie okna dialogowego "Dialog1". Aby zamknąć to okno dialogowe, należy kliknąć przycisk zamykający (x) na pasku tytułu.