|

楼主 |
发表于 2020-10-10 09:41:30
|
显示全部楼层
安徽省阜阳市
天外孤鸿PLUS 发表于 2020-10-10 09:27
OpenClipboard (0 )[/quote ][e=0 ].版本 2 i = 信息框 (“是否一键清空剪贴板全部内容?!”, #是否钮, “警告”, ) 如果 (i = #是钮 ) LoadProgress () 超级列表框1. 插入表项 (, “正在清空中。。。”, , , , ) 如果真 (EmptyClipboard (“”))   超级列表框1. 插入表项 (, “清空完毕”, , , , )   超级列表框1. 插入表项 (, “取消清空”, , , , )时钟1.时钟周期 = 1000超级列表框1. 全部删除 () 计次循环首 (100, i ) 进度条1.位置 = i 处理事件 () 计次循环尾 ()XP风格 ( #绿色风格 )
[e=0].版本 2
.支持库 iext
.支持库 xplib
.子程序 _按钮1_被单击
.局部变量 i, 整数型
i = 信息框 (“是否一键清空剪贴板全部内容?!”, #是否钮, “警告”, )
.如果 (i = #是钮)
LoadProgress ()
超级列表框1.插入表项 (, “正在清空中。。。”, , , , )
.如果真 (EmptyClipboard (“”))
超级列表框1.插入表项 (, “清空完毕”, , , , )
.如果真结束
.否则
超级列表框1.插入表项 (, “取消清空”, , , , )
.如果结束
时钟1.时钟周期 = 1000
.子程序 _按钮2_被单击
超级列表框1.全部删除 ()
.子程序 LoadProgress
.局部变量 i, 整数型
.计次循环首 (100, i)
进度条1.位置 = i
处理事件 ()
.计次循环尾 ()
.子程序 __启动窗口_创建完毕
XP风格 (#绿色风格)
错误(10054): 调用DLL命令“EmptyClipboard”时传递了过多的参数。
|
|