|
发表于 2011-9-30 19:35:24
|
显示全部楼层
广东省梅州市
版本 2
.子程序 复制图片到剪贴板
.参数 图片数据, 字节集
.局部变量 图片, 对象
.局部变量 图片句柄, 整数型
图片.创建图片对象 (图片数据)
图片句柄 = 图片.读数值属性 (“Handle”, )
打开剪贴板 (_启动窗口.取窗口句柄 ())
清空剪贴板 ()
设置剪贴板数据 (2, 图片句柄)
关闭剪贴板 ()
.版本 2
.DLL命令 设置剪贴板数据, 整数型, , "SetClipboardData"
.参数 uFormat, 整数型
.参数 hMem, 整数型
.DLL命令 获取剪贴板数据, 整数型, , "GetClipboardData"
.参数 uFormat, 整数型
.DLL命令 打开剪贴板, 整数型, , "OpenClipboard"
.参数 窗口句柄, 整数型
.DLL命令 关闭剪贴板, 逻辑型, , "CloseClipboard"
.DLL命令 清空剪贴板, 逻辑型, , "EmptyClipboard"
----------------------------------------------------------------------------
.版本 2
.子程序 _图片框1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
复制图片到剪贴板(图片框1.图片)
|
|