如何将图片文件放到剪贴板中？？？
如何将从数据库取出的图片文件拷贝到剪贴板中，就跟office一样图片也可以复制、粘贴一样。
问题点数：20、回复次数：4Top
1 楼hygougou（uoguogyh）回复于 2005-08-29 10:33:28 得分 20
api 搜一下老帖Top
2 楼zclmzclm（）回复于 2005-08-29 12:18:32 得分 0
搜了一下还真有，哈哈。以前也看到过相同的用法，就是没有api申明，谢谢。
结帖
1.将bmp文件,复制到剪切板:
声明API
FUNCTION ulong LoadImage(ulong hInst,string lpsz,ulong un1,ulong n1,ulong n2,ulong un2) LIBRARY "user32.dll" ALIAS FOR "LoadImageA"
FUNCTION ulong CloseClipboard() LIBRARY "user32.dll"
FUNCTION ulong OpenClipboard(ulong hwnd) LIBRARY "user32.dll"
FUNCTION ulong EmptyClipboard() LIBRARY "user32.dll"
FUNCTION ulong SetClipboardData(ulong wFormat,Ulong hMem) LIBRARY "user32.dll"
FUNCTION ulong RegisterClipboardFormat(string lpString) LIBRARY "user32.dll" ALIAS FOR "RegisterClipboardFormatA"
//以下是代码
Constant int LR_LOADFROMFILE = 16
Constant int IMAGE_BITMAP = 0
Constant int IMAGE_ICON = 1
Constant int IMAGE_CURSOR = 2
Constant int IMAGE_ENHMETAFILE = 3
Constant int CF_BITMAP = 2
Constant int CF_UNICODETEXT = 13
Constant int CF_TEXT = 1
ulong hBitmap
int Null,Format
setnull(null)
hBitmap = LoadImage(null, "c:\1.bmp", IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)
If hBitmap = 0 Then
Messagebox ("错误","载入图片错误!")
Return
End If
OpenClipboard (null)
EmptyClipboard()
SetClipboardData (CF_BITMAP, hBitmap)
CloseClipboard()
Top
3 楼zclmzclm（）回复于 2005-08-29 12:25:30 得分 0
如何给分啊？？？？？Top
4 楼zclmzclm（）回复于 2005-08-29 12:26:50 得分 0
哦，已经给了。哈哈Top
