#include <WindowsConstants.au3>
Dim $Input[4]
HotKeySet("{Enter}","_Enter")
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 327, 223, 192, 124)
$Input[1] = GUICtrlCreateInput("", 96, 40, 121, 21)
$Input[2] = GUICtrlCreateInput("", 96, 72, 121, 21)
$Input[3] = GUICtrlCreateInput("", 96, 104, 121, 21)
$Button1 = GUICtrlCreateButton("Button1", 112, 136, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _Enter()
$r = StringTrimLeft(ControlGetFocus($Form1),4)
Switch $r
Case 1 To 2
ControlClick ($Form1, "", "Edit"&$r+1, "left",2)
Case 3
ControlClick ($Form1, "", "Edit1", "left",2)
EndSwitch
EndFunc
你要的是不是这种效果?
|