| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1298 人关注过本帖, 1 人收藏
标题:[求助]如何在text控件中只输入数字?
只看楼主 加入收藏
drect
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-1-4
收藏(1)
 问题点数:0 回复次数:11 
[求助]如何在text控件中只输入数字?

在窗体上放置一个文本框和一个按钮,如何在文本框中只输入数字,输入其它字符时文本内容不做变化,
按下按钮将文本框的内容转化为数值赋给一个变量,改变文本框内容,改变变量值。
还有,在其它窗体中调用上述变量,该注意什么,我怎么调用都不成功。
谢谢大虾们了!!!

搜索更多相关主题的帖子: text 控件 数字 文本 变量 
2007-01-23 20:52
恶魔轮回
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2007-1-23
收藏
得分:0 
if text1.text<55 and text1.text<97 then text`1.visible =true
else
text1.visible=false
2007-01-23 21:51
恶魔轮回
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2007-1-23
收藏
得分:0 
不好意思~!这个可能错了`!让我在想一下
2007-01-23 21:52
恶魔轮回
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2007-1-23
收藏
得分:0 
用ascii 码 来判断
2007-01-23 21:53
qspidan
Rank: 1
等 级:新手上路
帖 子:125
专家分:0
注 册:2006-10-22
收藏
得分:0 

用ISNUMERIC函数


2007-01-23 22:13
slore
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1108
专家分:0
注 册:2005-7-1
收藏
得分:0 
Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), vbKeyBack '允许0~9数字和退格键

Case Asc(".") '允许一个小数点
If Instr(1, Text1.Text, ".") > 0 Then KeyAscii = 0
Case Else
KeyAscii = 0
Beep '其他的发出Beep声音
End Select
End Sub

快上课了……
2007-01-24 01:53
PcrazyC
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:5652
专家分:0
注 册:2006-10-20
收藏
得分:0 

Dim TXT As String

Private Sub Form_Load()
TXT = Text1
End Sub

Private Sub Text1_Keyup(KeyCode As Integer, Shift As Integer)
If Text1 <> "" Then
Dim Str As String
Str = Right(Text1.Text, 1)
If Not (StrComp(Str, "0") <> -1 And StrComp("9", Str) <> -1) Then '输入的字符在1-9之外
Text1.Text = ""
Clipboard.SetText TXT
Text1.SelText = Clipboard.GetText()
End If
End If
TXT = Text1
End Sub


雁无留踪之意,水无取影之心
2007-01-24 16:25
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
If Not IsNumeric(Text1.Text) And Not IsNull(Text1.Text) And Trim(Text1.Text) <> "" And Trim(Text1.Text) <> "-" And Trim(Text1.Text) <> "." Then
MsgBox "输入只能是货币数据!"
Text1.Text = Format(0, "#0.00")
End If

2007-01-24 16:51
tang688
Rank: 5Rank: 5
等 级:贵宾
威 望:16
帖 子:1219
专家分:35
注 册:2004-12-25
收藏
得分:0 
这是我用的输入货币数据的一段小程序,不知道你用不用得到

2007-01-24 16:52
xinfresh
Rank: 4
等 级:贵宾
威 望:13
帖 子:594
专家分:0
注 册:2006-1-13
收藏
得分:0 
6楼正解!

E-mail:xinfresh@QQ:383094053校内:http:///getuser.do?id=234719042
2007-01-24 20:19
快速回复:[求助]如何在text控件中只输入数字?
数据加载中...
 
   



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

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