Sub Regiondoubleclick(Source As Notesuiview)
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Set db = s.CurrentDatabase
 If db.CurrentAccessLevel >= ACLLEVEL_DESIGNER Then
   Messagebox Source.ViewAlias, , "Alias name of this view"
 End If
End Sub

関連項目

RegionDoubleClick イベント

用語集