|
|
|
|
|
|
||
在易语言编程中目前没办法实现控件数组，估计以后应该可以吧。今天因一网友问到类似的问题，所以写了段代码供易语言爱好者学习。
这程序比较简单，新建个Windows窗体程序文件后，在窗体上画上三个单选框、两个选择框和一个按钮。代码实现如下：
.版本 2
.程序集 窗口程序集1
.程序集变量 单选框数组, 单选框, , "3", 定义单选框数组，成员数为3个
.程序集变量 选择框方式判断数组, 选择框, , "2", 定义选择框数组，成员数为2个
.子程序 _按钮1_被单击
.局部变量 循环变量, 整数型
.如果真 (选择框方式判断数组 [2].选中)
选择框方式判断数组 [1].选中 ＝ 假
.变量循环首 (1, 3, 1, 循环变量)
.判断循环首 (单选框数组 [循环变量].选中)
判断选中单选框 (到数值 (单选框数组 [循环变量].标记))
跳出循环 ()
.判断循环尾 ()
.变量循环尾 ()
.如果真结束
.子程序 __启动窗口_创建完毕, , , 初始化
================初始化单选框标记，这里可在每个单选框属性中直接设置====================
单选框1.标记 ＝ 到文本 (1)
单选框2.标记 ＝ 到文本 (2)
单选框3.标记 ＝ 到文本 (3)
================初始化选择框标记，这里可在每个选择框属性中直接设置====================
选择框1.标记 ＝ 到文本 (1)
选择框2.标记 ＝ 到文本 (2)
================初始化单选框数组====================
单选框数组 [1] ＝ 单选框1
单选框数组 [2] ＝ 单选框2
单选框数组 [3] ＝ 单选框3
单选框数组 [n] ＝ 单选框n
================初始化选择框方式判断数组====================
选择框方式判断数组 [1] ＝ 选择框1
选择框方式判断数组 [2] ＝ 选择框2
选择框方式判断数组 [n] ＝ 选择框n
================初始化按钮1不可单击===================
按钮1.禁止 ＝ 真
.子程序 判断选中单选框, , , 检测单选框事件过程
.参数 单选框标记, 整数型
.判断开始 (单选框标记 ＝ 1)
信息框 (“当前选择了单选框” ＋ 到文本 (单选框标记), 0, “提示”)
.判断 (单选框标记 ＝ 2)
信息框 (“当前选择了单选框” ＋ 到文本 (单选框标记), 0, “提示”)
.判断 (单选框标记 ＝ 3)
信息框 (“当前选择了单选框” ＋ 到文本 (单选框标记), 0, “提示”)
.判断 (单选框标记 ＝ 0)
信息框 (“当前没有选择任何单选框”, 0, “提示”)
.默认
.判断结束
.子程序 _单选框1_被单击
.判断开始 (选择框方式判断数组 [1].选中) 用于单选框中直接检测单选事件判断
判断选中单选框 (到数值 (单选框1.标记))
.默认
.判断结束
.子程序 _单选框2_被单击
.判断开始 (选择框方式判断数组 [1].选中) 用于单选框中直接检测单选事件判断
判断选中单选框 (到数值 (单选框2.标记))
.默认
.判断结束
.子程序 _单选框3_被单击
.判断开始 (选择框方式判断数组 [1].选中) 用于单选框中直接检测单选事件判断
判断选中单选框 (到数值 (单选框3.标记))
.默认
.判断结束
.子程序 _选择框1_被单击
选择框方式判断数组 [2].选中 ＝ 假
.子程序 _选择框2_被单击
选择框方式判断数组 [1].选中 ＝ 假
按钮1.禁止 ＝ 假
最新评论|
|
|
|
|
|
||