Office中国论坛/Access中国论坛

标题: 点一下按钮或双击某个字段就可将此字段复制到剪贴板 [打印本页]

作者: jicheng 时间: 2006-6-25 07:30
标题: 点一下按钮或双击某个字段就可将此字段复制到剪贴板
主要是因为经常复制某个字段的数据麻烦，

如果双击某个字段的数据或点一下命令按钮就能将此字段的数据复制到剪贴板，然后在需要的地方点粘贴应可以了，有什么办法能实现吗？这样就方便了

作者: j13583 时间: 2006-6-25 08:23
标题: 办法是有的，使用Autokeys宏
建议改为：使用Autokeys宏将操作设置为全局热键 F10 F11

热键 F10 此宏执行操作 RunCode
                  ctlCopy

热键 F11 此宏执行操作 RunCode
                  ctlPaste

Dim ctlValue

Function ctlCopy()

on error resume Next

ctlValue= Screen.ActiveControl.Value

End Function

Function ctlPaste()

on error resume Next

  Screen.ActiveControl.Value =ctlValue

End Function

作者: jicheng 时间: 2006-6-25 08:38
我发了文件，帮忙改改

[此贴子已经被作者于2006-6-25 0:38:50编辑过]

作者: andymark 时间: 2006-6-25 22:20

以下是引用jicheng在2006-6-25 0:38:00的发言：
我发了文件，帮忙改改

文件在那?

作者: fan0217 时间: 2006-6-25 23:41
Function SendToScrap(strSendText As String) As Boolean
'===============================================================================
'-函数名称:       SendToScrap
'-功能描述:       发送文本到剪贴板
'-输入参数说明:    必选：strSendText As String 发送的文本
'-返回参数说明:    发送成功：True  发送失败：False
'-使用语法示例:    SendToScrap("你好！")
'-参考:
'-使用注意:       需要引用Microsoft Forms2.0 Object Library (%system32%\FM20.DLL)
'-兼容性:
'-作者:
'-更新日期：       2006-02-24
'===============================================================================
On Error GoTo Err_SendToScrap
Dim tmpData As New DataObject
tmpData.SetText strSendText
tmpData.PutInClipboard

SendToScrap = True

Exit_SendToScrap:
Exit Function

Err_SendToScrap:
SendToScrap = False
MsgBox Err.Description
Resume Exit_SendToScrap

End Function

[此贴子已经被作者于2006-6-25 15:41:33编辑过]

作者: goto2008 时间: 2007-8-14 19:10
学习。。。。。。。。。。。。。。

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