不好意思 想问你个问题 可以吗
不好意思 想问你个问题 可以吗
字母大写的转换我的代码如下
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
但是我想在输入不是字母的时候显示*
你知道怎么弄吗