易语言源码

哦 哦 ，那我给你个记事本的源码吧 如下

.版本 2

.支持库 iext2

.支持库 iext

.支持库 eAPI

.程序集 窗口程序集1

.程序集变量 文件路径, 文本型

.程序集变量 当前是否正在打字, 逻辑型

.子程序 _超级编辑框1_内容被改变, , , 更改超级编辑框的颜色

.局部变量 颜色, 字符格式

颜色.文本颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))

超级编辑框1.置选择区字符格式 (颜色)

状态条1.置文本 (0, “行 ” ＋ 到文本 (超级编辑框1.取行数 ()) ＋ “ 文本长度 ” ＋ 到文本 (超级编辑框1.取文本长度 ()))

.子程序 __启动窗口_创建完毕, , , 设置通用对话框

通用对话框1.过滤器 ＝ “txt|*.txt”

通用对话框1.默认文件后缀 ＝ “txt”

通用对话框1.标题 ＝ “传说记事本保存对话框...”

_时间日期码者_被选择 ()

_炫银皮肤_被选择 ()

备忘录提醒 ()

.子程序 __启动窗口_位置被改变, , , 位置被改变后超级编辑框也跟着改变(按钮1也跟着改变)

.如果真 (_启动窗口.位置 ＝ 3)

超级编辑框1.宽度 ＝ 取屏幕宽度 () － 3

超级编辑框1.高度 ＝ 取屏幕高度 () － 80 － 按钮1.高度 － 10

按钮1.顶边 ＝ 取屏幕高度 () － 状态条1.高度 － 100

按钮1.宽度 ＝ 取屏幕宽度 () － 5

按钮1.高度 ＝ 状态条1.高度 ＋ 10

.如果真结束

.如果真 (_启动窗口.位置 ＝ 0)

超级编辑框1.宽度 ＝ _启动窗口.宽度 － 10

超级编辑框1.高度 ＝ _启动窗口.高度 － 55 － 按钮1.高度 － 10

按钮1.顶边 ＝ 200

按钮1.宽度 ＝ 560

.如果真结束

.子程序 _新建_被选择, , , New文件

.如果真 (超级编辑框1.内容 ≠ “”)

.如果真 (信息框 (“您还没保存!请问您要进行保存吗?”, 4, ) ＝ #是钮)

通用对话框1.类型 ＝ 1

通用对话框1.打开 ()

写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))

.如果真结束

.如果真结束

.子程序 _打开_被选择, , , Open文件

通用散顷对话框1.类型 ＝ 0

通用对话框1.打开 ()

.如果真 (通用对话框1.文件名 ≠ “”)

超级编辑框1.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))

文件路径 ＝ 通用对话框1.文件名

.如果真结束

.子程序 _保存_被选择, , , Save文件

.如果真 (文件路径 ＝ “”)

通用对话框1.类型 ＝ 1

通用对话框1.打开 ()

写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))

.如果真结束

.如果真 (文件路径 ≠ “”)

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

.如果真结束

.子程序 _保存到_被选择, , , Save As文件

通用对话框1.类型 ＝ 1

通用对话框1.打开 ()

.如果真 (通用对冲模陆话框1.文件名 ≠ “”)

写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))

.如果真结束

.子程序 _撤销_被选择, , , Undo 文本

超级编辑框1.撤消 ()

.子程序 _剪切_被选择, , , Cut 文本

超级编辑框1.剪切 ()

.子程序 _复制_被选择, , , Copy 文本

超级编辑框1.复制 ()

.子程序 _粘连_被选择, , , Paste文本

超级编辑框1.粘贴 ()

.子程序 _删除_被选择, , , Delete文本

超级编辑框1.删除 ()

超级编辑框1.内容 ＝ 取文本左边 (超级编辑框1.内容, 取文本长度 (超级编辑框1.内容) － 1)

.子程序 _寻找_被选择, , , Find文本

载入 (Find窗口, , 真)

.子程序 _寻找下一个_被选择, , , 还没解决好

.子程序 _文本替换_被选择, , , 文本替换

载入 (文本替换窗口, , 真)

.子程序 _跳到_被选择, , , 还没解决好

载入 (跳到窗口, , 真)

.子程序 _全选_被选择, , , Select All文本

超级编辑框1.被选择字符数 ＝ 取文本长度 (超级编辑框1.内容)

.子程序 _时间日期_被选择, , , Time-Date

.局部变量 小时, 文本型

.局部变量 分钟, 文本型

.局部变量 日期, 文本型

.局部变量 年份, 文本型

.局部变量 月份, 文本型

.局部变量 日份, 文本型

小时 ＝ 到文本 (取小时 (取现行时间 ()))

分钟 ＝ 到文本 (取分钟 (取现行时间 ()))

年份 ＝ 到文本 (取年份 (取现行时间 ()))

月份 ＝ 到文本 (取月份 (取现行时间 ()))

日份 ＝ 到文本 (取日 (取现行时间 ()))

状态条1.置文本 (1, 小时 ＋ “:” ＋ 分钟 ＋ “ ” ＋ 年份 ＋ “-” ＋ 月份 ＋ “-” ＋ 日份)

.子程序 _传说记事本v13_被选择, , , About Notepad

信息框 (“软件作者:古老的传说” ＋ #换行符 ＋ “QQ:1041750677” ＋ #换行符 ＋ “MSN:thum_wai_lun@hotmail.com” ＋ #换行符 ＋ “编写工具:易语言” ＋ #换行符 ＋ “软件版本:1.3” ＋ #换行符, 0, )

.子程序 _密码保管_被选择, , , Password Protect

载入 (密码窗口, , 真)

.子程序 _备忘录_被选择, , , 载入备忘录窗口

载入 (备忘录窗口, , 真)

.子程序 备忘录提醒, , , 备忘录提醒

.局部变量 分割文本, 文本型, , "0"

.局部变量 今天日期, 文本型

.局部变量 分割今天日期, 文本型, , "0"

分割文本 ＝ 分割文本 (读配置项 (取运行目录 () ＋ “\备忘录.ini”, “备忘录”, “提示日期”, ), “日”, )

今天日期 ＝ 到文本 (取日期 (取现行时间 ()))

分割今天日期 ＝ 分割文本 (今天日期, “日”, )

.如果真 (取数组成员数 (分割文本) ＝ 1 或 取数组成员数 (分割文本) ＞ 1)

.如果真 (分割文本 [1] ＝ 分割今天日期 [1])

状态条1.置文本 (2, “您今天有一份备忘录噢^_^”)

.如果真结束

.如果真结束

.子程序 _银白皮肤_被选择, , , 银白皮肤

更换新皮肤 (1)

.子程序 _浅白皮肤_被选择, , , 浅白皮肤

更换新皮肤 (10)

.子程序 _浅灰皮肤_被选择, , , 浅灰皮肤

更换新皮肤 (13)

.子程序 _浅蓝皮肤_被选择, , , 浅蓝皮肤

更换新皮肤 (19)

.子程序 _浅黑皮肤_被选择, , , 浅黑皮肤

更换新皮肤 (5)

.子程序 _炫银皮肤_被选择, , , 炫银皮肤

更换新皮肤 (2)

.子程序 _炫白皮肤_被选择, , , 炫白皮肤

更换新皮肤 (15)

.子程序 _炫蓝皮肤_被选择, , , 炫蓝皮肤

更换新皮肤 (18)

.子程序 _深黑皮肤_被选择, , , 深黑皮肤

更换新皮肤 (14)

.子程序 __启动窗口_可否被关闭, 逻辑型, , 透明显示最小化运行

.局部变量 变量1, 整数型

变量1 ＝ 255

.计次循环首 (255, )

设置窗口透明度 (_启动窗口.取窗口句柄 (), 变量1)

变量1 ＝ 变量1 － 1

.如果真 (变量1 ＝ 1)

置托盘图标 (#程序图标, “古老的传说记事本v1.2”)

_启动窗口.可视 ＝ 假

.如果真结束

.计次循环尾 ()

返回 (假)

.子程序 __启动窗口_托盘事件, , , 透明显示_启动窗口

.参数 *** 作类型, 整数型

.局部变量 变量1, 整数型

.如果真 ( *** 作类型 ＝ 1)

_启动窗口.可视 ＝ 真

.计次循环首 (255, 变量1)

设置窗口透明度 (_启动窗口.取窗口句柄 (), 变量1)

.计次循环尾 ()

.如果真结束

.如果真 ( *** 作类型 ＝ 3)

d出菜单 (图标菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())

.如果真结束

.子程序 __启动窗口_将被销毁, , , 销毁任务栏图标

置托盘图标 ({ }, )

.子程序 _打开传说记事本_被选择, , , _启动窗口.可视=真

__启动窗口_托盘事件 (1)

.子程序 _销毁_被选择, , , 销毁软件

销毁 ()

.子程序 _超级编辑框1_按下某键, 逻辑型, , 正在打字中...

.参数 键代码, 整数型

.参数 功能键状态, 整数型

当前是否正在打字 ＝ 真

按钮1.标题 ＝ “正在打字中...”

时钟1.时钟周期 ＝ 800

返回 (真)

.子程序 _超级编辑框1_放开某键, 逻辑型, , 暂停打字中...

.参数 键代码, 整数型

.参数 功能键状态, 整数型

当前是否正在打字 ＝ 假

返回 (真)

.子程序 _时钟1_周期事件, , , 暂停打字中...

.如果真 (当前是否正在打字 ＝ 假)

按钮1.标题 ＝ “暂停打字中...”

.如果真结束

.子程序 _超级编辑框1_选择区被改变, , , 超级编辑框1.滚动

超级编辑框1.滚动 (1)

先编译一个“独立运行做隐的exe”

把这燃胡笑个程序添加到图片XXX资源里面

_启动窗口

_按钮1被单击

写出文件皮含（取特定目录（3）+“\XX.exe”，#XX）

运行（取特定目录（3）+“\XX.exe”）

如果还没有编译陆闭生成软件，如悉喊而是渣野*.e源码的话， 可以到http://www.eyuyan.com/pdown.htm下载易语言打开查看。

如果编译生成软件了，那么就无法简单的查看源码了。

---