主题：防止复制粘贴

测试生产安排_KeyPressEdit

 

If vars("粘贴") Then

    e.cancel = True

End If

 

测试生产安排_KeyDownEdit

 

If e.Control = True AndAlso e.KeyCode = Keys.V AndAlso e.Table.cols(e.Table.colsel).name = "图纸编号" Then

    e.cancel = True

    vars("粘贴") = True

Else

    vars("粘贴") = False

End If

测试生产安排_KeyDown

 

If e.Control = True AndAlso e.KeyCode = Keys.V AndAlso e.Table.cols(e.Table.colsel).name = "图纸编号" Then

    e.cancel = True

    vars("粘贴") = True

Else

    vars("粘贴") = False

End If

 

测试结果, 不能直接输入没问题, 禁止键盘复制粘贴也没问题, 但若通过鼠标右键粘贴还是可以粘贴的. 请问老师有更好的办法吗? 

另建议列属性"允许直接输入"包含防止粘贴, 要不这属性不全面, 而这种防止粘贴常常要用的.

先谢谢!

回复为盼!

您好! 

谢谢回复. 用禁止使用粘贴菜单可以具体到指定某一列吗? 如果可以, 代码怎样写?

您好!

用这个方法只可以禁止系统菜单, 因为我不用系统菜单, 所以发布后也不会出现系统菜单.

但点击单元格且单元格获得焦点后按下鼠标右键仍会出现菜单(如附件), 好像是Window发生的,  禁止不了粘贴, 请问这个有办法解决吗?

您好!

我也觉得奇怪, 但实际情况就这样, 麻烦你再看一下附件, 不管发布还是不发布, 只要单击单元格并让单元格获得焦点, 后按下鼠标右键就是出现附件菜单, 你可以试下. 

(注意: 不是直接按鼠标右键,  先单击单元格并让单元格获得焦点, 后按下鼠标右键)

您好!

我这边不是啊, 即使设定列属性不允许直接输入, 依然可以通过那个菜单进行复制, 剪切, 粘贴. 删除. 不知什么原因?

老师,

您好!

请查收附件. 在单元格获得鼠标点后, 右键打开非Foxtable系统菜单并能进行编辑, 问题确实存在的, 我觉得这是Foxtable一个漏洞, 最好能修正一下.

谢谢你!

您好!

请问防止鼠标右键粘贴这个问题有没有新的进展? 这个问题挺烦人的, 因为很多人喜欢用鼠标右键粘贴, 即单元格设置的禁止直接输入不起作用了. 

老师,

您好!

如何是用Droptree设置的下拉树, 代码应该怎么改啊?