Examples: GetComponentViewPreference method

This example prompts the user for a view preference ID and then returns the value of that view preference ID for the current composite application component.

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