标题: 易语言代码赏析 [打印本页]
作者: yfiuop5696 时间: 2017-4-19 21:39
标题: 易语言代码赏析
事件主窗口.创建完毕()
单选框1.背景颜色 = 无色
单选框2.背景颜色 = 无色
单选框3.背景颜色 = 无色
结束事件
事件单选框1.选择改变()
如果 单选框1.选中 = 真 则
单选框2.选中 = 假
单选框3.选中 = 假
结束 如果
结束事件
事件单选框2.选择改变()
如果 单选框2.选中 = 真 则
单选框1.选中 = 假
单选框3.选中 = 假
结束 如果
结束事件
事件单选框3.选择改变()
如果 单选框3.选中 = 真 则
单选框2.选中 = 假
单选框1.选中 = 假
结束 如果
结束事件'
事件主窗口.按下某键(键代码为 整数型,传址 屏蔽 为 逻辑型)
判断 键代码
分支 返回键
弹出提示("你按下了返回键！")'如果 键代码=返回键 则弹出相应提示
分支 音量增键
弹出提示("你按下了音量增键！")'如果 键代码=音量增键 则弹出相应提示
分支 音量减键
弹出提示("你按下了音量减键！")'如果 键代码=音量减键 则弹出相应提示
分支 中键
弹出提示("你按下了中键")'如果 键代码=中键 则弹出相应提示
结束 判断
结束事件
事件单选框1.选择改变()
如果 单选框1.选中 = 真 则
单选框2.选中 = 假
否则
单选框2.选中 = 真
结束 如果
结束事件
事件单选框2.选择改变()
如果 单选框2.选中 = 真 则
单选框1.选中 = 假
否则
单选框1.选中 = 真
结束 如果
结束事件
事件按钮1.被单击()
如果 单选框1.选中 = 真 则
信息框("信息：","感谢您的支持,我们将做得更好！","确定")
结束 如果
结束事件
事件按钮2.被单击()
结束 事件
事件主窗口.按下某键(键代码为 整数型,传址 屏蔽 为 逻辑型)
判断 键代码
分支 返回键
弹出提示("你按下了返回键！")'如果 键代码=返回键 则弹出相应提示
分支 音量增键
弹出提示("你按下了音量增键！")'如果 键代码=音量增键 则弹出相应提示
分支 音量减键
弹出提示("你按下了音量减键！")'如果 键代码=音量减键 则弹出相应提示
分支 中键
弹出提示("你按下了中键")'如果 键代码=中键 则弹出相应提示
结束 判断
结束事件
事件单选框1.选择改变()
如果 单选框1.选中 = 真 则
单选框2.选中 = 假
否则
单选框2.选中 = 真
结束 如果
结束事件
事件单选框2.选择改变()
如果 单选框2.选中 = 真 则
单选框1.选中 = 假
否则
单选框1.选中 = 真
结束 如果
结束事件
事件按钮1.被单击()
如果 单选框1.选中 = 真 则
信息框("信息：","感谢您的支持,我们将做得更好！","确定")
结束 如果
结束事件
事件按钮2.被单击()
变量 计数 为 整数型
变量 结果 为 整数型
变量循环首 计数 = 1 至 100 步进 1 '变量循环,变量"计数"从1递增到100,每次递增值为步进值1,步进值默认为1,这里就可以省略不写,步进值也可以为负数,表示递减
结果 = 结果 + 计数
变量循环尾
信息框("信息：","累加结果为："& 结果 ,"确定")
结束事件
事件按钮3.被单击()
变量 计次 为 整数型
判断循环首 计次 < 10 '如果条件满足就继续执行循环中的语句,如果条件不满足时则停止循环
计次 = 计次 + 1
判断循环尾
弹出提示("共循环"& 计次 & "次")
结束事件
事件按钮4.被单击()
变量 文本数组 为 文本型()
变量 当前文本 为 文本型
文本数组=分割文本("项目1|项目2|项目3","|")
枚举循环首 当前文本 从 文本数组 '将文本数组中的每一个成员枚举出来,赋值给当前文本变量
调试输出(当前文本)
编辑框1.内容 = 编辑框1.内容 &"\n" & 当前文本
枚举循环尾
结束事件
| 欢迎光临 (http://www.51hei.com/bbs/) |
Powered by Discuz! X3.1 |