[已解决]菜鸟提问：关于回车键设置。

king8462 · 发表于 2010-4-27 00:01:53

本帖最后由 king8462 于 2010-4-28 12:16 编辑

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 368, 237, 268, 268)
$Label1 = GUICtrlCreateLabel("姓名", 113, 40, 52, 17)
GUICtrlSetTip(-1, "1")
$Input1 = GUICtrlCreateInput("", 185, 40, 76, 21)
$Input2 = GUICtrlCreateInput("", 185, 80, 76, 21)
$Input3 = GUICtrlCreateInput("", 185, 120, 76, 21)
$OK_Btn = GUICtrlCreateButton("确定", 81, 208, 76, 28, 0)
$Button1 = GUICtrlCreateButton("退出", 217, 208, 76, 28, 0)
$Label2 = GUICtrlCreateLabel("性别", 113, 88, 52, 17)
$Label3 = GUICtrlCreateLabel("性别", 113, 128, 52, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Form1_1
EndSwitch
WEnd

代码如上。
请教：
在Input1中输入姓名内容后怎么才能按回车键进入Input2性别输入框，而不需要按tab键。

3mile · 发表于 2010-4-27 09:45:56

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
HotKeySet("{Enter}", "captureEsc")
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 368, 237, 268, 268)
$Label1 = GUICtrlCreateLabel("姓名", 113, 40, 52, 17)
GUICtrlSetTip(-1, "1")
$Input1 = GUICtrlCreateInput("", 185, 40, 76, 21)
$Input2 = GUICtrlCreateInput("", 185, 80, 76, 21)
$Input3 = GUICtrlCreateInput("", 185, 120, 76, 21)
$OK_Btn = GUICtrlCreateButton("确定", 81, 208, 76, 28, 0)
$Button1 = GUICtrlCreateButton("退出", 217, 208, 76, 28, 0)
$Label2 = GUICtrlCreateLabel("性别", 113, 88, 52, 17)
$Label3 = GUICtrlCreateLabel("性别", 113, 128, 52, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Func captureEsc()
    ; 这里可定义要做的各种任务 
    Send("{Tab}")
EndFunc

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

                Case $Form1_1
        EndSwitch
WEnd

水木子 · 发表于 2010-4-27 09:52:52

3mile 发表于 2010-4-27 09:45

楼上这个方法倒是可行，不过有个问题是，这样会影响所有回车键。
也就是说当运行这个窗体的时候，在其他窗体上按回车一样会出现相同的效果。

rikthhpgf2005 · 发表于 2010-4-27 10:00:37

学习中....帮助有得嘛!

boyhong · 发表于 2010-4-27 10:22:11

本帖最后由 boyhong 于 2010-4-27 10:27 编辑

再接着改造一下呢？
$ccautodeng= WinWait("窗口名","",3)
If $ccautodeng <>0 Then
WinWaitActive("窗口名", "")
Send("{Tab}")
endif

lanfengc · 发表于 2010-4-27 10:30:32

楼上这个方法倒是可行，不过有个问题是，这样会影响所有回车键。
也就是说当运行这个窗体的时候，在其 ...
水木子发表于 2010-4-27 09:52

Func captureEsc()
   If WinActive("Form1") Then   
           ;判断激活的窗体是不是程序的窗体。
       ;如果是才发送TAB， 否则不发送。

    Send("{Tab}")
   EndIf
EndFunc

这样判断下就可以了。

boyhong · 发表于 2010-4-27 10:31:29

不好意思，菜鸟我没有看懂楼上大大们的意思，能不能在自身来个AdlibRegister并且如下：
#Include <Misc.au3>
if _IsPressed(0D) then Send("{Tab}")

水木子 · 发表于 2010-4-27 10:37:52

楼主的问题和这个问题类似，看看吧！
http://www.autoitx.com/forum.php ... mp;page=1#pid148576

king8462 · 发表于 2010-4-28 12:15:48

谢谢楼上几位的帮助！

		自动登录	找回密码
密码			加入

[AU3基础] [已解决]菜鸟提问：关于回车键设置。

评分