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后,就弹出禁止信息。
好了,大家快去试一下吧,如果大家觉得我写的还行,那就给我一键三连吧,谢谢大家了!