请问text1怎样声明只输入数字,text2声明为数字,字母?vb的

发布网友 发布时间：2024-10-23 12:12

我来回答

共4个回答

热心网友 时间：2024-10-23 17:12

这个只能判断键盘输入的，如果要限制鼠标右键粘贴的就需要另外处理了、字母的也是一样的，
大写字母 65-90
小写字母 97-122
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
MsgBox "只能输入数字"
End If
End Sub

热心网友 时间：2024-10-23 17:10

用text框的KeyPress,判断键盘输入的字符可能达到限制作用,除了数字,别的字符输不进去.

Private Sub text1_KeyPress(KeyAscii As Integer) '限制只能输入数字
KeyAscii = ValiText(KeyAscii, "0123456789.", True)
End Sub

同样的,text2也可以用上面的方法限制输入的只是数字与字母,因为字母分大小写,所以"字符"长了些
Private Sub text1_KeyPress(KeyAscii As Integer) '限制只能输入数字
KeyAscii = ValiText(KeyAscii, _
"0123456789.abcdefghijklmnopqrstuvwxyz _
ABCDEFGHIJKLMNOPQRSTUVWXYZ", True)
End Sub

可以直接复制上面的代码到VB程序中使用.

注意，上面的空格加下划线是换行用的，“ _”可以删除，也可以在程序中留着。

热心网友 时间：2024-10-23 17:11

我想要教程耶

热心网友 时间：2024-10-23 17:08

哇靠！你的背景色...
'可以这样实现
Private Sub Text1_Change()
Dim tx As String, st As Integer
st = Text1.SelStart'用于记录当前光标位置.
For i = 1 To Len(Text1.Text)
If Not Asc(Right(Left(Text1.Text, i), 1)) < 48 And Not Asc(Right(Left(Text1.Text, i), 1)) > 57 Then '通过Ascii码判断
tx = tx & Right(Left(Text1.Text, i), 1)
Else
st = st - 1
End If
Next
Text1.Text = tx '将修改后的字符串覆盖
Text1.SelStart = st ' 恢复光标位置
End Sub
'仅允许字母也是可以通过类似方法实现的.字母Ascii:大写从65到90,小写从97到122.