发信人: 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
---- 雕塑,其实不是你要将一块石头雕刻成什么,因为它原本就存在于石头里面,你只是把它剥离出来。 |
|