標題: [發問] 如何使用 IsNumber(TextBox1)? [打印本頁]

---

作者: yangjie    時間: 2014-1-16 23:20     標題: 如何使用 IsNumber(TextBox1)?

請教諸位先進:
        於 TextBox1內指定輸入時僅為數字(可有小數)，應如何下語法?
        或輸入為非數字時即變為空白亦可
       如何使用 IsNumber?
                                                             謝謝指導

---

作者: Hsieh    時間: 2014-1-16 23:37

回復 1# yangjie

If TextBox1 <> "" And CStr(Val(TextBox1.Value)) <> TextBox1 Then MsgBox "必須輸入為數值": TextBox1 = ""

---

作者: yangjie    時間: 2014-1-17 00:29

回復 2# Hsieh
謝謝版大
         太棒了
         若允許小數點  如12.5 應如何修正

---

作者: Hsieh    時間: 2014-1-17 09:18

回復 3# yangjie
你是用在TextBox1_Change事件內吧
這樣當你輸入小數點時，會出錯
改成
If TextBox1 <> "" And CStr(Val(TextBox1.Value)) <> IIf(Right(TextBox1, 1) = ".", Replace(TextBox1, ".", ""), TextBox1) Then MsgBox "必須輸入為數值": TextBox1 = ""

---

作者: yangjie    時間: 2014-1-18 20:31

回復 4# Hsieh
萬分感激
太棒的想法
謝謝

---

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