02.在Lotus視界中的文件若要在Diablog中顯示可用以下範例。

在視界（View）中的Sub Queryopendocument(Source As Notesuiview, Continue As Variant)中使用。
'-------------------------------------------
Dim ws As New NotesUIWorkspace
Dim sess As New NotesSession
Dim db As NotesDatabase '目前資料庫
Dim doc As NotesDocument '選取文件
Dim fdb As NotesDatabase '要開啟視界的資料庫
Dim fview As NotesView '要開啟的視界
Set db = ws.CurrentDatabase.Database
Set doc = db.GetDocumentByID(Source.CaretNoteID)
Set fview=db.GetView("scheduleevent")

Call ws.DialogBox _
( "scheduleevent", True, True, True, True, _
False, False, "scheduleevent")
Continue = False
'------------------------------------
當『視界』是以『嵌入視界』的型態，那麼就要使用以下語法範例才可以將文件開啟在DialogBox中
'------------------------------------------------------------


Call ws.dialogbox("TheForm", True, True, False, True, False, False, "TheTitle", source.documents.getfirstdocument)


若要儲存開啟中的文件可以使用『button』公式如下：

@Command([FileSave])

P.S.: When calling the dialogbox using

Call ws.dialogbox("TheForm", True, True, True, True, False, False, "TheTitle", source.documents.getfirstdocument, False, True)

it displays no "OK" or "Cancel" button.
Then you can make your button to execute

@Command([FileSave]);
@Command([FileCloseWindow])

to save and close the dialogbox.