如何於text1.text只能輸入正偶數
如何於text1.text只能輸入正偶數,若輸入其他字元,例如英文..或其他
非正偶數的數值,會有一msgbox"請重新輸入正確值"來顯示提示
3 個解答
- 1 0 年前最佳解答
用Validate事件
(或者用Losefocus事件)
建議用Validate
Private Sub Text1_Validate(Cancel As Boolean)
'數字檢驗
If IsNumeric(Text1.Text) = False Then
Call MsgBox("請重新輸入正確值", vbCritical)
Cancel = True
Exit Sub
End If
'正數檢驗
If Val(Text1.Text) <= 0 Then
Call MsgBox("請重新輸入正確值", vbCritical)
Cancel = True
Exit Sub
End If
'整數檢驗
If Val(Text1.Text) <> Int(Val(Text1.Text)) Then
Call MsgBox("請重新輸入正確值", vbCritical)
Cancel = True
Exit Sub
End If
'偶數檢驗
If Val(Text1.Text) Mod 2 <> 0 Then
Call MsgBox("請重新輸入正確值", vbCritical)
Cancel = True
Exit Sub
End If
End Sub
2007-07-17 07:56:31 補充:
不客氣 ^ ^
- 阿諺Lv 71 0 年前
IF VAL(TEXT1.TEXT) <0 OR VAL(TEXT1.TEXT) MOD 2< > 0 THEN MSGBOX ("請重新輸入") ENDIF
這個方法最快
VAL(TEXT1.TEXT) < 0 是在判斷說是否為正數(我是打<0,因為如果要顯示重新輸入的方塊,必需判斷是否小於0)
至於後面那個VAL(TEXT1.TEXT) MOD 2< > 0是說如果用2除不盡一定是單數嘛!
兩個只要其中一個成立就顯示重新輸入的方塊