还有如何限制文本筐为

只输入数字呢???

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), vbKeyBack
        '允许 0~9数字
Case Asc(".") '允许一个小数点
 If InStr(1, Text1.Text, ".") > 0 Then KeyAscii = 0
Case Else
        KeyAscii = 0
        Beep  '其他的发出Beep声音
End Select
End Sub

把楼上的代码改成以下代码即可解决两个问题!



Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), vbKeyBack
        '允许 0~9数字
Case Asc(".") '允许一个小数点
If InStr(1, Text1.Text, ".") > 0 Then KeyAscii = 0
Case vbKeyUp           '上箭头键
        '增加数字
        Text1.Text = CStr(Val(Text1.Text) + 1)
Case vbKeyDown      '下箭头键
        '减少数字
        Text1.Text = CStr(Val(Text1.Text) - 1)
Case Else
        KeyAscii = 0
        Beep  '其他的发出Beep声音
End Select
End Sub

厉害

哦！厉害

真是的厉害,支持一下

这个问题的方法可以用ASC码来实现,通过字符与ASC码的比对来实现该功能