Office中国论坛/Access中国论坛

标题: 点鼠标左键复制，右键粘贴 [打印本页]

作者: liaohk 时间: 2014-9-12 06:50
标题: 点鼠标左键复制，右键粘贴
有一个难题，如何实现象sap那种点鼠标左键选中自动复制选中内容，在需要粘贴刚复制的内容点右键自动粘贴功能。在平台上任何界面可用[attach]54632[/attach][attach]54632[/attach]

作者: liaohk 时间: 2014-9-12 06:51
#在这里快速回复#鼠标实现右键选中复制点右键粘贴

作者: zpy2 时间: 2014-9-12 06:58
你的意思是选中后就自动复制,右键单击粘贴?

作者: zpy2 时间: 2014-9-12 07:00
用挂钩吧,应可以的。

作者: zpy2 时间: 2014-9-12 07:03
如果在Acc里TextBox好象有Mouseup事件的

作者: liaohk 时间: 2014-9-12 14:43
请高手现身，攻难关

作者: LeeTien 时间: 2014-9-12 21:18
要用右键事件，然后处理事件代码

作者: liaohk 时间: 2014-9-13 08:10
理论上是这样，如何处理，请出示代码或示例

作者: zpy2 时间: 2014-9-14 06:44
代码你先自已试试,有问题再研究!
应不难的!

作者: liaohk 时间: 2014-9-14 09:11

zpy2 发表于 2014-9-14 06:44
代码你先自已试试,有问题再研究!
应不难的!

就是搞不定才到些求助，您能帮搞定吗，应是难题哈。

作者: t小宝 时间: 2014-9-14 19:17
很简单呀，在控件的鼠标按下事件中判断一下左右键就可以了

作者: liaohk 时间: 2014-9-14 20:27
不是那个意思，可能有些没有理解哈。点鼠标左键复制，右键粘贴 [

作者: koutx 时间: 2014-9-14 21:23
执着才能进步啊。

作者: t小宝 时间: 2014-9-14 22:39

liaohk 发表于 2014-9-14 20:27
不是那个意思，可能有些没有理解哈。点鼠标左键复制，右键粘贴 [

我知道你的意思，你要先判断鼠标左右键，然后用SelStart、SelLength选择文本，DoCmd.RunCommand acCmdCopy 和 acCmdPaste命令复制粘贴

作者: zpy2 时间: 2014-9-15 05:16
代码已经出来了,赞!

作者: liaohk 时间: 2014-9-15 06:44

t小宝发表于 2014-9-14 22:39
我知道你的意思，你要先判断鼠标左右键，然后用SelStart、SelLength选择文本，DoCmd.RunCommand acCmdCop ...

你好，能帮写一下这个具体代码吗，我测试过多次也没有成功。感谢你。

作者: liaohk 时间: 2014-9-15 19:08
怎么来判断是鼠标左键还是右键代码。

作者: t小宝 时间: 2014-9-15 22:19

'复制
Private Sub Text2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = acLeftButton And Len(Me.Text2.Text) > 0 Then
      Me.Text2.SelStart = 0
      Me.Text2.SelLength = Len(Me.Text2.Text)
      DoCmd.RunCommand acCmdCopy
End If
End Sub

'粘贴
Private Sub Text4_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = acRightButton Then
      Me.Text4.SelStart = 0
      Me.Text4.SelLength = Len(Me.Text4.Text)
      DoCmd.RunCommand acCmdPaste
End If
End Sub

作者: zpy2 时间: 2014-9-16 05:33
赞!支持!

作者: liaohk 时间: 2014-9-16 06:44

t小宝发表于 2014-9-15 22:19
'复制
Private Sub Text2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
...

老师，谢谢您，明白了，你的意思是只能对应固定文本框，（也就是说要在那个文本框复制就必须写上这个复制代码），想粘贴到那也必须在要粘贴的文本框中加上“粘贴”这代码。也很不错，SAP那种快捷点鼠标左键复制，右键粘贴是在任何界面都可以这样操作）不知我这个想法是不是有些太难了哈。

作者: t小宝 时间: 2014-9-16 16:17
电脑上所有的操作都要代码实现，SAP只是你看不见它的代码而已

作者: liaohk 时间: 2014-9-16 21:06

t小宝发表于 2014-9-16 16:17
电脑上所有的操作都要代码实现，SAP只是你看不见它的代码而已

出错，第一次可以，再动一下就出错
[attach]54639[/attach]

作者: koutx 时间: 2014-9-16 21:15
提示已经讲得很清楚了-----焦点

作者: zpy2 时间: 2014-9-17 05:36
MouseDown 不是Move事件

作者: liaohk 时间: 2014-9-17 07:03

koutx 发表于 2014-9-16 21:15
提示已经讲得很清楚了-----焦点

是啊，那怎么处理啊，不要只回一些无用的东东，还是像T小宝老师好，给出最终需求。

作者: zpy2 时间: 2014-9-18 06:45
晕，用小宝老师的代码直接贴就行了。。

作者: liaohk 时间: 2014-9-18 06:47

zpy2 发表于 2014-9-18 06:45
晕，用小宝老师的代码直接贴就行了。。

是这样，但出现截图问题，我再试一下用MouseDown 测试一下，给大家反馈

作者: t小宝 时间: 2014-9-18 17:12
弹出菜单夺走了焦点，禁用右键菜单或添加错误处理

作者: liaohk 时间: 2014-9-18 19:13

t小宝发表于 2014-9-18 17:12
弹出菜单夺走了焦点，禁用右键菜单或添加错误处理

好的，我试试

作者: liaohk 时间: 2014-9-19 19:09
谢谢"T小宝“老师，谢谢各位朋友大力帮助。搞定了。复制有时在子窗体不录，我就用更新事件来完成了。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)