| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2008 人关注过本帖
标题:只允许文本框输入数字的代码是什么啊?
只看楼主 加入收藏
nangua
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2007-6-18
收藏
 问题点数:0 回复次数:11 
只允许文本框输入数字的代码是什么啊?


只允许text文本框输入数字的代码是什么啊?

有时候制作一些东西只允许输入数字就可以了,那样设置的代码是多少呀?

请赐教了。。。

[此贴子已经被作者于2007-7-18 23:21:24编辑过]

搜索更多相关主题的帖子: 文本 数字 代码 输入 
2007-07-18 23:21
lovezxin
Rank: 1
等 级:新手上路
帖 子:45
专家分:0
注 册:2007-7-12
收藏
得分:0 
我有思路
就是判断text 里输入的是否为纯数字
true 就OK
False就NO
2007-07-19 01:06
chang050339
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2007-7-19
收藏
得分:0 
数字好象是numeral
以前听老师说过的
2007-07-19 08:02
南宫飘雪
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2007-6-28
收藏
得分:0 

论坛里早就有过很多这个帖了,发帖前自己先搜索一下旧帖。

2007-07-19 08:35
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 

Isnumberic(s as string) as bool

2007-07-19 10:28
tanghuawei
Rank: 4
来 自:美丽的湖南
等 级:业余侠客
威 望:3
帖 子:531
专家分:220
注 册:2006-3-16
收藏
得分:0 
直接在keypress事件裡寫
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 '0-9,這裏還可以限制只能輸入哪幾個數字
Exit Sub
Case 8 '退格鍵
Exit Sub
Case 46 'Delete鍵
Exit Sub
Case Else
KeyAscii = 0
End Select
End Sub

[此贴子已经被作者于2007-7-19 10:41:49编辑过]


汽车尾气检测网络系统QQ:357766186__MSN:MSNTHW19850316@
2007-07-19 10:40
kinbing
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2007-7-19
收藏
得分:0 
以下是引用multiple1902在2007-7-19 10:28:11的发言:

Isnumberic(s as string) as bool

嗯.没错.我现在知道了.

2007-07-19 10:42
nangua
Rank: 1
等 级:新手上路
帖 子:60
专家分:0
注 册:2007-6-18
收藏
得分:0 
我这里也写出了一段代码
但是不允许删除啊? 就是一旦输入就不允许修改
帮忙修改下。。。


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii<Asc("0") Or KeyAscii>Asc("9") Then
KeyAscii=0
End If
End Sub

南瓜QQ:281467266 邮箱 hack.nangua@ 望多多结交网络编程爱好者.
2007-07-19 12:53
zrgong
Rank: 1
等 级:新手上路
帖 子:95
专家分:0
注 册:2007-6-26
收藏
得分:0 

呵呵,你指退格键不能用了吧,你的代码只允许输入0-9之间的数字,当然退格键和其他键不行了
6楼已给出代码了,不过输入小数时有点问题,改了改
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57 '0-9,這裏還可以限制只能輸入哪幾個數字
Exit Sub
Case 8 '退格鍵
Exit Sub
Case 46 '小数点
If InStr(1, Text1.Text, ".") > 0 Then KeyAscii = 0 '只允许输入一个小数点
Exit Sub
Case Else
KeyAscii = 0
End Select

End Sub

[此贴子已经被作者于2007-7-19 21:20:57编辑过]


2007-07-19 21:10
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 

Exit Sub没必要吧?End Select后面没有代码...

一直用的代码:
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, vbKeyBack 'Asc("0") To Asc("9") '允许0~9数字和退格键
Case 46 'Asc(".") '允许一个小数点
If InStr(1, Text1.Text, ".") > 0 Then KeyAscii = 0
Case Else
KeyAscii = 0
End Select
End Sub


快上课了……
2007-07-19 23:59
快速回复:只允许文本框输入数字的代码是什么啊?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017445 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved