熱心網(wǎng)友

樓上說的也沒錯,不過一般的時候數(shù)字都有用到小數(shù)點“?！焙拓撎枴?”的時候，所以可以這樣做把上面的程序稍微改動一下。Private Sub Form_Load()Text1= ""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) select case str(Keyascii) '多分枝用Select case 語句比較好 case "0" to "9" '如果按鍵在 0-9 之間 或者 case "。", "-", str(8) '按下小數(shù)點，負號，或者刪除鍵BackScape鍵則不執(zhí)行特殊操作 case else KeyAscii = 0 '取消本次按鍵事件。 Beep '提示輸入錯誤 End selectEnd Sub 。

熱心網(wǎng)友

樓上幾位說的都不錯，但是VB里現(xiàn)在還沒有特別完美的方法解決樓主的問題，上面的說法雖然是能限制鍵盤輸入數(shù)字，但是不能限制粘貼數(shù)字。要想實現(xiàn)完善的最好還是通過API或自定義組件一些方法。

熱心網(wǎng)友

下面代碼可實現(xiàn)文本框只能輸入數(shù)字:Option ExplicitPrivate Sub Form_Load() Text1= ""End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii Asc("9") Then KeyAscii = 0 '取消字符。 Beep '發(fā)出錯誤信號。 End IfEnd Sub如需輸入小數(shù)點,則代碼如下:Private Sub Form_Load()Text1 = ""End SubPrivate Sub text1_KeyPress(KeyAscii As Integer) If KeyAscii Asc("。") Or KeyAscii Asc("9") And KeyAscii Asc("。") Or KeyAscii = Asc("/") Then KeyAscii = 0 '取消字符。 End IfEnd Sub。