討論區快速選單
知識庫快速選單
程式設計俱樂部Facebook粉絲團 下載Alexa Toolbar讓你上網更有趣 Top1安全軟體開發知識-CSSLP
[ 回上頁 ] [ 討論區發言規則 ]
如何檢查text輸入的資料是否為數字
更改我的閱讀文章字型大小
作者 : timohu(曉諭) 人氣指數超過10000點
[ 貼文 147 | 人氣 23056 | 評價 100 | 評價/貼文 0.68 | 送出評價 9 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/10/3 下午 12:01:26
本來是想做好幾個combobox讓使用者用拉的∼這樣一定不會有錯
但是很麻煩∼
所以還是用 text讓使用者輸入數字
我剛剛寫了一個
    For i = 1 To Len(Text3.Text)
     If Asc(Mid(Text3.Text, i, 1)) <= 57 And Asc(Mid(Text3.Text, i, 1)) >= 48 Then
     Label1.Caption = "OK"
     ElseIf Asc(Mid(Text3.Text, i, 1)) = 46 Then
     Label1.Caption = "OK"
     Else
     Label1.Caption = "NG"
     End If
    Next i
可是好像不是很完整∼
因為如果使用者輸入"..." or "2."之類的
我會認為他是OK
這樣程式就錯誤了∼
請問還有別的方法嗎?
作者 : kib72377(史努比) Visual Basic卓越專家Assembly優秀好手Access頂尖高手貼文超過1000則
[ 貼文 1447 | 人氣 1891 | 評價 8560 | 評價/貼文 5.92 | 送出評價 31 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人timohu註記此篇回應為最佳解答 2006/10/3 下午 12:10:27
IsNumeric(expression)
作者 : timohu(曉諭) 人氣指數超過10000點
[ 貼文 147 | 人氣 23056 | 評價 100 | 評價/貼文 0.68 | 送出評價 9 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/10/3 下午 01:49:47
原來有這指令∼∼真是太感謝了
要學的果然還很多XD
作者 : autoweb(微米)
[ 貼文 19 | 人氣 2455 | 評價 0 | 評價/貼文 0 | 送出評價 4 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/10/3 下午 07:17:48
你可以直接把TextBox鎖定只能輸入數字,
醬連檢查的功夫都可以省下。
Ex:
Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then '按下Enter鍵,就跳到下一駐點物件
     Text2.SetFocus
    Else
     KeyAscii = FilterKeyacii(KeyAscii)
    End If
End Sub

Public Function FilterKeyacii(ByVal KeyAscii As Integer) As Integer
    If KeyAscii = 8 Then 'Backspace鍵
     FilterKeyacii = 8
    ElseIf KeyAscii < 48 Or KeyAscii > 57 Then '鎖定只能輸入數字
     FilterKeyacii = 0
    Else
     FilterKeyacii = KeyAscii
    End If
End Function

說明:
 1.在TextBox的KeyPress Event中鍵入要過濾的Ascii碼
 2.FilterKeyacii Function可重複利用
作者 : kib72377(史努比) Visual Basic卓越專家Assembly優秀好手Access頂尖高手貼文超過1000則
[ 貼文 1447 | 人氣 1891 | 評價 8560 | 評價/貼文 5.92 | 送出評價 31 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
主題發起人timohu註記此篇回應為很有道理 2006/10/4 上午 09:14:09
to autoweb(微米)
1.如果有小數點怎麼辦?
2.就算小數點也考慮了,但使用者輸入錯誤 "0..01" 怎麼辦?
有很多雖然可以自己處理,
但是自己一個人思考廣度不夠,難免有錯漏的地方,
不如用別人已做好的方式去處理比較省時省力.
(尤其是給初學者的解答,最好能用內建的功能)

話說 在 ms access裡的文字方塊有數字型態的設定,
不知vb的文字方塊有沒有同樣的功能?
 板主 : 小樓
 > Visual Basic 6.0/VBA - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - Visual Basic 6.0/VBA - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
Visual Basic 6.0/VBA
1 阿戊 10670 
2 小樓 8650 
3 Jones 5270 
4 水瓶天賞 2340 
5 joe 2200 
6 史努比 1940 
7 阿呆紅 1440 
8 tt's 1250 
9 青衫 1150 
10 羅啟章 1020 
Visual Basic 6.0/VBA
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2014 程式設計俱樂部 http://www.programmer-club.com.tw/
0.1445313