精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● VB和Basic>>Re:如何让判断用户输入的数据是数字?

主题:Re:如何让判断用户输入的数据是数字?
发信人: hosin(极品蓝山)
整理人: winsy(2003-04-29 14:51:52), 站内信件
【 在 zhangpeng_1981_ 的大作中提到:】
:RT,用户可以输入正数,负数,小数,但是字母就不可以,如果判断,而且我是用一条循环语句来让用户输入数据的,如果用户输入的是字母,则给出提示,然后从新这次循环,怎么做?
:......
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
On Error Resume Next
    Dim Key As String
    Key = Chr(KeyAscii)
    Select Case Key
        Case "0" To "9"
        Case "-","."
        Case Chr(8)
        Case Else
            KeyAscii = 0  '//这样输入字母时就不用提示了,直接取消输入的内容 
    End Select
End Sub


----
雕塑,其实不是你要将一块石头雕刻成什么,因为它原本就存在于石头里面,你只是把它剥离出来。 

[关闭][返回]