字母大小写的转换
Private Sub Text1_KeyPress(KeyAscii As Integer)x = Chr$(KeyAscii)
Select Case x
Case "A" To "Z"
x = Chr$(KeyAscii + 32)
Case "a" To "z"
x = Chr$(KeyAscii - 32)
Case Else
x = x
End Select
Text2.Text = Text2.Text & x
End Sub
我是这样编的 但是我希望如果输入的不是字母就变成* 但是弄不起来 希望高人指点
