返回列表 上一主題 發帖

TextBox如何設定只能是整數?

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2025-4-8 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-12-5 01:09 | 顯示全部帖子

TextBox如何設定只能是整數?

我設計一個表單 其中TextBox作為輸入介面 由於該參數必須為正整數該如何限制TextBox之格式
我希望寫成當輸入為正整數以外字元則顯示"必須為正整數"
謝謝
收藏 分享

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2025-4-8 
2#
發表於 2012-12-5 19:32 | 顯示全部帖子
該寫法雖然可以解決非整數的問題 但如果遇到使用者輸入數字以外字元例如"h","好"
該如何讓程式自動判別這些非數字字元及自動跳出而不致發生程式錯誤?

TOP

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2025-4-8 
3#
發表於 2012-12-6 18:09 | 顯示全部帖子
回復 4# c_c_lai
不好意思 我上面可能沒表達清楚
現在遇到的問題是TextBox所輸入的值被認定為文字
假設我輸入5 則TextBox="5"(由監看式裡看到的值) 而TextBox在程式中必須是正整數才可正常執行 我希望我的程式能夠判別/提醒使用者，當TextBox輸入為負數或小數時則會出現警告視窗因此我寫成這樣: (當TextBox1輸入8,TextBox2輸入12)
If IsNumeric(TextBox1) = False Or IsNumeric(TextBox2) = False Then
    MsgBox "請輸入數字"
    Exit Sub
        ElseIf TextBox1 <> Abs(Int(TextBox1)) Or TextBox2 <> Abs(Int(TextBox2)) Then
            MsgBox "請輸入整數"
            Exit SubEnd If
藍色為其執行結果
由監看式裡: TextBox1="8", Abs(Int(TextBox1)) =8, TextBox2 ="12", Abs(Int(TextBox2)) =12
故:TextBox1 不等於Abs(Int(TextBox1)) 所以程式跳開-->這該如何解決?
另外程式中必須TextBox1<TextBox2所以我還寫了條件式確保這關係成立但卻被判斷為 "8">"12"-->所以程式又跳開  這些問題困擾我好幾天了

TOP

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2025-4-8 
4#
發表於 2012-12-7 14:53 | 顯示全部帖子
解決了
謝謝大家的幫忙

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
返回列表 上一主題