vb问题在窗体FORM1上有一个文本框TEXT1,一个标签LABEL1

2025-01-01 03:04:32
推荐回答(4个)
回答1:

Private Sub Text1_Change()
Label1.Caption = ""
For i = Len(Text1.Text) To 1 Step -1
Label1.Caption = Label1.Caption + Mid(Text1.Text, i, 1)
Next i
End Sub

回答2:

给TEXT1加一个触发的过程,好像是change什么的,就是当内容改变是触发执行
在过程中写代码
做一个循环,从左边一个一个的取出字符
写入另一个字串STR
完成后,把字串用于label1的显示

回答3:

二楼的代码太麻烦了,我有一个简单的:
Private Sub Text1_Change()
Label1.Caption = StrReverse(Text1.Text)
End Sub

回答4:

显示的是“重新输入”。