限制文本框输入字符方法的漏洞问题
以下方法都可以实现限制文本框输入字符:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If IsNumeric(Text1) = False Then
MsgBox "输入错误"
End If
End Sub
或——
Private Sub Text1_Change()
If IsNumeric(Text1) = False Then
MsgBox "输入错误"
End If
End Sub
或——
Private Sub Text1_LostFocus()
If IsNumeric(Text1) = False...全部
以下方法都可以实现限制文本框输入字符:
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
If IsNumeric(Text1) = False Then
MsgBox "输入错误"
End If
End Sub
或——
Private Sub Text1_Change()
If IsNumeric(Text1) = False Then
MsgBox "输入错误"
End If
End Sub
或——
Private Sub Text1_LostFocus()
If IsNumeric(Text1) = False Then
MsgBox "输入错误"
End If
End Sub
或——
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If IsNumeric(Text1) = False Then
MsgBox "输入错误"
End If
End Sub
'中间的限制程序可按要求自已编写。
收起