RSS
热门关键字: au3 gui wmi ie.a msi ie.au3
当前位置:AutoIt软件专题站 > 常用代码 > 正文

输入框检测实例

来源: 作者:Sanhen 时间:08年11月02日 浏览:

演示图:

代码如下:

#include <GuiConstants.au3>

Global $MARk_1     = 0
Global $DEFAULTINPUTDATA_1   = "点击这里输入内容"

Global $MARK_2     = 0
Global $DEFAULTINPUTDATA_2   = "AUTOIT软件主题站"

Global $MARK_3     = 0
Global $DEFAULTINPUTDATA_3   = "www.1msoft.com"

Global $NONEAACTIVECOLOR    = 0x989898

$GUI = GUICreate("检测输入框演示例子", 280, 150)

$Input_1 = GUICtrlCreateInput($DEFAULTINPUTDATA_1, 15, 20, 250, 20)
GUICtrlSetColor(-1, $NONEAACTIVECOLOR)

$Input_2 = GUICtrlCreateInput($DEFAULTINPUTDATA_2, 15, 60, 250, 20)
GUICtrlSetColor(-1, $NONEAACTIVECOLOR)

$Input_3 = GUICtrlCreateInput($DEFAULTINPUTDATA_3, 15, 100, 250, 20)
GUICtrlSetColor(-1, $NONEAACTIVECOLOR)

$aboutButton = GUICtrlCreateButton("AUTOIT软件主题站", 50, 125, 100, 20)
$ExitButton = GUICtrlCreateButton("退出", 200, 125, 60, 20)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
GUISetState()
ControlFocus($Gui, "", $ExitButton)

While 1
    _CheckInput($GUI, $Input_1, "点击这里输入内容", $DEFAULTINPUTDATA_1, $MARK_1)
    _CheckInput($GUI, $Input_2, "AUTOIT软件主题站", $DEFAULTINPUTDATA_2, $MARK_2)
    _CheckInput($GUI, $Input_3, "www.1msoft.com", $DEFAULTINPUTDATA_3, $MARK_3)
    Switch GUIGetMsg()
        Case $aboutButton
          ShellExecute("www.1msoft.com")
        Case $ExitButton, -3
            Exit
    EndSwitch
WEnd

Func _CheckInput($hWnd, $ID, $InputDefText, ByRef $DefaultInputData, ByRef $Mark)
    If $Mark = 0 And _IsFocused($hWnd, $ID) And $DefaultInputData = $InputDefText Then
        $Mark = 1
        GUICtrlSetData($ID, "")
        GUICtrlSetColor($ID, 0x000000)
        $DefaultInputData = ""
    ElseIf $Mark = 1 And Not _IsFocused($hWnd, $ID) And $DefaultInputData = "" And GUICtrlRead($ID) = "" Then
        $Mark = 0
        $DefaultInputData = $InputDefText
        GUICtrlSetData($ID, $DefaultInputData)
        GUICtrlSetColor($ID, $NONEAACTIVECOLOR)
    EndIf
EndFunc

Func _IsFocused($hWnd, $nCID)
    Return ControlGetHandle($hWnd, '', $nCID) = ControlGetHandle($hWnd, '', ControlGetFocus($hWnd))
EndFunc
最新评论
昵称
评论內容