? 發問時間: 電腦與網際網路程式設計 · 1 0 年前

如何於text1.text只能輸入正偶數

如何於text1.text只能輸入正偶數,若輸入其他字元,例如英文..或其他

非正偶數的數值,會有一msgbox"請重新輸入正確值"來顯示提示

3 個解答

評分
  • 最佳解答

    用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 7
    1 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除不盡一定是單數嘛!

    兩個只要其中一個成立就顯示重新輸入的方塊

  • 1 0 年前

    感謝您的回答!^_^

還有問題?馬上發問,尋求解答。