例: GetComponentViewPreference method

次の例では、ユーザーに対しビューのプリファレンス ID を入力するよう要求し、現在の複合アプリケーションの構成要素のビューのプリファレンス ID 値を返します。

Dim ws As New NotesUIWorkspace
Dim prefid As Variant
prefid = ws.Prompt (PROMPT_OKCANCELEDIT, "PrefID?", "Enter PreferenceID.")
If Not Isempty (prefid) Then
    Messagebox CStr(ws.GetComponentViewPreference(prefid))
End If