双击文本框就复制其内容到剪切板的VBA代码

rjacky

由于在数据库里面隐藏了菜单，禁用了右键和ctrl+C的快捷键，请教能不能通过VBA做到请教双击文本框就复制其内容到剪切板？谢谢了

一点通

供参考
http://www.office-cn.net/forum.p ... =%BC%F4%C7%D0%B0%E5

rjacky

谢谢一点通在深夜热心回帖，我之前也找了一下，论坛上面好像都是操作图片类型，不知道有没有操作文本类型的呢？

Grant

SendKeys "{Home}+{End}"
SendKeys "^{c}", True

这个方法包你满意

咱家是猫

GG,人家不是说了嘛,程序禁用了Ctrl+C键了

咱家是猫

试试DoCmd.RunCommand acCmdCopy

轻风

原帖由 咱家是猫 于 2007-8-8 09:23 发表
GG,人家不是说了嘛,程序禁用了Ctrl+C键了

禁用Ctrl+C键，但用代码应该可以吧。

wanshan

刚才发错位置了！

给你一个fan0217写的函数：

Function SendToScrap(strSendText As String) As Boolean
'===============================================================================
'-函数名称:         SendToScrap
'-功能描述:         发送文本到剪贴板
'-输入参数说明:     必选：strSendText As String 发送的文本
'-返回参数说明:     发送成功：True  发送失败：False
'-使用语法示例:     SendToScrap("你好！")
'-参考:
'-使用注意:         需要引用Microsoft Forms2.0 Object Library (%system32%\FM20.DLL)
'-兼容性:
'-作者:             fan0217 fan0217@163.com
'-更新日期：        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

在文本框双击事件中调用：
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70  '此句是保存代码，如果是新输入的内容，不加这句将复制不到内容……
    SendToScrap (Me.Text1)

rjacky

感谢大家热情的帮助。

Grant 版主的方法，代码和思路都很简便，1选择内容，2复制，但试了一下不行，因为我已经使用autokey宏禁用 ^{C} 了

6楼的朋友提供的方法行不通。

万山大侠转发的代码不但要引用，而且必须要先保存操作，实行起来有点困难啊。

eyewitnes

代码中设一个变量,双击的时候给变量赋值不可以吗?