fan0217请再进来看看，找到了问题，关于剪贴板函数

flying365

这是你的剪贴板函数，我在使用，很好，现在发现一个问题，请帮助解决，就是剪贴板的内容不能粘贴到某些短信软件，如短信王的发送窗口，必须先粘贴到文本文件中然后再拷贝才可以粘贴过去，系统的剪贴板和你的有什么区别吗，如何解决呢？

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编辑过]

一点通

这个问题应去问一下短信王的开发者

flying365

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

flying365

为何会出现我说的问题，如何解决？急！

fan0217

其实它使用的就是Win的剪贴板