afan 发表于 2020-8-24 15:12:56

本帖最后由 afan 于 2020-9-20 14:47 编辑

chzj589 发表于 2020-8-23 21:24
用以下代码试试
不要搞得那么复杂,精简代码是解决问题的第一步
功能达到了再去优化,关键还是设计思路
列表临时出现一个下拉控件并处理交互,可以很简单
#include <GUIListView.au3>

Global $hListView1, $aItem, $iCombo
Global $sDefCombo1 = '11|22', $sDefCombo2 = 'abc|ZZZ'
_GUICreate()
While GUIGetMsg() <> -3
WEnd

Func _GUICreate()
        Local $hGUI = GUICreate('')
        Dim $iCombo = GUICtrlCreateCombo('', -100, -100)
        Local $ListView1 = GUICtrlCreateListView('编号|可双击下拉1  |xxx|可双击下拉2  |fff', 2, 30, 396, 250)
        Dim $hListView1 = GUICtrlGetHandle(-1)
        GUICtrlSetFont(-1, 11, 400, 0, '微软雅黑')
        _GUICtrlListView_SetExtendedListViewStyle($ListView1, $LVS_EX_GRIDLINES + $LVS_EX_FULLROWSELECT)
        For $ii = 1 To 8
                GUICtrlCreateListViewItem(StringFormat('%s|aaa-%s|BBB_%s|333.%s|ddd~%s', $ii, $ii, $ii, $ii, $ii), $ListView1)
        Next
        GUISetState()
        GUIRegisterMsg(0x004E, '_WM_NOTIFY') ;$WM_NOTIFY = 0x004E
EndFunc   ;==>_GUICreate

Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
        #forceref $hWnd, $iMsg, $iwParam
        Local $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
        Local $hWndFrom = HWnd(DllStructGetData($tNMHDR, 'hWndFrom'))
        Local $iCode = DllStructGetData($tNMHDR, 'Code')
        Switch $hWndFrom
                Case $hListView1
                        Switch $iCode
                                Case -2 ;$NM_CLICK = -2
                                        If IsArray($aItem) Then
                                                _GUICtrlListView_SetItemText($hListView1, $aItem, GUICtrlRead($iCombo), $aItem)
                                                GUICtrlSetPos($iCombo, -1000, -100)
                                                Dim $aItem = 0
                                        EndIf
                                Case -3 ;$NM_DBLCLK = -3
                                        Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
                                        Local $iIndex = DllStructGetData($tInfo, 'Index')
                                        Local $iSub = DllStructGetData($tInfo, 'SubItem')
                                        Dim $aItem = 0
                                        If Not StringRegExp($iSub, "^(1|3)$") Then Return 'GUI_RUNDEFMSG'
                                        Local $aRect = _GUICtrlListView_GetSubItemRect($hListView1, $iIndex, $iSub)
                                        Dim $aItem = [$iIndex, $iSub]
                                        Local $sDef = $sDefCombo1
                                        If $iSub = 3 Then $sDef = $sDefCombo2
                                        Local $sData = _GUICtrlListView_GetItemText($hListView1, $iIndex, $iSub)
                                        GUICtrlSetPos($iCombo, $aRect + 4, $aRect + 32, $aRect - $aRect)
                                        GUICtrlSetData($iCombo, '|' & $sData & '|' & $sDef, $sData)
                                        GUICtrlSetState($iCombo, 256)

                        EndSwitch
        EndSwitch
        Return 'GUI_RUNDEFMSG'
EndFunc   ;==>_WM_NOTIFY


又被吃代码了,还好自己复制测试发现了问题。

chzj589 发表于 2020-8-24 15:20:03

afan 发表于 2020-8-24 15:12
不要搞得那么复杂,精简代码是解决问题的第一步
功能达到了再去优化,关键还是设计思路
列表临时出现一 ...

谢谢!打开了思路。

chzj589 发表于 2020-8-25 15:45:32

afan 发表于 2020-8-24 15:12
不要搞得那么复杂,精简代码是解决问题的第一步
功能达到了再去优化,关键还是设计思路
列表临时出现一 ...

请教:
鼠标左鍵单击=-2
鼠标左鍵双击=-3
为什么?
那鼠标右键单击= ?
代码受益非浅!
主要是这一行: GUICtrlSetData($iCombo, '|' & $sData & '|' & $sDef, $sData)
还有:
If IsArray($aItem) Then
_GUICtrlListView_SetItemText($hListView1, $aItem, GUICtrlRead($iCombo), $aItem)
GUICtrlSetPos($iCombo, -1000, -100)
Dim $aItem = 0
EndIf

afan 发表于 2020-8-25 15:49:27

chzj589 发表于 2020-8-25 15:45
请教:
鼠标左鍵单击=-2
鼠标左鍵双击=-3


这是 Windows 消息常量,固定值,在 WindowsConstants.au3 中:

Global Const $NM_FIRST = 0
Global Const $NM_OUTOFMEMORY = $NM_FIRST - 1
Global Const $NM_CLICK = $NM_FIRST - 2
Global Const $NM_DBLCLK = $NM_FIRST - 3
Global Const $NM_RETURN = $NM_FIRST - 4
Global Const $NM_RCLICK = $NM_FIRST - 5
Global Const $NM_RDBLCLK = $NM_FIRST - 6

afan 发表于 2020-8-25 15:57:16

chzj589 发表于 2020-8-25 15:45
请教:
鼠标左鍵单击=-2
鼠标左鍵双击=-3

不管临时控件或是浮窗交互,首先显示原有数据这是必须的,然后再可以编辑或取消。
这都是关乎用户体验及方便数据交互的问题。

chzj589 发表于 2020-8-25 16:09:22

afan 发表于 2020-8-25 15:49
这是 Windows 消息常量,固定值,在 WindowsConstants.au3 中:

Global Const $NM_FIRST = 0


谢谢!要学习的知识还很多。

afan 发表于 2020-8-25 22:30:53

chzj589 发表于 2020-8-25 16:09
谢谢!要学习的知识还很多。

常量值的问题,可以使用我的工具,常量询捕 https://www.autoitx.com/thread-71517-1-1.html
值是多少,出自哪里,一目了然。

chzj589 发表于 2020-8-26 11:03:02

afan 发表于 2020-8-25 22:30
常量值的问题,可以使用我的工具,常量询捕 https://www.autoitx.com/thread-71517-1-1.html
值是多少, ...

感谢!方便多了
页: 1 [2]
查看完整版本: 求合并_GUICtrlComboBox_Create与_GUICtrlComboBoxEx_Create的WM_NOTIFY消息