#include
#include
$Form1 = GUICreate("AutoIt 捕获Input的回车事件", 309, 171, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_BORDER,$WS_CLIPSIBLINGS), $WS_EX_TOPMOST)
$Input1 = GUICtrlCreateInput("", 72, 40, 153, 21)
$Button1 = GUICtrlCreateButton("修改(&E)", 152, 72, 75, 25)
$Label1 = GUICtrlCreateLabel("╃苍狼山庄╃ HTTP://WWW.CLANG.CN", 90, 152, 235, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$strInput1 = StringLower (GUICtrlRead($Input1))
If $strInput1 = "" Then
MsgBox(0+16+262144,"警告","您没有输入任何内容!")
Else
Msgbox(0+64+262144, "信息", "您输入的是:"& $strInput1)
EndIf
EndSwitch
WEnd
Input文本框中输入任意内容,按回车激活按钮事件,只要在
$Button1 = GUICtrlCreateButton("修改(&E)", 152, 72, 75, 25)
下面加入两行代码即可:
Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
修改后的代码如下:
#include
#include
$Form1 = GUICreate("AutoIt 捕获Input的回车事件", 309, 171, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_BORDER,$WS_CLIPSIBLINGS), $WS_EX_TOPMOST)
$Input1 = GUICtrlCreateInput("", 72, 40, 153, 21)
$Button1 = GUICtrlCreateButton("修改(&E)", 152, 72, 75, 25)
Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
$Label1 = GUICtrlCreateLabel("╃苍狼山庄╃ HTTP://WWW.CLANG.CN", 90, 152, 235, 17)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$strInput1 = StringLower (GUICtrlRead($Input1))
If $strInput1 = "" Then
MsgBox(0+16+262144,"警告","您没有输入任何内容!")
Else
Msgbox(0+64+262144, "信息", "您输入的是:"& $strInput1)
EndIf
EndSwitch
WEnd