龙空技术网

【vba源码】禁用复制功能Ctrl+C

Access开发 45

前言:

此时看官们对“页面禁止复制代码”大概比较重视,你们都想要了解一些“页面禁止复制代码”的相关资讯。那么小编在网摘上网罗了一些对于“页面禁止复制代码””的相关文章,希望看官们能喜欢,看官们一起来学习一下吧!

hi,大家好呀!

又到了和大家一起来分享Access开发的功能点时间了,最近总感觉时间不够用,感觉要做的事情有很多,但总是被乱七八糟的事情给打扰,好在我们每个人有Passion!最近更新的Access2024的教程都得到了广泛的关注,感觉个位啦!

那今天我们来讲点啥好玩的呢?我们先来看看。

从图片中,我们就可以看到当按下Ctrl+C时,系统给出了判断,提示不能复制数据,那这个禁用复制功能该怎么来做呢?那接下去,我们就来看看操作。

01

手工操作

我们这里讲的禁用复制功能是对数据表窗体的操作,所以,大家在测试时,需要先创建一个数据表窗体。

那我们有了一个数据表窗体后,在设计模式下,找到窗体的属性,将快捷菜单改成:否

这样操作后,我们在选择数据行后,就无法右击操作就无效了。

02

代码操作

接着,我们还需要添加几行代码来禁用键盘操作,具体的代码如下:

Private Sub Form_Load()Me.KeyPreview = TrueEnd Sub'让窗体响应键盘事件Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)If Shift = 2 And Chr(KeyCode) = "C" ThenMsgBox "禁止Ctrl+C复制数据。", vbCriticalEnd IfEnd Sub

03

测试

最后,我们就可以来测试使用了。测试效果就是我文章开头讲的效果,当触发键盘上的Ctrl+C后,就弹出禁止信息。

好了,大家快去试一下吧,如果大家觉得我写的还行,那就给我一键三连吧,谢谢大家了!

标签: #页面禁止复制代码