双击事件,在WIN7 64下失效的问题

58fly · 发表于 2014-2-16 21:35:55

论坛中的源码例子:

在WIN7 64下测试,双击无反映,求助!

[/au3]#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListView.au3>

$Form1 = GUICreate("Form1", 410, 310)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

$ListView1 = GUICtrlCreateListView("||", 8, 8, 400, 300)
GUISetState(@SW_SHOW)
For $I = 1 To 10
      GUICtrlCreateListViewItem($I, $ListView1)
Next

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func WM_NOTIFY($hWndGUI, $MsgID, $WParam, $LParam)

      Local $tagNMHDR, $Event, $hWndFrom, $IDFrom
      Local $tagNMHDR = DllStructCreate("int;int;int", $LParam)
      If @error Then Return $GUI_RUNDEFMSG
      $IDFrom = DllStructGetData($tagNMHDR, 2)
      $Event = DllStructGetData($tagNMHDR, 3)
      $tagNMHDR = 0
      Switch $IDFrom;选择产生事件的控件

            Case $ListView1

                     Switch $Event; 选择产生的事件

                              Case $NM_CLICK ; 左击
;~                                     ...

                              Case $NM_DBLCLK ; 双击
                                    $Index = _GUICtrlListView_GetSelectedIndices($ListView1)
                                    If Not StringLen($Index) Then; 这里用以判断是否选定了ListViewItem
                                             MsgBox(0, "", "未选定")
                                             Return
                                    EndIf
                                    MsgBox(0,0, _GUICtrlListView_GetItemText($ListView1, Number($Index), 0))

                              Case $NM_RCLICK ; 右击
;~                                     ...
                     EndSwitch

      EndSwitch

      Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
[/au3]

nmgwddj · 发表于 2014-2-17 16:41:35

把脚本改成32位方式运行，右键脚本文件-编译脚本(带选项)，选择x86就行了。
或者在脚本头部增加 #PRE_UseX64=n

tubaba · 发表于 2014-2-17 21:58:41

本帖最后由 tubaba 于 2014-2-17 22:09 编辑

#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListView.au3>

$Form1 = GUICreate("Form1", 410, 310)
GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")

$ListView1 = GUICtrlCreateListView("||", 8, 8, 400, 300)
GUISetState(@SW_SHOW)
For $I = 1 To 10
        GUICtrlCreateListViewItem($I, $ListView1)
Next

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

Func WM_NOTIFY($hWndGUI, $MsgID, $WParam, $LParam)
        Local $hWndFrom, $IDFrom, $iCode, $tNMHDR
        $tNMHDR = DllStructCreate($tagNMHDR, $LParam)
        $IDFrom = DllStructGetData($tNMHDR, "IDFrom")
        $iCode = DllStructGetData($tNMHDR, "Code")
        Switch $IDFrom;选择产生事件的控件
                Case $ListView1

                        Switch $iCode; 选择产生的事件
                                
                                Case $NM_CLICK ; 左击
;~                                      ...
                                        
                                Case $NM_DBLCLK ; 双击
                                        $Index = _GUICtrlListView_GetSelectedIndices($ListView1)
                                        If Not StringLen($Index) Then; 这里用以判断是否选定了ListViewItem
                                                MsgBox(0, "", "未选定")
                                                Return
                                        EndIf
                                        MsgBox(0,0, _GUICtrlListView_GetItemText($ListView1, Number($Index), 0))
                                        
                                Case $NM_RCLICK ; 右击
;~                                      ...
                        EndSwitch
                        
        EndSwitch
        
        Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

$tagNMHDR = DllStructCreate("int;int;int", $LParam)
应该是这句有问题吧,数据类型应该是hwnd;uint_ptr;int
帮助里有

$tagNMHDR
包含一个关于通知消息的信息

Global Const $tagNMHDR = "struct; hwnd hWndFrom;uint_ptr IDFrom;INT Code; endstruct"

参数
hWndFrom 进行发送消息的目标控件所在的窗口的窗口句柄.
IDFrom 进行发送消息的目标控件的控件标识.
Code 通知代码,这个成员可以是一个公共通知代码(常规控件通知参考),或者控件本身的特殊通知代码.

58fly · 发表于 2014-2-18 02:03:58

谢谢楼上2位,我今天测试又可以了,很郁闷..同样的系统,同样的版本

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

[AU3基础] 双击事件,在WIN7 64下失效的问题

相关帖子