易语言自定义数据类型的使用代码

删除数组重复成员的代码 .版本 2 .支持库 spec .程序集 窗口程序集1 .程序集变量 数组, 整数型, , "0" .子程序 __启动窗口_创建完毕 置随机数种子 () .计次循环首 (10, ) 加入成员 (数组, 取随机数 (1, 5)) .计次循环尾 () 调试输出 (数组) .子程序 _去重按钮_被单击 .局部变量 计次1, 整数型 .局部变量 计次2, 整数型 .计次循环首 (取数组成员数 (数组), 计次1) .如果真 (计次1 > 取数组成员数 (数组))

DLL命令代码 .版本 2 .DLL命令 清空回收站, 整数型, "shell32.dll", "SHEmptyRecycleBinA" .参数 hwnd, 整数型 .参数 lppath, 整数型 .参数 flag, 整数型 清空回收站代码 .版本 2 .程序集 窗口程序集1 .子程序 _清空按钮_被单击 .局部变量 风格, 整数型 .如果真 (显示清空选择框.选中) 风格 ＝ 0 .如果真结束 .如果真 (显示清空选择框.选中 ＝ 假) 风格 ＝ 7 .如果真结束

将时间转换到纯数字格式的代码 .版本 2 .程序集 窗口程序集1 .程序集变量 年, 文本型 .程序集变量 月, 文本型 .程序集变量 日, 文本型 .程序集变量 时, 文本型 .程序集变量 分, 文本型 .程序集变量 秒, 文本型 .子程序 获取时间 年 ＝ 到文本 (取年份 (取现行时间 ())) .判断开始 (取月份 (取现行时间 ()) < 10) 月 ＝ 到文本 ("0") + 到文本 (取月份 (取现行时间 ())) .默认 月 ＝ 到文本 (取月份 (取现行时间 (

如果真判断代码 .版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 编辑框1.获取焦点 () .子程序 _显示内容按钮_被单击 .如果真 (编辑框1.内容 ≠ "中国队") 信息框 ("已修改为正确内容", 48, , ) 编辑框1.内容 ＝ "中国队" .如果真结束 编辑框1.内容 ＝ 编辑框1.内容 + "加油!" 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定

常量数据表 .版本 2 .常量 GetDiskList, "<文本长度: 613>" 取磁盘信息代码 .版本 2 .程序集 窗口程序集1 .子程序 _取硬盘信息按钮_被单击 硬盘信息编辑框.内容 ＝ 取硬盘列表 () .子程序 取硬盘列表, 文本型, 公开 .局部变量 Script, 对象 .局部变量 ret, 文本型 Script.创建 ("MSScriptControl.ScriptControl", ) Script.写属性 ("Lang

获取任意键的键代码 .版本 2 .程序集 窗口程序集1 .子程序 _键代码编辑框_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 键代码编辑框.内容 ＝ 到文本 (键代码) 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查看下面相关链接

禁止日期框选择小于当前日期的代码 .版本 2 .程序集 窗口程序集1 .子程序 _日期框_选择日期被改变 .如果真 (日期框.今天 < 取现行时间 ()) 信息框 ("不可选择以前的日期!", 16, "提示", ) 日期框.今天 ＝ 取现行时间 () 返回 () .如果真结束 运行结果: 总结 以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对我们的支持.如果你想了解更多相关内容请查看下面相关链接

创建随机数并将其排序的代码 .版本 2 .程序集 窗口程序集1 .子程序 _排序按钮_被单击 .局部变量 计次 .局部变量 寄存器, 整数型, , "20" .局部变量 N 置随机数种子 () .计次循环首 (取数组成员数 (寄存器), 计次) 寄存器 [计次] ＝ 取随机数 (1, 100) .计次循环尾 () .计次循环首 (取数组成员数 (寄存器), 计次) .计次循环首 (取数组成员数 (寄存器) - 1, N) .判断开始 (寄存器 [N] > 寄存器 [计次]) .默

文本和字节集数据互相转换的代码 .版本 2 .程序集 窗口程序集1 .子程序 文本到字节集, 文本型, 公开 .参数 要转换的文本, 文本型 .局部变量 字节集变量, 字节集 .局部变量 循环次数, 整数型 .局部变量 字节型变量, 字节集 .局部变量 要输出的文本, 文本型 .局部变量 文本数据, 文本型 文本数据 ＝ 要转换的文本 字节集变量 ＝ 到字节集 (文本数据) .计次循环首 (取字节集长度 (字节集变量), 循环次数) 字节型变量 ＝ 取字节集中间 (字节集变量, 循环次数, 1)

秒数与时分秒格式转换的代码 .版本 2 .程序集 窗口程序集1 .子程序 _秒数转换成时间按钮_被单击 .局部变量 总秒数 .局部变量 时 .局部变量 分 .局部变量 秒 总秒数 ＝ 到数值 (输入秒数编辑框.内容) 秒 ＝ 到数值 (输入秒数编辑框.内容) 分 ＝ 取整 (秒 ÷ 60) 秒 ＝ 秒 % 60 .如果真 (分 ≥ 60) 时 ＝ 取整 (分 ÷ 60) 分 ＝ 分 % 60 .如果真结束 信息框 (到文本 (总秒数) + "秒 = " + 到文本 (时) + &quo

设置热键呼出窗口的代码 .版本 2 .支持库 shellEx .程序集 窗口程序集1 .程序集变量 F3, 整数型 .子程序 __启动窗口_创建完毕 F3 ＝ 注册热键 (_启动窗口.取窗口句柄 (), 热键呼出标签.取窗口句柄 (), 0, #F3键) .子程序 _热键呼出标签_反馈事件, 整数型 .参数 呼出, 整数型 .参数 参数二, 整数型 .如果真 (呼出 ＝ F3) _启动窗口.位置 ＝ 1 ' 1. 居中 2. 最小化 3. 最大化 _启动窗口.总在最前 ＝ 真 处理事件 () _

子程序数据传递应用代码 .版本 2 .程序集 窗口程序集1 .子程序 _显示按钮_被单击 .局部变量 整数变量1, 整数型 .局部变量 整数变量2, 整数型 .局部变量 小数变量1, 小数型 .局部变量 小数变量2, 小数型 .局部变量 文本型变量1, 文本型 .局部变量 文本型变量2, 文本型 参数赋值 (整数变量1, 整数变量2, 小数变量1, 小数变量2, 文本型变量1, 文本型变量2) 编辑框1.加入文本 ("参考整数型参数中的变量:" + 到文本 (整数变量1) + #换行符

如果.如果真.判断的区别 .版本 2 .程序集 窗口程序集1 .子程序 _如果按钮_被单击, , , 如果() .如果 (输入编辑框.内容 ＝ 到文本 (1)) 提示标签.标题 ＝ "[如果命令提示]你输入的是1号指令" .否则 .如果 (输入编辑框.内容 ＝ 到文本 (2)) 提示标签.标题 ＝ "[如果命令提示]你输入的是2号指令" .否则 .如果 (输入编辑框.内容 ＝ 到文本 (3)) 提示标签.标题 ＝ "[如果命令提示]你输入的是3号指令&qu

取随机数而且不重复的代码 .版本 2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 .局部变量 数组, 整数型, , "0" .局部变量 计次变量, 整数型 .局部变量 随机位置, 整数型 .计次循环首 (50, 计次变量) 加入成员 (数组, 计次变量) .计次循环尾 () .计次循环首 (5, 计次变量) 置随机数种子 () 随机位置 ＝ 取随机数 (1, 取数组成员数 (数组)) ' 取出的随机数是数组成员的位置 输出调试文本 (数组 [随机位置]) 删除成员 (数组

双色球随机选号代码 .版本 2 .程序集 窗口程序集1 .子程序 _随机选号按钮_被单击 .局部变量 z, 逻辑型 .局部变量 随机号 随机号 ＝ 取随机数 (1, 33) .如果 (随机号 < 10) 红球编辑框1.内容 ＝ "0" + 到文本 (随机号) .否则 红球编辑框1.内容 ＝ 到文本 (随机号) z ＝ 假 .如果结束 .循环判断首 () 随机号 ＝ 取随机数 (1, 33) .如果 (随机号 ＝ 到数值 (红球编辑框1.内容)) z ＝ 真 .否则 .如果 (随机