精易论坛

标题: 超级记事本优化版源码 [打印本页]

作者: hg232332    时间: 2017-4-17 12:31
标题: 超级记事本优化版源码
本帖最后由 时不知归 于 2017-4-17 13:09 编辑

大家好,我给大家带来的记事本的源码。有些地方还是非常不足的。请大神进行修改。做的不好勿喷。毕竟做这个也是花了我很长时间。大家可以去到这个记事本里弄个皮肤模块。更美观点。我的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多线程支持库

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

作者: hg232332    时间: 2017-4-17 12:33
大家对不起了。我没有注意到标题。其实这个是记事本源码。不是植物大战僵尸的。对不起
作者: hg232332    时间: 2017-4-17 12:34
对不起了各位
作者: sen33123    时间: 2017-4-18 00:18
感谢分享了,学习中
作者: 桐桐    时间: 2017-4-18 09:56
感谢分享了,学习中
作者: abc147325    时间: 2017-4-18 17:41
感谢分享了,谢谢
作者: 骑着小毛驴去996    时间: 2017-4-18 18:47
谢谢了,看看!
作者: ei9997    时间: 2017-4-18 18:58
导出到桌面的文本 不是txt格式的
作者: atcgyouxiang    时间: 2017-4-18 19:56
没有模块奥啊,怎么回事
作者: 章若楠    时间: 2017-4-18 20:06
感谢楼主分享
作者: shdily    时间: 2017-4-19 07:14
学习一下,谢谢
作者: 终极易人    时间: 2017-4-19 13:29
下载来看看 自己写过  但是功能不多
作者: lala精易    时间: 2017-4-19 15:22
还是比较实用,下一个学习一下
作者: sunji888    时间: 2017-4-21 19:52
过来看看哈哈
作者: 2509451457    时间: 2017-4-26 14:11
新手学习
6666666
作者: 章若楠    时间: 2017-5-11 22:07
感谢楼主分享
作者: lzb288    时间: 2017-5-16 10:33
谢谢,学习源码了。
作者: front88    时间: 2017-5-18 23:44
新手学习
6666666

作者: DSWJSTG    时间: 2017-5-24 13:11
感谢楼主分享
作者: 叶子c    时间: 2017-6-22 22:13
看看,学习一下
作者: 明天你好呀!    时间: 2018-7-24 14:48
666666666666666
作者: [佛系]    时间: 2018-8-17 10:38
666666            
作者: wanlinhao    时间: 2018-8-19 11:10
6666666666666666666666666666666666666666666
作者: 323232323232323    时间: 2019-2-11 09:06
谔谔谔谔谔谔谔谔谔谔谔谔谔谔
作者: dnf1995    时间: 2019-7-9 21:14
看看是什么
作者: 阿欢sdf    时间: 2023-5-3 10:56
看看哦哦谢谢
作者: jmx168    时间: 2023-10-25 14:06
蛮不错,谢谢分享




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4