用易语言做一个一到时间就提示的软件 源码
.版本 2
.支持库 EThread
.子程序 _按钮1_被单击
时钟1.时钟周期 = 到整数 (编辑框1.内容) × 60 × 1000 ' 1等于一分钟
.子程序 _时钟1_周期事件
启动线程 (&子程序, , )
.子程序 子程序
时钟1.时钟周期 = 0
信息框 (“fffffffffffffff”, 0, )
时钟1.时钟周期 = 到整数 (编辑框1.内容) × 60 × 1000
求e语言编程大神给我编个这种记事本的源码,1239811000发我
.版本 2.程序集 窗口程序集1.子程序 __启动窗口_创建完毕编辑框1.文本颜色 = #白色.子程序 _颜色选择器1_颜色被改变编辑框1.文本颜色 = 颜色选择器1.颜色.子程序 __启动窗口_鼠标右键被放开, 逻辑型.参数 横向位置, 整数型.参数 纵向位置, 整数型.参数 功能键状态, 整数型弹出菜单 (操作, , ).子程序 _标签1_鼠标右键被放开, 逻辑型.参数 横向位置, 整数型.参数 纵向位置, 整数型.参数 功能键状态, 整数型弹出菜单 (操作, , ).子程序 _编辑框1_鼠标右键被放开, 逻辑型.参数 横向位置, 整数型.参数 纵向位置, 整数型.参数 功能键状态, 整数型弹出菜单 (操作, , ).子程序 _最小化_被选择位置 = 2.子程序 _时钟1_周期事件_启动窗口.标题 = 到文本 (取现行时间 ()).子程序 _标签5_鼠标左键被放开, 逻辑型.参数 横向位置, 整数型.参数 纵向位置, 整数型.参数 功能键状态, 整数型写到文件 (取运行目录 () + “\记事本.txt”, 到字节集 (编辑框1.内容)).子程序 _标签6_鼠标左键被放开, 逻辑型.参数 横向位置, 整数型.参数 纵向位置, 整数型.参数 功能键状态, 整数型销毁 ()