snjjj7 发表于 2010-12-17 14:35:39

怎么限制input只能输入数字与小数点？（已解决）

本帖最后由 snjjj7 于 2010-12-17 23:57 编辑

怎么限制input只能输入数字与小数点？

我的解决方法在4楼。

the886 发表于 2010-12-17 21:16:52

帮顶.............................

yhxhappy 发表于 2010-12-17 23:08:38

本帖最后由 yhxhappy 于 2010-12-18 09:42 编辑

#include <GUIConstantsEx.au3>

$GUI = GUICreate("", 320, 120)
$Input = GUICtrlCreateInput("", 10, 35, 300, 20)

GUISetState()

While 1
        $msg = GUIGetMsg()
        Switch $msg
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch

        $t = GUICtrlRead($Input)
        If $t <> "" Then
                If StringRight($t, 1) <> "." And StringIsDigit(StringRight($t, 1)) = 0 Then GUICtrlSetData($Input, StringTrimRight($t, 1))
        EndIf
WEnd

snjjj7 发表于 2010-12-17 23:53:13

本帖最后由 snjjj7 于 2010-12-17 23:59 编辑

好复杂。。。。。。不过还是谢谢你。

我也自己找到方法了，很简单的。

在While 1 这句后面加以下两句就OK了。{:face (239):}

$in = GUICtrlRead($Input)
If Not(StringIsDigit($in) Or StringIsFloat($in)) Then GUICtrlSetData($Input,StringTrimRight($in,1))

原理就是检测输入框里面的是不是一个整数或浮点数。

谢谢。

83265358 发表于 2010-12-18 18:25:32

頂一下。。。。。。。

gzh888666 发表于 2010-12-19 17:15:02

支持一下这个，新手福音

大建子1 发表于 2011-1-12 14:04:30

谢谢。我正需要这个东西。
页: [1]
查看完整版本: 怎么限制input只能输入数字与小数点？（已解决）