Question

3个文本框，第一个输入一串字符，第二个文本框显示小写字母，第三个显示大写字母，同时进行的，求解 拜托

如题 拜托了

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

1. 事件是什么：KeyPress，或者OnChange

2. 怎么获取内容，Text1.Text

3. 怎么转小写：LCase函数

4. 怎么转大写：UCase函数

想想吧，自己做。

Answer 2

Private Sub TextBox1_Change()
TextBox2 = LCase(TextBox1)
TextBox3 = UCase(TextBox1)
End Sub

追问

谢谢  谢谢你  不过理解错意思了

是这个意思  应该怎样弄呢

追答

在第一个文本框设置Change事件：
TextBox2 = LCase(TextBox1)
TextBox3 = UCase(TextBox1)

追问

不好意思，朋友 真的不是你理解的那个意思 你好好看看吧 text1里有一串字符（包括大写、小写字母，数字，各种符号，汉字） text2里只显示text1的大写字母，text3只显示text1里的小写字母

追答

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii >= 65 And KeyAscii = 97 And KeyAscii <= 122) Then
TextBox2 = TextBox2 & UCase(Chr(KeyAscii))
TextBox3 = TextBox3 & LCase(Chr(KeyAscii))
End If
End Sub