专用高级记事本源码

部分代码

.版本 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.字体颜色