论坛 › 已解决问题区 › 如何让输入框只能输入数字？

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

非常感谢！！！:face (29):

心梦无痕 发表于 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 http://www.autoitx.com/images/common/back.gif

这个无法输入小数……

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

查看完整版本: 如何让输入框只能输入数字？