このボタンをクリックすると、現在の構成要素が Java ベースのビューまたはアウトラインであるかどうかを示すメッセージボックスが表示されます。
Sub Click(Source As Button)
Dim uiws As New NotesUIWorkspace
If (uiws.IsInCompositeApp) Then
If (uiws.IsUsingJavaElement) Then
Msgbox "This is a Java-based component"
Else
Msgbox "This is not a Java-based component"
End If
Else
Msgbox "This is not a component in a composite application"
End If
End Sub