点一下按钮或双击某个字段就可将此字段复制到剪贴板

jicheng

主要是因为经常复制某个字段的数据麻烦，

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

j13583

建议改为：使用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 0:38:50编辑过]

andymark

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

   文件在那?

fan0217

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

学习。。。。。。。。。。。。。。