[求助]怎样设置限定text控件的输入? - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]怎样设置限定text控件的输入?

标题：[求助]怎样设置限定text控件的输入?

只看楼主

zhangsj

等　级：新手上路
帖　子：47
专家分：0
注　册：2006-11-15

楼主

问题点数：0 回复次数：2

[求助]怎样设置限定text控件的输入?

请教:在text控件中怎样限定只能输入个位数为零的小数?

搜索更多相关主题的帖子: text控件　小数　输入　

2006-12-11 15:16

学习VB才2天

等　级：贵宾
威　望：16
帖　子：1653
专家分：0
注　册：2006-5-4

第 2 楼

得分:0

......什么意思?

[GLOW=255,DeepPink,3]我的免费网盘[/GLOW]

2006-12-11 15:21

tang688

等　级：贵宾
威　望：16
帖　子：1219
专家分：35
注　册：2004-12-25

第 3 楼

得分:0

Private Sub Text1_Change()
if IsNumeric(text1.text) then '如果是数字型的
if abs(csng(text1.text))>=1 then '如果绝对值大于等于1
text1.text="0." '清空,也就是不能输入,也可以把最后输入的字符给去掉.
end if
else
text1.text="0." '清空,也就是不能输入
end if
end sub

程序可能不能正常运行,因为没有调试过,不过思路已经告诉你了.自己试一下吧

[此贴子已经被作者于2006-12-11 16:02:01编辑过]

2006-12-11 15:54

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-108799-1-1.html