永发信息网

易语言做软件

答案:5  悬赏:0  手机版
解决时间 2021-05-01 09:54
怎样用以语言制作一个编辑框显示软件??
最佳答案
是这样的效果么?
全部回答

ife(编辑框1.内容=“22222”)

编辑框2.内容=“333333”

如果真结束

从图上没有很明白你的意思

如果你是需要 当编辑框1的内容=22222 的时候,按下按钮 编辑框2的内容=33333

那么就如上面贴的图那样,加个判断就行了.!

如果你不能解决你的问题,欢迎追问!

可以取字符来实现,每一个字符加1,最终合起来显示出来就可以了,不过易语言我不会写,但思路绝对是没问题。

提供一个VB的代码给你参考一下,带上解释了,应该能明白。

Dim a(16) As String '定义一个数组A,用来存储文本1每一位的内容+1

Dim c As String '定义一个字符串变量C,用来赋值给文本2

Private Sub Command1_Click() '按钮1的单击事件

If c = "" Then '判断C的内容是否为空(默认初始值为空)

For i = 1 To Len(Text1.Text) '循环1至文本1的长度(次)

a(i) = Mid(Text1.Text, i, 1) + 1 '赋值给数组A

c = c + a(i) '将C的值加上数组A的值赋给C

Text2.Text = c '最后将C的值赋给文本2

Next '循环结束

End If 'IF语句结束

End Sub

Private Sub Form_Load() '窗体的加载事件

Text2.Locked = True '使文本2不能输入内容

Text1.MaxLength = 16 '将文本1的长度设为最多只能输入16个

End Sub

Private Sub Text1_Change() '文本1的change事件

c = "" '当文本的内容改变时,C的值就为空

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer) '文本1的键盘输入事件

If KeyAscii < 48 Or KeyAscii > 57 Then '判断输入的是否为数字

If KeyAscii <> 8 Then '判断输入的是否为退格键

KeyAscii = 0 '如果不是则不返回为0(既是不输入)

End If ' IF语句结束

End If ' IF语句结束

End Sub

就把字符变量或字符常量赋值给他就得了啊。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
为什么我的电脑开机的时候速度很慢
WWE摔跤是真打还是假打呀 。。。。
你心爱的男人会在大街上帮你系鞋带吗?
心里空空的忧伤诗句,刚看完,《交响诗篇AO》
我梦见我哭的很伤心
想要个煲20人量粥的煲。但是铁皮的那种煲出来
为什么我不能下载cf体验服啊?
农场玩着有意思么?
当今台球老大是?
如何点亮QQ音速啊?
常香源清真兰州拉面这个地址在什么地方,我要
狂战士带紫金好还是斩影?
屎磕螂子蹦高了
高压锅压牛肉的最佳时间是多久?
男孩对女孩说了三个字第一个四画,第二个三画
推荐资讯
怎么把诗《钱塘湖春
我跟我女友总是吵架,怎么办?
英雄杀赵子龙台词,三国KILL中神赵云的台词
跪求这首歌曲的名字!!
超级QQ一级用户用金豆换自动加速后一天升几级
中国哪个城市有宜家
相生相克的相生相克婚
为什么她对我爱理不理呢
我的QQ努场怎么打不开了
广州市萝岗区附近哪里有浦发银行?
双汇玉米热狗肠吃多啦对身体有害吗?
rainmeter天气插件
正方形一边上任一点到这个正方形两条对角线的
阴历怎么看 ?