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