[共享]放出自己用易语言编的记事本的源码

.版本 2
.支持库 iext3
.支持库 shellEx
.支持库 spec
.支持库 iext

.程序集 窗口程序集1
.程序集变量 x1, 整数型
.程序集变量 y1, 整数型
.程序集变量 当前文件名, 文本型
.程序集变量 页面数组, 文本型, , "99,3"
.程序集变量 文件被修改, 逻辑型
.程序集变量 打字数组, 文本型, , "0"
.程序集变量 目前位置, 整数型
.程序集变量 开始, 逻辑型
.程序集变量 打字开关开启, 整数型
.程序集变量 打字开关关闭, 整数型
.程序集变量 接触开关, 逻辑型

.子程序 __启动窗口_创建完毕
.局部变量 页面编号, 整数型

标签1.底图 ＝ #底图1
总时钟.时钟周期 ＝ 100
页面编号 ＝ 高级选择夹1.现行子夹 ＋ 1
页面数组 [页面编号] [1] ＝ “”
页面数组 [页面编号] [2] ＝ “”
页面数组 [页面编号] [3] ＝ “假”
写字框.内容 ＝ “”
打字开关开启 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F9键)
打字开关关闭 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F10键)

.子程序 _标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

x1 ＝ 取鼠标水平位置 () － _启动窗口.左边
y1 ＝ 取鼠标垂直位置 () － _启动窗口.顶边
时钟1.时钟周期 ＝ 50


.子程序 _时钟1_周期事件

目前位置 ＝ 目前位置 ＋ 1
写字框.加入文本 (打字数组 [目前位置])
.如果真 (目前位置 ＝ 取数组成员数 (打字数组))
时钟1.时钟周期 ＝ 0
信息框 (“欢迎大家使用思吧记事本，三人行华制作”, 0, )
开始 ＝ 假
.如果真结束


.子程序 _标签1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

时钟1.时钟周期 ＝ 0

.子程序 _总时钟_周期事件



.子程序 加入批量阅读消息
.参数 信息内容, 文本型
.参数 语速, 整数型, 可空
.参数 停顿, 整数型, 可空
.局部变量 i
.局部变量 零食, 文本型, , "0"
.局部变量 _xx, 消息数据

零食 ＝ 分割文本 (信息内容, #换行符, )
重定义数组 (消息队列, 假, 取数组成员数 (零食))
.计次循环首 (取数组成员数 (零食), i)
_xx.内容 ＝ #换行符 ＋ 零食
_xx.速度 ＝ 语速
_xx.延时 ＝ 停顿
加入成员 (消息队列, _xx)
.计次循环尾 ()

.子程序 _输出时钟_周期事件
.局部变量 零食, 文本型

.如果 (取数组成员数 (消息队列) ＞ 0)
.如果 (取文本长度 (消息队列 [1].内容) ≤ 输出指针)
输出时钟.时钟周期 ＝ 消息队列 [1].延时
删除成员 (消息队列, 1, 1)
输出指针 ＝ 0
.否则
输出时钟.时钟周期 ＝ 消息队列 [1].速度
零食 ＝ 取文本中间 (消息队列 [1].内容, 输出指针 ＋ 1, 1)
.如果 (取代码 (零食, ) ＜ -1 或 取代码 (零食, ) ＞ 127)
零食 ＝ 取文本中间 (消息队列 [1].内容, 输出指针 ＋ 1, 2)
输出指针 ＝ 输出指针 ＋ 2
.否则
输出指针 ＝ 输出指针 ＋ 1
.如果结束
写字框.加入文本 (零食)
.如果结束
.如果真 (输出时钟.时钟周期 ＜ 1)
_输出时钟_周期事件 ()
.如果真结束

.否则
输出时钟.时钟周期 ＝ 1
.如果结束


.子程序 _解说框_放开某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 ＝ #F1键)
输出时钟.时钟周期 ＝ 0
.如果真 (通用对话框1.打开 ())
输出指针 ＝ 0
清除数组 (消息队列)

加入批量阅读消息 (到文本 (读入文件 (通用对话框1.文件名)), 97, 250)
.如果真结束
输出时钟.时钟周期 ＝ 1
.如果真结束


.子程序 _自动打字_被选择
.局部变量 文件内容, 文本型
.局部变量 准备打字, 文本型
.局部变量 i
.局部变量 找到位置, 整数型
.局部变量 长度, 整数型

写字框.内容 ＝ “”
清除数组 (打字数组)
目前位置 ＝ 0
.如果真 (通用对话框1.打开 () ＝ 真)
文件内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))
调试输出 (文件内容)
长度 ＝ 取文本长度 (文件内容)
找到位置 ＝ 0
.判断循环首 (找到位置 ＜ 长度)
.如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＜ 0 或 取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 13)
.如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 13)
.如果 (取文本中间 (文件内容, 找到位置, 2) ＝ #换行符)
找到位置 ＝ 找到位置 ＋ 1
.否则
找到位置 ＝ 找到位置 ＋ 3
.如果结束

.否则
准备打字 ＝ 准备打字 ＋ 取文本中间 (文件内容, 找到位置, 2) ＋ “|”
找到位置 ＝ 找到位置 ＋ 2
.如果结束

.否则
.如果 (取代码 (取文本中间 (文件内容, 找到位置, 1), ) ＝ 0)
找到位置 ＝ 找到位置 ＋ 1
.否则
准备打字 ＝ 准备打字 ＋ 取文本中间 (文件内容, 找到位置, 1) ＋ “|”
找到位置 ＝ 找到位置 ＋ 1
.如果结束

.如果结束

.判断循环尾 ()
打字数组 ＝ 分割文本 (准备打字, “|”, )
时钟1.时钟周期 ＝ 100
开始 ＝ 真
.如果真结束


.子程序 _图形按钮1_被单击

.如果 (_启动窗口.高度 ＝ 24)
_启动窗口.高度 ＝ 470
.否则
_启动窗口.高度 ＝ 24
.如果结束


.子程序 _图形按钮2_被单击

_启动窗口.位置 ＝ 2


.子程序 _图形按钮3_被单击

.如果真 (写字框.内容 ≠ “”)
.判断开始 (信息框 (“记事本中有内容,是否要保存?”, #警告图标 ＋ #取消是否钮, “记事本”) ＝ #是钮)
通用对话框2.打开 ()
写到文件 (通用对话框2.文件名, 到字节集 (写字框.内容))
.默认

.判断结束

.如果真结束

销毁 ()


.子程序 _图形按钮4_被单击

弹出菜单 (窗口菜单, , )

.子程序 _新建_被选择
.局部变量 页面编号, 整数型

页面编号 ＝ 高级选择夹1.取子夹数目 () ＋ 1
页面数组 [页面编号] [1] ＝ “”
页面数组 [页面编号] [2] ＝ “”
页面数组 [页面编号] [3] ＝ “假”
高级选择夹1.加入子夹 (“空白文档” ＋ 到文本 (高级选择夹1.取子夹数目 () ＋ 1), , , , )
高级选择夹1.现行子夹 ＝ 高级选择夹1.取子夹数目 () － 1

.子程序 _保存_被选择

.如果真 (写字框.内容 ＝ “”)
返回 ()
.如果真结束
通用对话框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.字体颜色


.子程序 _打开_被选择
.局部变量 页面编号, 整数型
.局部变量 子夹名, 文本型

.如果 (写字框.内容 ≠ “”)
高级选择夹1.加入子夹 (“空白文档” ＋ 到文本 (高级选择夹1.取子夹数目 () ＋ 1), , , , )
高级选择夹1.现行子夹 ＝ 高级选择夹1.取子夹数目 () － 1
通用对话框1.打开 ()
写字框.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))
.否则
通用对话框1.打开 ()
写字框.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))
.如果结束

页面编号 ＝ 高级选择夹1.现行子夹 ＋ 1
页面数组 [页面编号] [1] ＝ 通用对话框1.文件名
页面数组 [页面编号] [2] ＝ 写字框.内容
页面数组 [页面编号] [3] ＝ “假”
子夹名 ＝ 取文本右边 (通用对话框1.文件名, 取文本长度 (通用对话框1.文件名) － 倒找文本 (通用对话框1.文件名, “\”, , 假))
子夹名 ＝ 取文本左边 (子夹名, 取文本长度 (子夹名) － 4)
.如果真 (取文本长度 (子夹名) ＞ 10)
子夹名 ＝ 取文本左边 (子夹名, 10)
.如果真结束
高级选择夹1.置子夹名称 (高级选择夹1.现行子夹, 子夹名)


.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (开始 ＝ 真)
.如果真 (参数一 ＝ 打字开关开启)
时钟1.时钟周期 ＝ 100
.如果真结束
.如果真 (参数一 ＝ 打字开关关闭)
时钟1.时钟周期 ＝ 0
.如果真结束

.如果真结束


.子程序 _时钟2_周期事件
.局部变量 时间, 整数型, 静态

时间 ＝ 时间 ＋ 1
.如果真 (时间 ＞ 3)
标签4.标题 ＝ “ 小华专用记事本 ” ＋ 到文本 (取现行时间 ())
.如果真结束


.子程序 _透明标签1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (接触开关 ＝ 真)
透明标签1.文本颜色 ＝ 14131712
接触开关 ＝ 假
.如果真结束


.子程序 _标签1_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (接触开关 ＝ 假)
透明标签1.文本颜色 ＝ 12545792
接触开关 ＝ 真
.如果真结束


.子程序 _标签4_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.如果真 (接触开关 ＝ 假)
透明标签1.文本颜色 ＝ 12545792
接触开关 ＝ 真
.如果真结束


.子程序 _透明标签1_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

写字框.内容 ＝ 转换简体到繁体 (写字框.内容)


.子程序 _关于_被选择

信息框 (“欢迎大家使用小华记事本，小华制作”, 0, )


.子程序 _标签4_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型



[

引用

图片：
[删除] 图片：
[删除] 图片：
[删除] 图片：
[删除] 图片：
[删除]

容易麽？代码都是中文，哈哈，我喜欢！