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
给TEXT1加一个触发的过程,好像是change什么的,就是当内容改变是触发执行
在过程中写代码
做一个循环,从左边一个一个的取出字符
写入另一个字串STR
完成后,把字串用于label1的显示
二楼的代码太麻烦了,我有一个简单的:
Private Sub Text1_Change()
Label1.Caption = StrReverse(Text1.Text)
End Sub
显示的是“重新输入”。