易语言代码编辑框怎么用
展开全部
.版本 2
.子程序 _编辑框1_内容被改变
.如果 (判断格式 (编辑框1.内容) = 真)
编辑框2.禁止 = 假 ' 格式正确就解除禁止编辑框2
.否则
编辑框2.禁止 = 真 ' 当输入改变时,格式不正确 继续禁止编辑框2
.如果结束
.子程序 判断格式, 逻辑型
.参数 文本, 文本型
.局部变量 临时数组, 文本型, , "0"
.如果真 (取文本长度 (文本) = 5)
临时数组 = 分割文本 (文本, “.”, )
.如果真 (取数组成员数 (临时数组) = 3) ' 当长度为5,只有一种格式才能形成数组成员为3,那就是 如:1.1.1
返回 (真) ' 格式正确返回真
.如果真结束
.如果真结束
返回 (假) ' 格式不正确返回假
.子程序 __启动窗口_创建完毕
编辑框2.禁止 = 真
.子程序 _编辑框1_字符输入, 整数型
.参数 字符代码, 整数型
.如果真 (字符代码 < 48 且 字符代码 ≠ 46 或 字符代码 > 57) ' 只允许输入0-9及符号点“.”
返回 (0)
.如果真结束
.子程序 _编辑框2_字符输入, 整数型, , 限制只能数字及符号点的输入,以减少后面格式判断的复杂性
.参数 字符代码, 整数型
.如果真 (字符代码 < 48 且 字符代码 ≠ 46 或 字符代码 > 57) ' 只允许输入0-9及符号点“.”
返回 (0)
.如果真结束
.子程序 _按钮1_被单击
.如果 (判断格式 (编辑框2.内容) = 真)
编辑框3.内容 = “格式正确”
.否则
编辑框3.内容 = “格式错误”
.如果结束
.子程序 _编辑框1_内容被改变
.如果 (判断格式 (编辑框1.内容) = 真)
编辑框2.禁止 = 假 ' 格式正确就解除禁止编辑框2
.否则
编辑框2.禁止 = 真 ' 当输入改变时,格式不正确 继续禁止编辑框2
.如果结束
.子程序 判断格式, 逻辑型
.参数 文本, 文本型
.局部变量 临时数组, 文本型, , "0"
.如果真 (取文本长度 (文本) = 5)
临时数组 = 分割文本 (文本, “.”, )
.如果真 (取数组成员数 (临时数组) = 3) ' 当长度为5,只有一种格式才能形成数组成员为3,那就是 如:1.1.1
返回 (真) ' 格式正确返回真
.如果真结束
.如果真结束
返回 (假) ' 格式不正确返回假
.子程序 __启动窗口_创建完毕
编辑框2.禁止 = 真
.子程序 _编辑框1_字符输入, 整数型
.参数 字符代码, 整数型
.如果真 (字符代码 < 48 且 字符代码 ≠ 46 或 字符代码 > 57) ' 只允许输入0-9及符号点“.”
返回 (0)
.如果真结束
.子程序 _编辑框2_字符输入, 整数型, , 限制只能数字及符号点的输入,以减少后面格式判断的复杂性
.参数 字符代码, 整数型
.如果真 (字符代码 < 48 且 字符代码 ≠ 46 或 字符代码 > 57) ' 只允许输入0-9及符号点“.”
返回 (0)
.如果真结束
.子程序 _按钮1_被单击
.如果 (判断格式 (编辑框2.内容) = 真)
编辑框3.内容 = “格式正确”
.否则
编辑框3.内容 = “格式错误”
.如果结束
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询