鼠标双击事件问题 [已解决]

hillgx · 发表于 2010-9-2 21:46:44

本帖最后由 hillgx 于 2010-9-3 19:47 编辑

如何在指定的或者多个输入框内，双击鼠标执行复制粘贴?
A输入框，双击复制，B输入框，双击粘贴？
高手能写个例子吗，thx~

hillgx · 发表于 2010-9-3 16:08:54

版主不在吗，其它的高人回答一下，谢谢

风行者 · 发表于 2010-9-3 16:49:07

edit 找不到有双击的消息
下面是，A不需要双击，自动复制到粘贴版，B点击一次就会粘贴

#include <GUIConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("test", 271, 121, 297, 145)
$Input1 = GUICtrlCreateInput("A", 32, 24, 217, 21)
$Input2 = GUICtrlCreateInput("B", 32, 72, 217, 21)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
GUISetState(@SW_SHOW)

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

Func WM_COMMAND($hWnd, $Msg, $wParam, $lParam)
        $nNotifyCode = BitShift($wParam, 16)
        $nID = BitAND($wParam, 0x000FFFF)
        Switch $nID
                Case $Input1
                        Switch $nNotifyCode
                                Case $EN_UPDATE
                                                ClipPut(GUICtrlRead($Input1))
                        EndSwitch
                Case $Input2
                        Switch $nNotifyCode
                                Case $EN_SETFOCUS
                                        GUICtrlSetData($Input2,ClipGet())
                        EndSwitch
        EndSwitch
EndFunc   ;==>WM_COMMAND

hillgx · 发表于 2010-9-3 19:47:03

本帖最后由 hillgx 于 2010-9-3 19:50 编辑

回复 3# 风行者
谢谢，试了一下，感觉还好。要是能改进下就更好了
就是双击复制，双击粘贴，Au3有局限？。。

afan · 发表于 2010-9-3 19:54:05

本帖最后由 afan 于 2010-9-3 19:56 编辑

这个不是常规搞法…
最好改变战略，设置一个控件，点击一下就将A复制到B不就行了，只用到了1/4的鼠标按键量，环保从编程做起

绿色风 · 发表于 2010-11-21 23:47:26

快捷键 + 按钮双重使用
http://www.autoitx.com/thread-19791-1-1.html

zerobin · 发表于 2012-6-14 19:50:11

确实。
edit 找不到有双击的消息通知

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

[AU3基础] 鼠标双击事件问题 [已解决]

评分

相关帖子

评分