该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

主窗口：

.版本 2

.程序集 窗口程序集1

.子程序 _截取全屏_被选择

截取全屏1 ＝ 真

载入 (窗口截屏, , 真)

.子程序 _截取指定区域_被选择

截取全屏1 ＝ 假

载入 (窗口截屏, , 真)

第2个程序集

.版本 2

.程序集 窗口程序集2

.程序集变量 取范围, 逻辑型

.程序集变量 取点左, 短整数型

.程序集变量 取点上, 短整数型

.程序集变量 取点右, 短整数型

.程序集变量 取点下, 短整数型

.程序集变量 画图片, 逻辑型

.子程序 _窗口截屏_创建完毕

刷新显示 ()

窗口截屏.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())

画板1.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())

画板1.底图 ＝ 快照 (, , )

标签提示.标题 ＝ #换行符 ＋ “ A：按住鼠标左键拖取截屏范围。” ＋ #换行符 ＋ #换行符 ＋ “ B：按鼠标右键取消”

.如果真 (截取全屏1 ＝ 真)

隐藏画板.移动 (0, 0, 取屏幕宽度 (), 取屏幕高度 ())

画板1.复制 (0, 0, 取屏幕宽度 (), 取屏幕高度 (), 隐藏画板, 0, 0, )

复制图片到剪贴板 (隐藏画板.取图片 (, ))

剪取图片 ()

销毁 ()

.如果真结束

.子程序 _画板1_鼠标右键被按下, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

销毁 ()

.子程序 _画板1_鼠标左键被按下, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

画图片 ＝ 假

取范围 ＝ 真

取点左 ＝ 横向位置

取点上 ＝ 纵向位置

隐藏画板.移动 (取点左, 取点上, 1, 1)

.子程序 _画板1_鼠标位置被移动, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

.如果 (画图片 ＝ 真)

.否则

画板1.清除 (, , , )

刷新显示 ()

.如果结束

.如果真 (取范围)

取点右 ＝ 横向位置

取点下 ＝ 纵向位置

画板1.画矩形 (取点左, 取点上, 取点右, 取点下)

.如果真结束

.子程序 _窗口截屏_将被销毁

取范围 ＝ 假

.子程序 _画板1_鼠标左键被放开, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

.局部变量 自身句柄, 整数型

画图片 ＝ 真

取范围 ＝ 假

.如果 (横向位置 ＜ 取点左)

取点右 ＝ 取点左

取点左 ＝ 横向位置

.否则

取点右 ＝ 横向位置

.如果结束

.如果 (纵向位置 ＜ 取点上)

取点下 ＝ 取点上

取点上 ＝ 纵向位置

.否则

取点下 ＝ 纵向位置

.如果结束

隐藏画板.移动 (取点左, 取点上, 取点右 － 取点左 － 1, 取点下 － 取点上 － 1)

画板1.复制 (取点左, 取点上, 取点右 － 取点左, 取点下 － 取点上, 隐藏画板, 0, 0, )

复制图片到剪贴板 (隐藏画板.取图片 (, ))

剪取图片 ()

销毁 ()

.子程序 复制图片到剪贴板

.参数 图片数据, 字节集

.局部变量 图片, 对象

.局部变量 图片句柄, 整数型

图片.创建图片对象 (图片数据)

图片句柄 ＝ 图片.读数值属性 (“Handle”, )

打开剪贴板 (_启动窗口.取窗口句柄 ())

清空剪贴板 ()

设置剪贴板数据 (2, 图片句柄)

关闭剪贴板 ()

.子程序 _标签提示_鼠标位置被移动, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

.如果 (标签提示.左边 ＝ 15)

标签提示.左边 ＝ 窗口截屏.宽度 － 标签提示.宽度 － 20

.否则

标签提示.左边 ＝ 15

.如果结束

.子程序 剪取图片

.如果真 (信息框 (“取到图片已保存到剪辑板中，现在要存为文件吗？”, #是否钮 ＋ #警告图标, ) ＝ #是钮)

通用对话框1.类型 ＝ 1

通用对话框1.过滤器 ＝ “*.bmp”

通用对话框1.默认文件后缀 ＝ “bmp”

.如果真 (通用对话框1.打开 ())

.如果 (写到文件 (通用对话框1.文件名, 隐藏画板.取图片 (, )) ＝ 真)

信息框 (“保存文件成功！”, #警告图标, )

.否则

.如果结束

.如果真结束

需要的：

.版本 2

.全局变量 截取全屏1, 逻辑型

.版本 2

.DLL命令 删除对象, 逻辑型, , "DeleteObject"

.参数 GDI对象句柄, 整数型

.DLL命令 打开剪贴板, 整数型, , "OpenClipboard"

.参数 窗口句柄, 整数型

.DLL命令 清空剪贴板, 逻辑型, , "EmptyClipboard"

.DLL命令 设置剪贴板数据, 整数型, , "SetClipboardData", , 返回句柄

.参数 uFormat, 整数型, , 表示的是要放进剪贴板数据的格式

.参数 hMem, 整数型, , 表示数据的地址指针

.DLL命令 关闭剪贴板, 逻辑型, , "CloseClipboard", , 本函数没有参数，事先应该用OpenClipboard函数打开过剪贴板。