延陵安置小区规划:VB怎样限定输入的文本只能是大写的英文字母啊?

来源:百度文库 编辑:杭州交通信息网 时间:2024/03/29 02:28:32

Private Sub Text1_Change()
If Text1.Text <> "" Then
tp = Asc(Right(Text1.Text, 1))
If tp < Asc("A") Or tp > Asc("Z") Then
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
Text1.SelStart = Len(Text1.Text)
End If
End If
End Sub

或者:
Private Sub Text1_Change()
ucase(me.text1)
End Sub

不用那么麻烦
你转换一下就可以了
ucase(me.text1)
lcase(me.text1)

用ascii码试试.