返回列表 上一主題 發帖

[發問] TextBox限定輸入值的範圍

[發問] 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
複製代碼

回復 1# bowwow1975
If textbox32.Value > 80  

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

TOP

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

TOP

回復 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
複製代碼

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題