开发工具:
文件大小: 253kb
下载次数: 0
上传时间: 2011-11-14
详细说明： .版本 2 .支持库 dp1 .支持库 eAPI .程序集 窗口程序集1 .程序集变量 编辑框内容被改变, 整数型 .子程序 _关于_被选择 信息框 (“作者：贵州师范学院张超，版本：1.0”, 0, ) .子程序 __启动窗口_尺寸被改变 编辑框1.宽度 ＝ _启动窗口.宽度 编辑框1.高度 ＝ _启动窗口.高度 .子程序 _退出_被选择 _启动窗口.销毁 () .子程序 _新建_被选择 .局部变量 信息框按钮, 整数型 .如果 (编辑框内容被改变 ＝ 0) 编辑框1.内容 ＝ “” .否则 信息框按钮 ＝ 信息框 (“超哥提醒：内容被改变过，是否保存？”, 3, “超哥计事本”) .如果 (信息框按钮 ＝ #是钮) _保存_被选择 () .否则 .如果结束 .如果结束 .子程序 _编辑框1_内容被改变 编辑框内容被改变 ＝ 1 .子程序 _保存_被选择 通用对话框1.类型 ＝ 1 .如果 (通用对话框1.打开 ()) 写到文件 (通用对话框1.文件名, 到字节集 (编辑框1.内容)) 编辑框内容被改变 ＝ 0 .否则 .如果结束 . 子程序 _打开_被选择 通用对话框1.类型 ＝ 0 .如果 (通用对话框1.打开 ()) 编辑框1.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名)) .否则 .如果结束 .子程序 _另存为_被选择 通用对话框1.类型 ＝ 1 .如果 (通用对话框1.打开 ()) 写到文件 (通用对话框1.文件名, 到字节集 (编辑框1.内容)) 编辑框内容被改变 ＝ 0 .否则 .如果结束 .子程序 _加密存盘_被选择 .局部变量 拟保存的数据, 字节集 .局部变量 输入的密码, 文本型 .局部变量 i, 整数型 拟保存的数据 ＝ 到字节集 (编辑框1.内容) .如果 (输入框 (“请输入加密密码--务必记住自己设置的密码！”, “密码输入”, , 输入的密码, #输入密码)) 拟保存的数据 ＝ 加密数据 (拟保存的数据, 输入的密码, #RC4算法) .' 计次循环首 (取字节集长度 (拟保存的数据), i) ' 拟保存的数据 [i] ＝ 拟保存的数据 [i] ＋ 到数值 (输入的密码) .' 计次循环尾 () 通用对话框1.类型 ＝ 1 通用对话框1.打开 () 写到文件 (通用对话框1.文件名, 拟保存的数据) 信息框 (“你设置的密码为：” ＋ 输入的密码 ＋ “，” ＋ “请务必记住！”, 0, ) .否则 .如果结束 .子程序 _解密读入_被选择 .局部变量 拟读入的数据, 字节集 .局部变量 输入的密码, 文本型 .局部变量 i, 整数型 通用对话框1.类型 ＝ 0 通用对话框1.打开 () 拟读入的数据 ＝ 读入文件 (通用对话框1.文件名) .如果 (输入框 (“请输入加密密码”, “密码输入”, , 输入的密码, #输入密码)) 拟读入的数据 ＝ 解密数据 (拟读入的数据, 输入的密码, #RC4算法) .' 计次循环首 (取字节集长度 (拟读入的数据), i) ' 拟读入的数据 [i] ＝ 拟读入的数据 [i] － 到数值 (输入的密码) .' 计次循环尾 () 编辑框1.内容 ＝ 到文本 (拟读入的数据) .否则 .如果结束 .子程序 _复制_被选择 置剪辑板文本 (编辑框1.被选择文本) .子程序 _剪切_被选择 置剪辑板文本 (编辑框1.被选择文本) 编辑框1.被选择文本 ＝ “” .子程序 _粘贴_被选择 编辑框1.内容 ＝ 取剪辑板文本 () .子程序 _打印_被选择 .局部变量 打印信息变量, 打印信息 打印信息变量.纸张方向 ＝ #纵向 打印信息变量.纸张类型 ＝ -1 打印信息变量.纸张宽度 ＝ 2100 打印信息变量.纸张高度 ＝ 2970 打印信息变量.打印份数 ＝ 1 ' 打印信息变量.打印机名称=打印机列表框.取项目文本（打印机列表框.取现行选中项） 打开打印机对话框 (#接口常量.标准打印设置对话框, 打印信息变量) .子程序 __启动窗口_可否被关闭, 逻辑型 .局部变量 信息框按钮, 整数型 .如果 (编辑框内容被改变 ＝ 0) _启动窗口.销毁 () .否则 信息框按钮 ＝ 信息框 (“超哥提醒：内容被改变过，并且没有保存，是否保存？”, 3, “超哥计事本”) .判断开始 (信息框按钮 ＝ #是钮) _保存_被选择 () _启动窗口.销毁 () .判断 (信息框按钮 ＝ #否钮) _启动窗口.销毁 () .判断 (信息框按钮 ＝ #取消钮) 返回 (假) .默认 .判断结束 .如果结束 ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
