剪辑板_置图片 疑似BUG

shituo

剪辑板_置图片  疑似BUG   本人WIN7系统

我用这个剪辑板 置图片 然后 使用 组合键 粘贴命令 到 QQ聊天窗口 经常卡住 然后把那个清除数据的删除就好了

  

子程序名	返回值类型	公开	备 注
剪辑板_置图片			设置指定图片到系统剪辑板
参数名	类 型	参考	可空	数组	备 注
图片数据	字节集				要置入剪辑板的图片数据

变量名	类 型	静态	数组	备 注
图片	对象
图片句柄	整数型

CoInitialize (0)
图片.创建图片对象 (图片数据)
图片句柄 ＝ 图片.读数值属性 (“Handle”, )
CoUninitialize ()
OpenClipboard (0)
' EmptyClipboard ()  把这段代码 注释掉就恢复正常了
SetClipboardData (2, 图片句柄)
CloseClipboard ()

.版本 2<br /> <br /> .子程序 剪辑板_置图片, , 公开, 设置指定图片到系统剪辑板<br /> .参数 图片数据, 字节集, , 要置入剪辑板的图片数据<br /> .局部变量 图片, 对象<br /> .局部变量 图片句柄, 整数型<br /> <br /> CoInitialize (0)<br /> 图片.创建图片对象 (图片数据)<br /> 图片句柄 ＝ 图片.读数值属性 (“Handle”, )<br /> CoUninitialize ()<br /> OpenClipboard (0)<br /> ' EmptyClipboard ()  把这段代码 注释掉就恢复正常了<br /> SetClipboardData (2, 图片句柄)<br /> CloseClipboard ()

另外附带一个 我在其他程序看到的 置剪辑板图片的 命令

  

子程序名	返回值类型	公开	备 注
Clip_SetData	逻辑型		置剪辑板 图片
参数名	类 型	参考	可空	数组	备 注
data	字节集

变量名	类 型	静态	数组	备 注
HGLOBAL	整数型
hMem	整数型

' RegisterClipboardFormatA (lpszFormat)
如果真 (OpenClipboard (0) ＝ 假)  ' 打开剪辑板
返回 (假)
' EmptyClipboard ()  ' 先清空剪辑板
HGLOBAL ＝ GlobalAlloc (位或 ( #GMEM_MOVEABLE, #GMEM_ZEROINIT ), 取字节集长度 (data))
如果真 (HGLOBAL ≠ 0)
hMem ＝ GlobalLock (HGLOBAL)
写到内存 (data, hMem, 取字节集长度 (data))
GlobalUnlock (HGLOBAL)
如果真 (SetClipboardData (2, HGLOBAL) ＞ 0)
CloseClipboard ()  ' 关闭剪辑板
返回 (真)


CloseClipboard ()  ' 关闭剪辑板
返回 (假)

.版本 2<br /> <br /> .子程序 Clip_SetData, 逻辑型, 公开, 置剪辑板 图片<br /> .参数 data, 字节集<br /> .局部变量 HGLOBAL, 整数型<br /> .局部变量 hMem, 整数型<br /> <br /> ' RegisterClipboardFormatA (lpszFormat)<br /> <br /> .如果真 (OpenClipboard (0) ＝ 假)  ' 打开剪辑板<br />     返回 (假)<br /> .如果真结束<br /> ' EmptyClipboard ()  ' 先清空剪辑板<br /> HGLOBAL ＝ GlobalAlloc (位或 (#GMEM_MOVEABLE, #GMEM_ZEROINIT), 取字节集长度 (data))<br /> .如果真 (HGLOBAL ≠ 0)<br />     hMem ＝ GlobalLock (HGLOBAL)<br />     写到内存 (data, hMem, 取字节集长度 (data))<br />     GlobalUnlock (HGLOBAL)<br />     .如果真 (SetClipboardData (2, HGLOBAL) ＞ 0)<br />         CloseClipboard ()  ' 关闭剪辑板<br />         返回 (真)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> CloseClipboard ()  ' 关闭剪辑板<br /> 返回 (假)

补充内容 (2022-5-2 16:08):
修复 版本

.版本 2

.子程序 剪辑板_置图, 逻辑型, 公开, 置剪辑板 图片
.参数 data, 字节集
.局部变量 HGLOBAL, 整数型
.局部变量 hMem, 整数型
.局部变量 ...

4834

看不懂的怎么才能看懂呢

shituo

  

子程序名	返回值类型	公开	备 注
剪辑板_置图	逻辑型		置剪辑板 图片
参数名	类 型	参考	可空	数组	备 注
data	字节集

变量名	类 型	静态	数组	备 注
HGLOBAL	整数型
hMem	整数型
图片	对象

' RegisterClipboardFormatA (lpszFormat)
如果真 (OpenClipboard (0) ＝ 假)  ' 打开剪辑板
返回 (假)
EmptyClipboard ()  ' 先清空剪辑板
CoInitialize (0)
图片.创建图片对象 (data)
HGLOBAL ＝ 图片.读数值属性 (“Handle”, )  ' GlobalAlloc (位或 (#GMEM_MOVEABLE, #GMEM_ZEROINIT), 取字节集长度 (data))
CoUninitialize ()
如果真 (HGLOBAL ≠ 0)
如果真 (SetClipboardData (2, HGLOBAL) ＞ 0)
CloseClipboard ()  ' 关闭剪辑板
返回 (真)

CloseClipboard ()  ' 关闭剪辑板
返回 (假)

.版本 2<br /> <br /> .子程序 剪辑板_置图, 逻辑型, 公开, 置剪辑板 图片<br /> .参数 data, 字节集<br /> .局部变量 HGLOBAL, 整数型<br /> .局部变量 hMem, 整数型<br /> .局部变量 图片, 对象<br /> <br /> ' RegisterClipboardFormatA (lpszFormat)<br /> .如果真 (OpenClipboard (0) ＝ 假)  ' 打开剪辑板<br />     返回 (假)<br /> .如果真结束<br /> EmptyClipboard ()  ' 先清空剪辑板<br /> CoInitialize (0)<br /> 图片.创建图片对象 (data)<br /> HGLOBAL ＝ 图片.读数值属性 (“Handle”, )  ' GlobalAlloc (位或 (#GMEM_MOVEABLE, #GMEM_ZEROINIT), 取字节集长度 (data))<br /> CoUninitialize ()<br /> .如果真 (HGLOBAL ≠ 0)<br />     .如果真 (SetClipboardData (2, HGLOBAL) ＞ 0)<br />         CloseClipboard ()  ' 关闭剪辑板<br />         返回 (真)<br />     .如果真结束<br /> <br /> .如果真结束<br /> CloseClipboard ()  ' 关闭剪辑板<br /> 返回 (假)

大司命

我仿佛已经听见004在骂骂咧咧的说有bug怎么不早说！非要在发新版本后才说~

我很低调

没遇到过