读书人

在LOTUS NOTE视界里怎么禁止右键编辑

发布时间: 2012-02-11 09:51:35 作者: rapoo

在LOTUS NOTE视界里如何禁止右键编辑?
在LOTUS NOTE视界里如何禁止右键编辑?或者有其它方法?请大家帮忙??谢谢

[解决办法]
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
If Not(source.IsNewDoc)Then
If source.EditMode Then
Msgbox "不能直接进入编辑状态! ",16, "系统提示 "
continue=False
End If
End If
End Sub

把这个代码放到表单的queryopen里就不能用右键进入编辑状态了!

读书人网 >行业软件

热点推荐