如何让输入框只能输入数字？

frozen · 发表于 2008-7-19 09:09:23

如题，如何让输入框只能输入数字？请高手指点。

[ 本帖最后由 frozen 于 2008-7-19 09:40 编辑 ]

qop1830 · 发表于 2008-7-19 09:19:23

$Input1 = GUICtrlCreateInput("Input1", 12, 16, 165, 21, 0x2000)

frozen · 发表于 2008-7-19 09:39:45

非常感谢！！！

心梦无痕 · 发表于 2008-7-27 12:03:49

留个位````````````````

MicroBlue · 发表于 2012-2-7 14:34:22

感谢，使用了。

2011风之叶 · 发表于 2012-2-15 09:55:12

不懂，学习下

yoshubom · 发表于 2012-8-8 09:52:51

qop1830 发表于 2008-7-19 09:19

这个无法输入小数……

yufei8051 · 发表于 2012-11-7 08:40:03

记号，谢谢分享。。。。。。。。。

ndyndy · 发表于 2013-1-21 09:47:38

用上了。谢谢

charleswang · 发表于 2014-6-22 23:49:11

正好犯愁呢……

charleswang · 发表于 2014-6-22 23:49:25

多谢多谢！

laojikelly · 发表于 2019-9-13 12:57:21

论坛还真的是第二个百度

smooth · 发表于 2019-11-1 12:49:30

qop1830 发表于 2008-7-19 09:19

这个只能输入数字，不能输入小数。

yohoboy · 发表于 2019-11-2 01:06:30

给个可以输入小数的代码，应该还有强人可以写更好的。

#include <MsgBoxConstants.au3>
$GuiInfo = GUICreate("Data",250,150)
$GuiInput= GUICtrlCreateInput("",140,10,80,30)
$guicombolbl = GUICtrlCreateLabel("key Number",10,10,80,30)
GUISetState(@SW_SHOW)
while 2
    $gMsg = GUIGetMsg()
    Switch $gMsg
        Case -3
                        Exit
        Case $GuiInput
                        $test = GUICtrlRead($GuiInput)
                        MsgBox(0,"",$test)
                        $test2 = StringIsInt($test)
                        $test3 = StringIsFloat($test)
                        If $test2 = 0 and $test3 = 0 Then
                                MsgBox($MB_SYSTEMMODAL, "", "变量不是一个数字")
                        Else
                                MsgBox($MB_SYSTEMMODAL, "", "变量是一个数字:" & $test)
                        EndIf
    EndSwitch
WEnd

		自动登录	找回密码
密码			加入

如何让输入框只能输入数字？

评分