作成者	カテゴリ	返答の対象		公開
NANA 08/06/2010 01:03 PM		文書フォームをダブルクリックで編集モードにさせない方法

そのものズバリを書くのはあまり好きではないのですが・・・
以下の様に記述すればご希望の形になるかと。
お試しください。


'フォームの(Globals)Document内Declarationsに以下1行記述
Dim allowEdit As Integer

===========================
'フォームのQuerymodechangeに以下を記述
Sub Querymodechange(Source As Notesuidocument, Continue As Integer)
Dim allowEdit As Integer
If allowEdit Or (source.EditMode And Not allowEdit) Then allowEdit = False
Else
Messagebox "編集ボタンを使ってね"
continue = False
End If
End Sub


===========================
'編集ボタンに以下を記述
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
allowEdit = True
uidoc.EditMode = True
End Sub