|
|
发表于 2009-9-23 00:41:10
|
显示全部楼层
试试这个看,应该符合LZ的要求了- #include <GUIConstantsEx.au3>
- Opt('MustDeclareVars', 1)
- Local $input, $btn, $msg, $dat, $len, $ctrlhandle
- GUICreate("input", 130, 80)
- $input = GUICtrlCreateInput("", 10, 5, 110, 20)
- GUICtrlSetLimit(-1, 17)
- $btn = GUICtrlCreateButton("Ok", 35, 45, 60, 20)
- GUISetState()
- While $msg <> $GUI_EVENT_CLOSE
- $msg = GUIGetMsg()
- Switch $msg
- Case $btn
- MsgBox(4096, "", GUICtrlRead($input))
- EndSwitch
- reinput($input)
- WEnd
- Func reinput($ctrlhandle)
- $dat = GUICtrlRead($ctrlhandle)
- $len = StringLen($dat)
- If $len = 2 Or $len = 5 Or $len = 8 Or $len = 11 Or $len = 14 Then
- GUICtrlSetData($ctrlhandle, $dat & "-")
- EndIf
- EndFunc ;==>reinput
复制代码 |
|