pb如何把字符串发送到剪贴板

转自http://topic.youkuaiyun.com/t/20050510/23/3996550.html

楼主iamsj（iamsj） 2005-05-10 23:26:24 在 PowerBuilder / 基础类 提问

请问pb如何把字符串发送到剪贴板里？
long ll_hBitmap
ll_hBitmap = LoadImage(0,"F:\ZP.BMP",IMAGE_BITMAP,0,0,LR_LOADFROMFILE)
IF ll_hBitmap = 0 then
MessageBox("提示信息","无法调用图像文件！")
return
End if
OpenClipboard(Handle(Parent))
EmptyClipboard()
SetClipboardData(CF_BITMAP,ll_hBitmap)
if IsClipboardFormatAvailable(CF_BITMAP)=0 then
MessageBox("提示信息","将图像文件复制到剪贴板时产生错误！")
end if
上面是把图片放入剪贴板，现在我要把一个字符串放入剪贴板里

SetClipboardData（）是个往剪贴板里写入指定格式数据的函数，那位高手能能详细的写下把一个字符串放入剪贴板里的代码吗，我不知道里面的参数怎么写，谢谢
问题点数：20、回复次数：2Top

1 楼njuptzhb（） 回复于 2005-05-10 23:51:21 得分 10

ClipBoard("abcd")

搞定!Top

2 楼princelily（百合） 回复于 2005-05-11 08:45:32 得分 10

我详细说明一下Clipboard()函数：
功能：提取或替换Windows 系统剪贴板的文本内容
语法：Clipboard ( { string } )
参数：string string 类型可选项指定要复制到系统剪贴板上的文本如果剪贴板上已有内容的话该文本将取代剪贴板的当前内容。
返回值：String 函数执行成功时如果剪贴板上包含文本数据，那么函数返回剪贴板的当前内容，如果剪贴板上包含非文本数据，比如位图或不包含任何数据那么函数
返回空字符串""， 如果string 参数的值为NULL Clipboard()函数返回NULL。
用法：
无论是否指定string 参数Clipboard()都将返回剪贴板的当前内容当指定string
参数时剪贴板的原有内容被string 参数的值取代省略string 参数时仅仅得到剪贴板
的内容。
示例1 下面的代码将剪贴板的内容放置到变量ls_CoName 中
string ls_CoName
ls_CoName = Clipboard()
示例2 下面的代码以字符串春眠不觉晓取代剪贴板原有的内容并把该原有内
容保存到变量Heading 中
string Heading
Heading = Clipboard("春眠不觉晓")

 

Clipboard 是PB内置的方法