VbText1的内容为大写，我知道要用ucase，可这样我每输入一个字母，就是往左输入的···比如我输入

Question

比如我输入QWERT,显示出的就是TREWQ····倒过来啊QAQ

Answer 1

TextBox2.Text = UCase(StrReverse(TextBox1.Text))

 求收纳

追问

我想让他不倒过来==就是我输入QWERT 就是QWERT

追答

TextBox2.Text = UCase(TextBox1.Text)

追问

没有==我就一个text1

Answer 2

VB6可参考下面的代码
Private Sub TextBox1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii-32
End Sub

VB.net可参考下面的代码
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If e.KeyChar >= "a" And e.KeyChar <= "z" Then e.KeyChar = UCase(e.KeyChar)
End Sub追问

能解释下么

追答

If KeyAscii >= 97 And KeyAscii <= 122 Then KeyAscii = KeyAscii-32  '当字符代码是小写字母时，把小写字母代码改写成大写字母代码

If e.KeyChar >= "a" And e.KeyChar <= "z" Then e.KeyChar = UCase(e.KeyChar) '这句是我秀逗了，实际上只需要e.KeyChar = UCase(e.KeyChar)就行

至于你出现的问题，可以检查一下是否有对Text1.Text直接赋值的语句，这可能导致出现你这种情况

这里提供一份源码供你测试

本回答被提问者采纳