求VB代码。设计一个只接受字母键的文本框，在text1中输入一串字符，text2及时显示反序的字符串。
涉及keypress事件。用最基础的程序做谢谢。。。这是大一刚学的时候的一个作业。谢谢了
第1个回答 2012-05-09
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (Asc("a ") <= KeyAscii And KeyAscii <= Asc("z ") Or _
Asc("A ") <= KeyAscii And KeyAscii <= Asc("Z ")) Then
KeyAscii = 0
End If
Text2.Text = StrReverse(Text1.Text)
End Sub追问
If Not (Asc("a ") <= KeyAscii And KeyAscii <= Asc("z ") Or _
Asc("A ") <= KeyAscii And KeyAscii <= Asc("Z ")) Then
KeyAscii = 0
End If
Text2.Text = StrReverse(Text1.Text)
End Sub追问
这个代码是如果输入“axzd”输出“zxda”。。。。但如果我只想输出“dzxa”就是按输入顺序直接反序，不是按照字母本身顺序。。。
本回答被提问者采纳第2个回答 2012-12-07
很简单的啊！
Private Sub Text1_change()
Text2.Text = StrReverse(Text1.Text)
End Sub
Private Sub Text1_change()
Text2.Text = StrReverse(Text1.Text)
End Sub
相似回答
