剪切板操作例程源码

剪切板操作

.版本 2

.程序集 剪切板操作

.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用

' 本源码来自三叶资源网(www.sanye.cx)

.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用

' 本源码来自三叶资源网(www.sanye.cx)

.子程序 清空, 逻辑型, 公开, 清空剪切板
.局部变量 i, 整数型

i ＝ OpenClipboard (0)
.如果 (i ＝ 1)
    i ＝ EmptyClipboard ()
    返回 (i ＝ 1)
.否则

.如果结束
CloseClipboard ()
返回 (假)


.子程序 格式是否有效, 逻辑型, 公开, 检查剪切板内指定格式是否有效
.参数 内容格式, 整数型, , 内容格式，指文本型、html、二进制数据等
.局部变量 i, 整数型

i ＝ IsClipboardFormatAvailable (内容格式)
返回 (i ＝ 1)


.子程序 置内容, 逻辑型, 公开, 将字节集内容置入剪切板
.参数 内容格式, 整数型
.参数 内容, 字节集

返回 (真)

.子程序 取内容, 字节集, 公开
.参数 内容格式, 整数型
.局部变量 地址, 整数型
.局部变量 最终字节集, 字节集
.局部变量 临时文本, 文本型

.如果真 (格式是否有效 (内容格式))
    OpenClipboard (0)  ' 打开内存
    地址 ＝ GetClipboardData (内容格式)
.如果真结束

返回 (最终字节集)

@易语言入门教程