要自动转换大小写，很多人首先想到的一定是 UCase$ 及 LCase$，但是要使用这二个函数，一定不可以在 Key_Press 事件中使用，否则您若输入《ABC》，结果却变成《cba》，为什么呢？ 因为当您输入 A 之后，LCase$ 会替您转换成 a，但是转换完后，滑鼠的游标会停在 a 的前面，您继续输入 B，变成了 Ba，LCase$ 又替您转换成 ba，转换完后，滑鼠的游标又停在 ba 的前面，您继续输入 C，变成了 Cba，LCase$ 又替您转换成 cba！ 若您不相信，可以自己试试 在 Key_Press 中正确的作法，是判断它的参数 KeyAscii ！a 的 Asc 值是 97，A 的 Asc 值是 65，所以要自动将大写转成小写，写法如下： Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii >= 65 And KeyAscii <= 90 Then
KeyAscii = KeyAscii + 32
End If
|
