16,554
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
lok9828 2004-09-28
- 打赏
- 举报
Private Sub txtThQty_KeyPress(ByVal sender As Object, ByVal e As
Try
Dim i As Integer
Dim str As String
str = e.KeyChar
'you can input enter
If e.KeyChar = ChrW(13) Then
Exit Sub
End If
'you can input backspace
If e.KeyChar.GetHashCode = 524296 Then
Exit Sub
End If
'you cannot input the char not as number
If str > "9" Or str < "0" Then
e.Handled = True
Exit Sub
End If
End Sub
Try
Dim i As Integer
Dim str As String
str = e.KeyChar
'you can input enter
If e.KeyChar = ChrW(13) Then
Exit Sub
End If
'you can input backspace
If e.KeyChar.GetHashCode = 524296 Then
Exit Sub
End If
'you cannot input the char not as number
If str > "9" Or str < "0" Then
e.Handled = True
Exit Sub
End If
End Sub
eboywy 2004-09-28
- 打赏
- 举报
靠。难倒是倒分吗？
qinguangjun123 2004-09-28
- 打赏
- 举报
qq:53716834
eboywy 2004-09-28
- 打赏
- 举报
用正则表达式限制。
ValidationExpression="\d"
ValidationExpression="\d"
