標題: [發問] TextBox限定輸入值的範圍 [打印本頁]

---

作者: bowwow1975    時間: 2012-8-15 14:34     標題: TextBox限定輸入值的範圍

請教各位大師，我有製作一個 Textbox，然後想限定用戶輸入的值不能 >80！

可是我發現，我輸入 < 80 後，確實會有 Msgbox  出現，但是關閉後，MsgBox 又會出現一次~~
會不會是 textbox32.Value = "" 的問題？
好像沒輸入值，也會顯示 MsgBox！

1. Private Sub textbox32_Change()
   
2. If textbox32.Value > 80 Then
   
3. textbox32.Value = ""
   
4. a = MsgBox("Please Fill in Duty < 80", 0 + 48, "NOTE！！")
   
5. End If
   
6. End Sub

複製代碼

---

作者: GBKEE    時間: 2012-8-15 15:31

回復 1# bowwow1975
If textbox32.Value > 80  

textbox32=""  > 80  是成立的,請改成 If Val(TextBox32) > 80 Then

---

作者: bowwow1975    時間: 2012-8-15 16:33

成功了~~~~真是感謝，
可是小弟不懂的是，這兩個有什麼不同嗎？
望請大大釋疑！

---

作者: GBKEE    時間: 2012-8-15 17:57

回復 3# bowwow1975
If Val(textbox32) > 80 Then    是不成立    Val("")=0

1. Option Explicit
   
2. Private Sub textbox32_Change()
   
3. If textbox32.Value > 80 Then
   
4. textbox32.Value = ""   '改變textbox32 又一次執行 textbox32_Change
   
5. 'textbox32=""  > 80  是成立的 不是再次的執行 MsgBox
   
6. a = MsgBox("Please Fill in Duty < 80", 0 + 48, "NOTE！！")
   
7. End If
   
8. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)