专用高级记事本源码

部分代码

.版本 2 .支持库 iext3 .支持库 shell .子程序 _图形按钮3_被单击 .如果真 (写字框.内容 ≠ “”) .判断开始 (信息框 (“记事本中有内容,是否要保存?”, #警告图标 + #是否钮, “记事本”) = #是钮) 通用对话框2.打开 () 写到文件 (通用对话框2.文件名, 到字节集 (写字框.内容)) .默认 .判断结束 .如果真结束 销毁 () .子程序 _图形按钮4_被单击 弹出菜单 (窗口菜单, , ) .子程序 _新建_被选择 .局部变量 页面编号, 整数型 页面编号 = 高级选择夹1.取子夹数目 () + 1 页面数组 [页面编号] [1] = “” 页面数组 [页面编号] [2] = “” 页面数组 [页面编号] [3] = “假” 高级选择夹1.加入子夹 (“教程说明” + 到文本 (高级选择夹1.取子夹数目 () + 1), , , , ) 高级选择夹1.现行子夹 = 高级选择夹1.取子夹数目 () - 1 .子程序 _運行內容脚本_被选择 写到文件 (取特定目录 (11) + “臨時脚本運行” + “.bat”, 到字节集 (写字框.内容)) 运行 (取特定目录 (11) + “臨時脚本運行” + “.bat”, 假, ) .子程序 _保存_被选择 .如果真 (写字框.内容 = “”) 返回 () .如果真结束 通用对话框1.类型 = 1 通用对话框1.过滤器 = “文件文件(*.txt)|*.txt|所有文件(*.*)|*.*” 通用对话框1.默认文件后缀 = “txt” .如果 (页面数组 [高级选择夹1.现行子夹 + 1] [1] ≠ “”) 通用对话框1.文件名 = 页面数组 [高级选择夹1.现行子夹 + 1] [1] .否则 通用对话框1.文件名 = “” .如果结束 通用对话框1.打开 () 写到文件 (通用对话框1.文件名, 到字节集 (写字框.内容)) 页面数组 [高级选择夹1.现行子夹 + 1] [1] = 通用对话框1.文件名 页面数组 [高级选择夹1.现行子夹 + 1] [2] = 写字框.内容 页面数组 [高级选择夹1.现行子夹 + 1] [3] = “真” .子程序 _高级选择夹1_被双击, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型 高级选择夹1.隐藏子夹 (高级选择夹1.现行子夹, 真) .子程序 _高级选择夹1_将改变子夹, 逻辑型 .参数 子夹索引, 整数型 .局部变量 页面编号, 整数型 页面编号 = 高级选择夹1.现行子夹 + 1 页面数组 [页面编号] [2] = 写字框.内容 页面数组 [页面编号] [3] = “假” 写字框.内容 = “” .子程序 _高级选择夹1_子夹被改变 .局部变量 页面编号, 整数型 页面编号 = 高级选择夹1.现行子夹 + 1 写字框.内容 = 页面数组 [页面编号] [2] .子程序 _设置字体_被选择 .局部变量 新字体, 字体 通用对话框1.类型 = 2 .如果真 (通用对话框1.打开 () = 假) 返回 () .如果真结束 新字体.加粗 = 通用对话框1.加粗 新字体.倾斜 = 通用对话框1.倾斜 新字体.删除线 = 通用对话框1.删除线 新字体.下划线 = 通用对话框1.下划线 新字体.字体名称 = 通用对话框1.字体名称 新字体.字体大小 = 通用对话框1.字体大小 写字框.字体 = 新字体 写字框.文本颜色 = 通用对话框1.字体颜色
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

发表回复

您的邮箱地址不会被公开。 必填项已用 * 标注