超级记事本优化版源码

hg232332

大家好，我给大家带来的记事本的源码。有些地方还是非常不足的。请大神进行修改。做的不好勿喷。毕竟做这个也是花了我很长时间。大家可以去到这个记事本里弄个皮肤模块。更美观点。我的QQ是3198217968

  

窗口程序集名	保 留	保 留	备 注
窗口程序集1
变量名	类 型	数组	备 注
是否保存	逻辑型
文件路径	文本型
机读文本	机读文本
撤销sz	文本型	0
当前位置	整数型
记录	逻辑型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

启动线程 (&保证显示出来, , )

子程序名	返回值类型	公开	备 注
保证显示出来

变量名	类 型	静态	数组	备 注
命令	文本型		0
i	整数型

加入成员 (内容被改变, 编辑框1.内容)
标题 ＝ “记事本”
取命令行 (命令)
如果真 (取数组成员数 (命令) ≥ 1)
标题 ＝ 命令 [1] ＋ “-记事本”
编辑框1.内容 ＝ 到文本 (读入文件 (命令 [1]))

子程序名	返回值类型	公开	备 注
_打印_被选择

打印机1.开始打印 (, , , , , )
打印机1.字体 ＝ 编辑框1.字体
打印机1.写出 (编辑框1.内容)
打印机1.结束打印 ()

子程序名	返回值类型	公开	备 注
_新建_被选择

变量名	类 型	静态	数组	备 注
数值	整数型

如果真 (是否保存 ＝ 假)
数值 ＝ 信息框 (“是否将更改进行保存？”, #取消是否钮, “记事本”)
如果真 (数值 ＝ 5)
_保存_被选择 ()
如果真 (数值 ＝ 6)
编辑框1.内容 ＝ “”
_启动窗口.标题 ＝ “无标题 - 记事本”

子程序名	返回值类型	公开	备 注
_保存_被选择

如果真 (文件路径 ＝ “”)
通用对话框1.类型 ＝ 1
通用对话框1.标题 ＝ “保存文件”
如果真 (通用对话框1.打开 ())
文件路径 ＝ 通用对话框1.文件名

写到文件 (文件路径, 到字节集 (编辑框1.内容))

子程序名	返回值类型	公开	备 注
_打开_被选择

通用对话框1.类型 ＝ 0
通用对话框1.标题 ＝ “打开文件”
如果真 (通用对话框1.打开 ())
文件路径 ＝ 通用对话框1.文件名
编辑框1.内容 ＝ 到文本 (读入文件 (文件路径))

子程序名	返回值类型	公开	备 注
_字体_被选择

通用对话框1.类型 ＝ 2
通用对话框1.标题 ＝ “字体选择”
如果真 (通用对话框1.打开 ())
编辑框1.字体.字体名称 ＝ 通用对话框1.字体名称
编辑框1.文本颜色 ＝ 通用对话框1.字体颜色
编辑框1.字体.加粗 ＝ 通用对话框1.加粗
编辑框1.字体.字体大小 ＝ 通用对话框1.字体大小
编辑框1.字体.倾斜 ＝ 通用对话框1.倾斜
编辑框1.字体.删除线 ＝ 通用对话框1.删除线
编辑框1.字体.下划线 ＝ 通用对话框1.下划线

子程序名	返回值类型	公开	备 注
_另存为_被选择

通用对话框1.类型 ＝ 1
通用对话框1.标题 ＝ “另存为”
如果真 (通用对话框1.打开 ())
文件路径 ＝ 通用对话框1.文件名
写到文件 (文件路径, 到字节集 (编辑框1.内容))

子程序名	返回值类型	公开	备 注
_自动换行_被选择

自动换行.选中 ＝ 取反 (自动换行.选中)
编辑框1.是否允许多行 ＝ 假
如果 (自动换行.选中 ＝ 假)
编辑框1.滚动条 ＝ 3
编辑框1.滚动条 ＝ 2
编辑框1.是否允许多行 ＝ 真

子程序名	返回值类型	公开	备 注
_开始朗读_被选择

变量名	类 型	静态	数组	备 注
yyk	文本型		0
i	整数型

机读文本.设置语音库 (默认语音库)
机读文本.设置语速 (语速)
机读文本.设置声音大小 (100)
机读文本.文本到语音 (0, 编辑框1.内容, , )

子程序名	返回值类型	公开	备 注
_设置语音库_被选择

载入 (语音库, , 真)

子程序名	返回值类型	公开	备 注
_设置语速_被选择

输入框 (“设置语速 -10最慢  10最快”, “设置语音速度”, “5”, 语速, 2)

子程序名	返回值类型	公开	备 注
_停止朗读_被选择

_启动窗口.机读文本.停止发音 ()

子程序名	返回值类型	公开	备 注
_页面设置_被选择

载入 (设置页面, , 真)

子程序名	返回值类型	公开	备 注
_退出_被选择

结束 ()

子程序名	返回值类型	公开	备 注
__启动窗口_尺寸被改变

如果真 (_启动窗口.宽度 ＜ 350)
_启动窗口.宽度 ＝ 350
编辑框1.宽度 ＝ _启动窗口.宽度 － 20
编辑框1.高度 ＝ _启动窗口.高度 － 60
编辑框1.左边 ＝ 2
编辑框1.顶边 ＝ 0
_自动换行_被选择 ()
_自动换行_被选择 ()

子程序名	返回值类型	公开	备 注
_撤销ctrlz_被选择

不编辑 ＝ 真
如果真 (变量 ＞ 1)
变量 ＝ 变量 － 1
重复ctrlx.禁止 ＝ 假
如果 (变量 ≤ 1)
编辑框1.内容 ＝ 内容被改变 [1]
撤销ctrlz.禁止 ＝ 真
编辑框1.内容 ＝ 内容被改变 [变量]
不编辑 ＝ 假

子程序名	返回值类型	公开	备 注
_重复ctrlx_被选择

不编辑 ＝ 真
如果真 (变量 ＜ 取数组成员数 (内容被改变))
变量 ＝ 变量 ＋ 1
撤销ctrlz.禁止 ＝ 假
如果 (变量 ≥ 取数组成员数 (内容被改变))
编辑框1.内容 ＝ 内容被改变 [取数组成员数 (内容被改变)]
重复ctrlx.禁止 ＝ 真
编辑框1.内容 ＝ 内容被改变 [变量]

不编辑 ＝ 假

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

如果真 (不编辑 ＝ 假)
设置 ()

子程序名	返回值类型	公开	备 注
设置

变量名	类 型	静态	数组	备 注
变量1	整数型
文本	文本型

加入成员 (内容被改变, 编辑框1.内容)
变量 ＝ 取数组成员数 (内容被改变)

子程序名	返回值类型	公开	备 注
__启动窗口_可否被关闭	逻辑型

结束 ()

i支持库列表	支持库注释
ESpeechEngine	文本语音转换支持库
EThread	多线程支持库

.版本 2<br /> .支持库 ESpeechEngine<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集1<br /> .程序集变量 是否保存, 逻辑型<br /> .程序集变量 文件路径, 文本型<br /> .程序集变量 机读文本, 机读文本<br /> .程序集变量 撤销sz, 文本型, , "0"<br /> .程序集变量 当前位置, 整数型<br /> .程序集变量 记录, 逻辑型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动线程 (&保证显示出来, , )<br /> <br /> .子程序 保证显示出来<br /> .局部变量 命令, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> <br /> 加入成员 (内容被改变, 编辑框1.内容)<br /> 标题 ＝ “记事本”<br /> 取命令行 (命令)<br /> .如果真 (取数组成员数 (命令) ≥ 1)<br />     标题 ＝ 命令 [1] ＋ “-记事本”<br />     编辑框1.内容 ＝ 到文本 (读入文件 (命令 [1]))<br /> .如果真结束<br /> <br /> <br /> .子程序 _打印_被选择<br /> <br /> 打印机1.开始打印 (, , , , , )<br /> 打印机1.字体 ＝ 编辑框1.字体<br /> 打印机1.写出 (编辑框1.内容)<br /> 打印机1.结束打印 ()<br /> <br /> <br /> .子程序 _新建_被选择<br /> .局部变量 数值, 整数型<br /> <br /> .如果真 (是否保存 ＝ 假)<br />     数值 ＝ 信息框 (“是否将更改进行保存？”, #取消是否钮, “记事本”)<br />     .如果真 (数值 ＝ 5)<br />         _保存_被选择 ()<br />     .如果真结束<br />     .如果真 (数值 ＝ 6)<br />         编辑框1.内容 ＝ “”<br />         _启动窗口.标题 ＝ “无标题 - 记事本”<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _保存_被选择<br /> <br /> .如果真 (文件路径 ＝ “”)<br />     通用对话框1.类型 ＝ 1<br />     通用对话框1.标题 ＝ “保存文件”<br />     .如果真 (通用对话框1.打开 ())<br />         文件路径 ＝ 通用对话框1.文件名<br />     .如果真结束<br /> <br /> .如果真结束<br /> 写到文件 (文件路径, 到字节集 (编辑框1.内容))<br /> <br /> <br /> <br /> .子程序 _打开_被选择<br /> <br /> 通用对话框1.类型 ＝ 0<br /> 通用对话框1.标题 ＝ “打开文件”<br /> .如果真 (通用对话框1.打开 ())<br />     文件路径 ＝ 通用对话框1.文件名<br />     编辑框1.内容 ＝ 到文本 (读入文件 (文件路径))<br /> .如果真结束<br /> <br /> <br /> .子程序 _字体_被选择<br /> <br /> 通用对话框1.类型 ＝ 2<br /> 通用对话框1.标题 ＝ “字体选择”<br /> .如果真 (通用对话框1.打开 ())<br />     编辑框1.字体.字体名称 ＝ 通用对话框1.字体名称<br />     编辑框1.文本颜色 ＝ 通用对话框1.字体颜色<br />     编辑框1.字体.加粗 ＝ 通用对话框1.加粗<br />     编辑框1.字体.字体大小 ＝ 通用对话框1.字体大小<br />     编辑框1.字体.倾斜 ＝ 通用对话框1.倾斜<br />     编辑框1.字体.删除线 ＝ 通用对话框1.删除线<br />     编辑框1.字体.下划线 ＝ 通用对话框1.下划线<br /> .如果真结束<br /> <br /> <br /> .子程序 _另存为_被选择<br /> <br /> 通用对话框1.类型 ＝ 1<br /> 通用对话框1.标题 ＝ “另存为”<br /> .如果真 (通用对话框1.打开 ())<br />     文件路径 ＝ 通用对话框1.文件名<br />     写到文件 (文件路径, 到字节集 (编辑框1.内容))<br /> .如果真结束<br /> <br /> <br /> .子程序 _自动换行_被选择<br /> <br /> 自动换行.选中 ＝ 取反 (自动换行.选中)<br /> 编辑框1.是否允许多行 ＝ 假<br /> .如果 (自动换行.选中 ＝ 假)<br />     编辑框1.滚动条 ＝ 3<br /> .否则<br />     编辑框1.滚动条 ＝ 2<br /> .如果结束<br /> 编辑框1.是否允许多行 ＝ 真<br /> <br /> .子程序 _开始朗读_被选择<br /> .局部变量 yyk, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 机读文本.设置语音库 (默认语音库)<br /> 机读文本.设置语速 (语速)<br /> 机读文本.设置声音大小 (100)<br /> 机读文本.文本到语音 (0, 编辑框1.内容, , )<br /> <br /> .子程序 _设置语音库_被选择<br /> <br /> 载入 (语音库, , 真)<br /> <br /> .子程序 _设置语速_被选择<br /> <br /> 输入框 (“设置语速 -10最慢  10最快”, “设置语音速度”, “5”, 语速, 2)<br /> <br /> <br /> .子程序 _停止朗读_被选择<br /> <br /> _启动窗口.机读文本.停止发音 ()<br /> <br /> .子程序 _页面设置_被选择<br /> <br /> 载入 (设置页面, , 真)<br /> <br /> .子程序 _退出_被选择<br /> <br /> 结束 ()<br /> <br /> .子程序 __启动窗口_尺寸被改变<br /> <br /> .如果真 (_启动窗口.宽度 ＜ 350)<br />     _启动窗口.宽度 ＝ 350<br /> .如果真结束<br /> 编辑框1.宽度 ＝ _启动窗口.宽度 － 20<br /> 编辑框1.高度 ＝ _启动窗口.高度 － 60<br /> 编辑框1.左边 ＝ 2<br /> 编辑框1.顶边 ＝ 0<br /> _自动换行_被选择 ()<br /> _自动换行_被选择 ()<br /> <br /> .子程序 _撤销ctrlz_被选择<br /> <br /> 不编辑 ＝ 真<br /> .如果真 (变量 ＞ 1)<br />     变量 ＝ 变量 － 1<br />     重复ctrlx.禁止 ＝ 假<br /> .如果真结束<br /> .如果 (变量 ≤ 1)<br />     编辑框1.内容 ＝ 内容被改变 [1]<br />     撤销ctrlz.禁止 ＝ 真<br /> .否则<br />     编辑框1.内容 ＝ 内容被改变 [变量]<br /> .如果结束<br /> 不编辑 ＝ 假<br /> <br /> <br /> .子程序 _重复ctrlx_被选择<br /> <br /> 不编辑 ＝ 真<br /> .如果真 (变量 ＜ 取数组成员数 (内容被改变))<br />     变量 ＝ 变量 ＋ 1<br />     撤销ctrlz.禁止 ＝ 假<br /> .如果真结束<br /> .如果 (变量 ≥ 取数组成员数 (内容被改变))<br />     编辑框1.内容 ＝ 内容被改变 [取数组成员数 (内容被改变)]<br />     重复ctrlx.禁止 ＝ 真<br /> .否则<br />     编辑框1.内容 ＝ 内容被改变 [变量]<br /> .如果结束<br /> <br /> 不编辑 ＝ 假<br /> <br /> <br /> .子程序 _编辑框1_内容被改变<br /> <br /> .如果真 (不编辑 ＝ 假)<br />     设置 ()<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 设置<br /> .局部变量 变量1, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> 加入成员 (内容被改变, 编辑框1.内容)<br /> 变量 ＝ 取数组成员数 (内容被改变)<br /> <br /> <br /> .子程序 __启动窗口_可否被关闭, 逻辑型<br /> <br /> 结束 ()

记事本.zip (8.34 KB, 下载次数: 179)

2017-4-17 12:26 上传

点击文件名下载附件

jmx168

蛮不错，谢谢分享

阿欢sdf

看看哦哦谢谢

dnf1995

看看是什么

323232323232323

谔谔谔谔谔谔谔谔谔谔谔谔谔谔

wanlinhao

6666666666666666666666666666666666666666666

[佛系]

666666            

明天你好呀！

666666666666666

叶子c

看看，学习一下

DSWJSTG

感谢楼主分享

front88

新手学习
6666666