找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › 【已解决】关于使用多个listviewr遇到的问题 ...
返回列表 发新帖
查看: 2368|回复: 5

[网络通信] 【已解决】关于使用多个listviewr遇到的问题

[复制链接]
anythinging
发表于 2021-1-3 20:50:16 | 显示全部楼层 |阅读模式
本帖最后由 anythinging 于 2021-1-4 11:46 编辑

前面经A版指点，采用2个listveiw,通过显示隐藏状态来切换表格显示。
1、遇到个大问题：修改任意一侧表格内内容，另一侧也会随着改变。
好象是需要升级_update()来解，自行尝试修改多次无果，只能向A版求助。
2、还有个小问题，左侧第1列的表格在双击后编辑状态窗口宽很多，没弄明白是什么原因。
3、另求证在_WM_NOTIFY，加入Case $hListView2响应listview2表格，是否是正确的方法？
#include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <GuiListView.au3>
#include <WindowsConstants.au3>
#include <GuiMenu.au3>

Global $gui, $list1, $list2
Global $hListView1,$hListView2,$listViewNum
Global $aItem


$gui = GUICreate($gui, 1000, 400)
$bt1 = GUICtrlCreateButton('切换1', 20, 270, 60, 20)
$bt2 = GUICtrlCreateButton('切换2', 100, 270, 60, 20)

Dim $iCombo = GUICtrlCreateCombo('', -100, -100)

list1()
list2()

GUISetState()

GUIRegisterMsg(0x004E, '_WM_NOTIFY') ;$WM_NOTIFY = 0x004E

Local $id1 = GUICtrlCreateDummy()
Local $aAccelKeys[1][2]= [['{Enter}', $id1]]
GUISetAccelerators($aAccelKeys)

Func _UdpData()

        If Not IsArray($aItem) Then Return
        Local $sRd = GUICtrlRead($iCombo), $sData = ''
        ;_GUICtrlListView_SetItemText($hListView1, $aItem[0], $sRd, $aItem[1])        ;单listview

        Switch $listViewNum
                Case 1
                        _GUICtrlListView_SetItemText($hListView1, $aItem[0], $sRd, $aItem[1])        ;多listView
                Case 2
                        _GUICtrlListView_SetItemText($hListView2, $aItem[0], $sRd, $aItem[1])        ;多listView
                Case 3
        EndSwitch

        GUICtrlSetPos($iCombo, -1000, -100)
;~         MsgBox(262144,'','激活了快捷键',1)
EndFunc   ;==>_UdpData


While 1
        Switch GUIGetMsg()
                Case $GUI_EVENT_CLOSE
                        ExitLoop
                Case $bt1
                        GUICtrlSetState($list2, 32)
                        GUICtrlSetState($list1, 16)
                Case $bt2
                        GUICtrlSetState($list1, 32)
                        GUICtrlSetState($list2, 16)
                Case $list1
                        _GUICtrlListView_SortItems($list1, GUICtrlGetState($list1))

                Case $list2
                        _GUICtrlListView_SortItems($list2, GUICtrlGetState($list2))

                                Case $id1
                                        _UdpData()
        EndSwitch
WEnd

_GUICtrlListView_UnRegisterSortCallBack($list1)
_GUICtrlListView_UnRegisterSortCallBack($list2)

Func list1()
        $list1 = GUICtrlCreateListView("英文 1|英文 2|英文 3", 10, 10, 280, 180)
                Dim         $hListView1        = GUICtrlGetHandle(-1)
        _GUICtrlListView_AddItem($list1, 'aa')
        _GUICtrlListView_AddSubItem($list1, 0, 'bb', 1)
        _GUICtrlListView_AddSubItem($list1, 0, 'cc', 2)
        _GUICtrlListView_AddItem($list1, 'dd')
        _GUICtrlListView_AddSubItem($list1, 1, 'ee', 1)
        _GUICtrlListView_AddSubItem($list1, 1, 'ff', 2)
        _GUICtrlListView_RegisterSortCallBack($list1, 0)
EndFunc   ;==>list1

Func list2()
        $list2 = GUICtrlCreateListView("数字 1|数字 2|数字 3|数字 4", 510, 10, 280, 180)
                Dim         $hListView2        = GUICtrlGetHandle(-1)
        _GUICtrlListView_AddItem($list2, '11')
        _GUICtrlListView_AddSubItem($list2, 0, '22', 1)
        _GUICtrlListView_AddSubItem($list2, 0, '233', 2)
        _GUICtrlListView_AddSubItem($list2, 0, '144', 3)
        _GUICtrlListView_AddItem($list2, '55')
        _GUICtrlListView_AddSubItem($list2, 1, '66', 1)
        _GUICtrlListView_AddSubItem($list2, 1, '77', 2)
        _GUICtrlListView_AddSubItem($list2, 1, '88', 3)
        _GUICtrlListView_RegisterSortCallBack($list2, 1)

EndFunc   ;==>list2



Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
        #forceref $hWnd, $iMsg, $iwParam
        Local $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
        Switch DllStructGetData($tNMHDR, 'hWndFrom')
                Case $hListView1
                        $listViewNum = 1
                                                Switch DllStructGetData($tNMHDR, 'Code')
                                                        Case -2
                                                                If IsArray($aItem) Then
                                                                                _UdpData()
                                                                Else
                                                                                Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
                                                                                Local $index = DllStructGetData($tInfo, 'Index')
                                                                                Local $SubItem = DllStructGetData($tInfo, 'SubItem')
                                        If $SubItem = 2 Then
                                                Local $context = GUICtrlCreateContextMenu(GUICtrlCreateDummy())
                                                Dim $hMenu = GUICtrlGetHandle($context)
                                                GUICtrlCreateMenuItem('男', $context)
                                                GUICtrlCreateMenuItem('女', $context)
                                                Local $iid = _GUICtrlMenu_TrackPopupMenu($hMenu, $gui, -1, -1, 1, 1, 2)
                                                If $iid Then _GUICtrlListView_SetItemText($hListView1, $index, _GUICtrlMenu_GetItemText($hMenu, $iid, False), 2)
                                        EndIf
                                                                EndIf
                                                        Case -3
                                                                        Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
                                                                        Local $index = DllStructGetData($tInfo, 'Index')
                                                                        Local $SubItem = DllStructGetData($tInfo, 'SubItem')
                                                                        Dim $aItem = 0
                                                                        If Not StringRegExp($SubItem, "^(0|1|2)[        DISCUZ_CODE_0        ]quot;) Then Return 'GUI_RUNDEFMSG'
                                                                        Local $aRect = _GUICtrlListView_GetSubItemRect($hListView1, $index, $SubItem)

                                                                        Dim $aItem[2] = [$index, $SubItem]
                                                                        Local $sDef

                                                                        Local $sData = _GUICtrlListView_GetItemText($hListView1, $index, $SubItem)

                                                                        GUICtrlSetPos($iCombo        , $aRect[0] + 4                , $aRect[1] + 12                ,$aRect[2] - $aRect[0])
                                                                        GUICtrlSetData($iCombo, '|' & $sData & '|' & $sDef, $sData)

                                                                        GUICtrlSetState($iCombo, 256)

                        EndSwitch

                                Case $hListView2
                                        $listViewNum = 2
                                           Switch DllStructGetData($tNMHDR, 'Code')
                                                        Case -2
                                                                If IsArray($aItem) Then
                                                                                _UdpData()
                                                                Else
                                                                                Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
                                                                                Local $index = DllStructGetData($tInfo, 'Index')
                                                                                Local $SubItem = DllStructGetData($tInfo, 'SubItem')
                                        If $SubItem = 3 Then
                                                Local $context = GUICtrlCreateContextMenu(GUICtrlCreateDummy())
                                                Dim $hMenu = GUICtrlGetHandle($context)
                                                GUICtrlCreateMenuItem('男', $context)
                                                GUICtrlCreateMenuItem('女', $context)
                                                Local $iid = _GUICtrlMenu_TrackPopupMenu($hMenu, $gui, -1, -1, 1, 1, 2)
                                                If $iid Then _GUICtrlListView_SetItemText($hListView2, $index, _GUICtrlMenu_GetItemText($hMenu, $iid, False), 3)
                                        EndIf
                                                                EndIf

                                                        Case -3
                                                                        Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
                                                                        Local $index = DllStructGetData($tInfo, 'Index')
                                                                        Local $SubItem = DllStructGetData($tInfo, 'SubItem')
                                                                        Dim $aItem = 0
                                                                         If Not StringRegExp($SubItem, "^(0|1|2)[        DISCUZ_CODE_0        ]quot;) Then Return 'GUI_RUNDEFMSG'
                                                                        Local $aRect = _GUICtrlListView_GetSubItemRect($hListView2, $index, $SubItem)

                                                                        Dim $aItem[2] = [$index, $SubItem]
                                                                        Local $sDef
                                                                        Local $sData = _GUICtrlListView_GetItemText($hListView2, $index, $SubItem)

                                                                        GUICtrlSetPos($iCombo        , $aRect[0] + 504                , $aRect[1] + 12                ,$aRect[2] - $aRect[0])
                                                                        GUICtrlSetData($iCombo, '|' & $sData & '|' & $sDef, $sData)
                                                                        GUICtrlSetState($iCombo, 256)
                        EndSwitch


        EndSwitch
EndFunc   ;==>_WM_NOTIFY




回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
afan
发表于 2021-1-3 21:59:25 | 显示全部楼层
1、是因为你把之前代码的 Dim $aItem = 0 删了。
2、左侧第1列获取的是整行，需要减去子项坐标。
3、列表2的需求与1高度雷同，因此只需定义一个函数调用，将不同的部分以变量变更的形式代入。
回复 1 0

举报

afan
发表于 2021-1-3 21:52:33 | 显示全部楼层 
#include <GuiListView.au3>
#include <GuiMenu.au3>

Global $gui, $list1, $list2
Global $hListView1, $hListView2, $listViewNum
Global $aItem

$gui = GUICreate($gui, 1000, 400)
$bt1 = GUICtrlCreateButton('切换1', 20, 270, 60, 20)
$bt2 = GUICtrlCreateButton('切换2', 100, 270, 60, 20)
Dim $iCombo = GUICtrlCreateCombo('', -100, -100)
list1()
list2()
Local $context = GUICtrlCreateContextMenu(GUICtrlCreateDummy())
Dim $hMenu = GUICtrlGetHandle($context)
GUICtrlCreateMenuItem('男', $context)
GUICtrlCreateMenuItem('女', $context)
GUISetState()

GUIRegisterMsg(0x004E, '_WM_NOTIFY') ;$WM_NOTIFY = 0x004E
Local $id1 = GUICtrlCreateDummy()
Local $aAccelKeys[1][2] = [['{Enter}', $id1]]
GUISetAccelerators($aAccelKeys)

While 1
        Switch GUIGetMsg()
                Case -3
                        ExitLoop
                Case $bt1
                        GUICtrlSetState($list2, 32)
                        GUICtrlSetState($list1, 16)
                Case $bt2
                        GUICtrlSetState($list1, 32)
                        GUICtrlSetState($list2, 16)
                Case $list1
                        _GUICtrlListView_SortItems($list1, GUICtrlGetState($list1))
                Case $list2
                        _GUICtrlListView_SortItems($list2, GUICtrlGetState($list2))
                Case $id1
                        _UdpData()
        EndSwitch
WEnd
_GUICtrlListView_UnRegisterSortCallBack($list1)
_GUICtrlListView_UnRegisterSortCallBack($list2)

Func list1()
        $list1 = GUICtrlCreateListView("英文 1|英文 2|英文 3", 10, 10, 280, 180)
        Dim $hListView1 = GUICtrlGetHandle(-1)
        _GUICtrlListView_AddItem($list1, 'aa')
        _GUICtrlListView_AddSubItem($list1, 0, 'bb', 1)
        _GUICtrlListView_AddSubItem($list1, 0, 'cc', 2)
        _GUICtrlListView_AddItem($list1, 'dd')
        _GUICtrlListView_AddSubItem($list1, 1, 'ee', 1)
        _GUICtrlListView_AddSubItem($list1, 1, 'ff', 2)
        _GUICtrlListView_RegisterSortCallBack($list1, 0)
EndFunc   ;==>list1

Func list2()
        $list2 = GUICtrlCreateListView("数字 1|数字 2|数字 3|数字 4", 510, 10, 280, 180)
        Dim $hListView2 = GUICtrlGetHandle(-1)
        _GUICtrlListView_AddItem($list2, '11')
        _GUICtrlListView_AddSubItem($list2, 0, '22', 1)
        _GUICtrlListView_AddSubItem($list2, 0, '233', 2)
        _GUICtrlListView_AddSubItem($list2, 0, '144', 3)
        _GUICtrlListView_AddItem($list2, '55')
        _GUICtrlListView_AddSubItem($list2, 1, '66', 1)
        _GUICtrlListView_AddSubItem($list2, 1, '77', 2)
        _GUICtrlListView_AddSubItem($list2, 1, '88', 3)
        _GUICtrlListView_RegisterSortCallBack($list2, 1)
EndFunc   ;==>list2

Func _UdpData()
        If Not IsArray($aItem) Then Return
        Local $sRd = GUICtrlRead($iCombo), $sData = ''
        ;_GUICtrlListView_SetItemText($hListView1, $aItem[0], $sRd, $aItem[1])        ;单listview
        Switch $listViewNum
                Case 1
                        _GUICtrlListView_SetItemText($hListView1, $aItem[0], $sRd, $aItem[1]) ;多listView
                Case 2
                        _GUICtrlListView_SetItemText($hListView2, $aItem[0], $sRd, $aItem[1]) ;多listView
                Case 3
        EndSwitch
        GUICtrlSetPos($iCombo, -1000, -100)
        Dim $aItem = 0
EndFunc   ;==>_UdpData

Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
        #forceref $hWnd, $iMsg, $iwParam
        Local $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
        Switch DllStructGetData($tNMHDR, 'hWndFrom')
                Case $hListView1
                        $listViewNum = 1
                        __LVWMsg($tNMHDR, $ilParam)

                Case $hListView2
                        $listViewNum = 2
                        __LVWMsg($tNMHDR, $ilParam)
        EndSwitch
EndFunc   ;==>_WM_NOTIFY

Func __LVWMsg($tNMHDR, $ilParam)
        Local $hLVW = $hListView2, $iXAdd = 514, $MenuSubIx = 3
        If $listViewNum = 1 Then
                $hLVW = $hListView1
                $iXAdd = 14
                $MenuSubIx = 2
        EndIf
        Switch DllStructGetData($tNMHDR, 'Code')
                Case -2
                        If IsArray($aItem) Then
                                _UdpData()
                        Else
                                Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
                                Local $index = DllStructGetData($tInfo, 'Index')
                                If $index = -1 Then Return
                                Local $SubItem = DllStructGetData($tInfo, 'SubItem')
                                If $SubItem = $MenuSubIx Then
                                        Local $iid = _GUICtrlMenu_TrackPopupMenu($hMenu, $gui, -1, -1, 1, 1, 2)
                                        If $iid Then _GUICtrlListView_SetItemText($hLVW, $index, _GUICtrlMenu_GetItemText($hMenu, $iid, False), $MenuSubIx)
                                EndIf
                        EndIf
                Case -3
                        Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
                        Local $index = DllStructGetData($tInfo, 'Index')
                        If $index = -1 Then Return
                        Local $SubItem = DllStructGetData($tInfo, 'SubItem')
                        Dim $aItem = 0
                        If Not StringRegExp($SubItem, "^(0|1|2)$") Then Return ;'GUI_RUNDEFMSG'
                        Local $aRect = _GUICtrlListView_GetSubItemRect($hLVW, $index, $SubItem)
                        Dim $aItem[2] = [$index, $SubItem]
                        Local $sDef
                        Local $sData = _GUICtrlListView_GetItemText($hLVW, $index, $SubItem)
                        Local $iW = $aRect[2] - $aRect[0]
                        If $SubItem = 0 Then
                                Local $aRect1 = _GUICtrlListView_GetSubItemRect($hLVW, $index, 1)
                                $iW = $aRect1[0] - $aRect[0]
                        EndIf
                        GUICtrlSetPos($iCombo, $aRect[0] + $iXAdd, $aRect[1] + 12, $iW)
                        GUICtrlSetData($iCombo, '|' & $sData & '|' & $sDef, $sData)
                        GUICtrlSetState($iCombo, 256)
        EndSwitch
EndFunc   ;==>__LVWMsg

评分

参与人数 1金钱 +40 收起 理由
anythinging + 40

查看全部评分

回复

举报

anythinging
 楼主| 发表于 2021-1-3 22:31:46 | 显示全部楼层
加了Dim $aItem = 0，A版代码果然无敌于天下！
怪自己没完全理解好，Dim $aItem = 0居然这么重要。
本以为A版的示例看的差不多了，看来还要继续学习。


另外请教A版，如果功能差很多的话，在 _WM_NOTIFY中，通过switch
Case $hListView1
Case $hListView2
Case $hListView3
Case $hListViewN ......................
可以这样用吗？有没有什么隐患？
回复

举报

anythinging
 楼主| 发表于 2021-1-3 22:43:45 | 显示全部楼层
本帖最后由 anythinging 于 2021-1-3 22:46 编辑

万事皆有因，刚检查了之前的代码，
之所以原来一直没发现第一列宽度的问题，是因为第1列一直用的是序号，进而侥幸的成功避开了宽度的坑。
直到今天，终于掉进去了。感谢A版解答，又要学习A版新发的代码了。
回复

举报

afan
发表于 2021-1-4 00:47:51 | 显示全部楼层
anythinging 发表于 2021-1-3 22:31
加了Dim $aItem = 0，A版代码果然无敌于天下！
怪自己没完全理解好，Dim $aItem = 0居然这么重要。
本以 ...

怎么用都可以，没什么隐患，只要满足自己编写习惯
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-5-19 12:07 , Processed in 0.092051 second(s), 25 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表