作者ablboy (秘密行动计画中(B))
看板Visual_Basic
标题Re: 要如何让使用者输入数字??
时间Thu Sep 1 00:52:45 2005
※ 引述《oycoyc (.......)》之铭言：
: 现要让使用者只能输入数字,(可为浮点数)
: 不知有无类似C里面 scanf 的方式?
Sub Text1_KeyPress(KeyAscii as Integer)
If Instr(1, "0123456789.", KeyAscii) = 0 Then
KeyAscii = 0
End If
End Sub
其中利用 InStr 函式搜寻输入字是否在字串中
如果找不到的话就将输入KeyAscii设定成 0 ,
代表略过此次输入
如果字串改成
"+-0147258369."
(故意将数字顺序打乱)
就变成可接受
0~9还有
小数点与
正负号
如果还要外加也可接受"Enter"按键,
就得在判断If後加上
And KeyAscii <> 13 Then
总之使用将不允许输入的字滤除方式来达到想要的功能
这样的解释不知是否了解...!?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 218.171.28.224