Office中国论坛/Access中国论坛

标题: fan0217请再进来看看，找到了问题，关于剪贴板函数 [打印本页]

作者: flying365 时间: 2006-10-11 20:22
标题: 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

[此贴子已经被作者于2006-10-11 21:14:59编辑过]

作者: fan0217 时间: 2006-10-12 00:25
其实它使用的就是Win的剪贴板

作者: flying365 时间: 2006-10-12 03:05
为何会出现我说的问题，如何解决？急！

作者: flying365 时间: 2006-10-12 05:14
找到问题了，原来是不支持有中文的内容，该怎么办？真是搞不懂，说不支持中文吧，剪贴板的内容可以粘贴到记事本中，可就是粘贴不到短信王中，可是如果不包含中文就可以直接粘贴到短信王中，可我不明白为什么再从记事本中拷贝出来的就可以粘贴到短信王中.

作者: 一点通 时间: 2006-10-12 05:57
这个问题应去问一下短信王的开发者

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