找回密码  加入

AUTOIT CN

搜索
查看: 201|回复: 14

[AU3基础] 【已解决】关于独立窗口使用combo组件编辑listview表格的问题

[复制链接]
发表于 2021-4-11 13:31:22 | 显示全部楼层 |阅读模式
本帖最后由 anythinging 于 2021-4-14 13:53 编辑

各位朋友 ,我在编辑listview表格时遇到个问题,其中有几个表格内容比较多,需要独立弹出窗口再加载listview进入编辑等操作,在新窗口中弹出菜单操作正常,但通过icombo编辑的时候会无法定位到新弹出的listview中。尝试过更改创建icombo在主窗口或子窗口置等方法没有效果。
最后在新弹出的窗口创建并调用icombo2解决了,想求证下是此方法是否够正规,另请教教科书的方法?谢谢!
问题代码:编辑listview2时无法定位
  1. #NoTrayIcon

  2. #include <WinAPI.au3>
  3. #include <WinAPIEx.au3>
  4. #include <TreeViewConstants.au3>
  5. #include <GuiMenu.au3>
  6. #include <GuiListView.au3>
  7. #include <GuiStatusBar.au3>
  8. #include <GUIConstantsEx.au3>
  9. #include <WindowsConstants.au3>

  10. Global $hGui, $hGuiSub
  11. Global $hGui, $ListView1, $hListView1, $ListView2, $hListView2, $aItem, $iInput, $iCombo,$iCombo2
  12. Global $hMenu
  13. Opt("GUIOnEventMode", 1)

  14. CreateGUI()
  15. ;~ CreateGUISub2()
  16. Func CreateGUI()
  17.         $hGui = GUICreate("主窗口", 1200, 600, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
  18.         GUISetOnEvent($GUI_EVENT_CLOSE, "_EXIT")
  19.         GUISetState()

  20.                 Local $idTreeview = GUICtrlCreateTreeView(2, 3, 200, 400, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
  21.         Local $idTreeviewA1 = GUICtrlCreateTreeViewItem("TreeA1", $idTreeview)
  22.         GUICtrlSetOnEvent(-1, 'TreeA1')
  23.                 Local $idTreeviewA2 = GUICtrlCreateTreeViewItem("TreeA2", $idTreeview)
  24.         GUICtrlSetOnEvent(-1, 'TreeA2')

  25.         Local $id1 = GUICtrlCreateDummy()
  26.         GUICtrlSetOnEvent(-1, '_UdpData')
  27.         Local $aAccelKeys[1][2] = [['{Enter}', $id1]]
  28.         GUISetAccelerators($aAccelKeys)

  29.                 Dim $iCombo = GUICtrlCreateCombo('', -100, -100)
  30.                    Dim $iCombo2 = GUICtrlCreateCombo('', -100, -100)

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

  32.                 Local $context = GUICtrlCreateContextMenu(GUICtrlCreateDummy())
  33.         Dim $hMenu = GUICtrlGetHandle($context)
  34.         GUICtrlCreateMenuItem('男', $context)
  35.         GUICtrlCreateMenuItem('女', $context)

  36. EndFunc   ;==>CreateGUI

  37. Func CreateGUISub1();-------------------------        子窗口 1   ------------------------------
  38.         $hGuiSub = GUICreate("子窗口1", 1000, 600, 201, 1, $WS_CHILD, $WS_EX_CLIENTEDGE, $hGui)
  39.                 GUISetBkColor(0x4682B4)
  40.         GUISetState()
  41.                 GUISetOnEvent($GUI_EVENT_CLOSE, "_Sub1Close")
  42.         _ListView1()
  43. EndFunc   ;==>CreateGUISub1

  44. Func CreateGUISub2();-------------------------        子窗口 2   ------------------------------
  45.                 $hGuiSub = GUICreate("子窗口2", 1000, 600, -1,-1)
  46.         GUISetBkColor(0x4682B4)
  47.         GUISetState()
  48.                 GUISetOnEvent($GUI_EVENT_CLOSE, "_Sub1Close")
  49.       _ListView2()
  50. EndFunc   ;==>CreateGUISub1

  51. While 1
  52.         Sleep(10)
  53. WEnd

  54. Func TreeA1()
  55.         If IsArray($aItem) Then
  56.                 _UdpData()
  57.                 EndIf
  58. ;~         GUIDelete($hGuiSub)
  59. ;~         GUISetState(@SW_DISABLE,$hGui)
  60.                 CreateGUISub1()
  61. EndFunc   ;==>TreeA1

  62. Func TreeA2()
  63.         If IsArray($aItem) Then
  64.                 _UdpData()
  65.                 EndIf
  66. ;~         GUIDelete($hGuiSub)
  67.         GUISetState(@SW_DISABLE,$hGui)
  68.                 CreateGUISub2()
  69. EndFunc   ;==>TreeA2

  70. Func _ListView1()
  71.         Dim $ListView1 = GUICtrlCreateListView('用户名1 | 密码1 |性别|管理', 1, 2, 596, 350)
  72.         Dim $hListView1 = GUICtrlGetHandle(-1)
  73.         For $i = 1 To 10
  74.                 GUICtrlCreateListViewItem('' & $i & '|111111|男|删除', $ListView1)
  75.         Next
  76. EndFunc   ;==>_ListView1

  77. Func _ListView2()
  78.         Dim $ListView2 = GUICtrlCreateListView('用户名2 | 密码2 |性别|管理', 1, 2, 596, 350)
  79.         Dim $hListView2 = GUICtrlGetHandle(-1)
  80.         For $i = 1 To 10
  81.                 GUICtrlCreateListViewItem('' & $i & '|222222|女|删除', $ListView2)
  82.         Next
  83. EndFunc   ;==>_ListView2

  84. Func _Sub1Close()
  85.         GUISetState(@SW_ENABLE,$hGui)
  86.                 GUIDelete($hGuiSub)
  87. EndFunc   ;==>_Sub1Close


  88. Func _UdpData()
  89.         If Not IsArray($aItem) Then Return
  90.         Local $sRd = GUICtrlRead($iCombo), $sData = ''
  91.         _GUICtrlListView_SetItemText($hListView1, $aItem[0], $sRd, $aItem[1])
  92.         GUICtrlSetPos($iCombo, -1000, -100)
  93.         Dim $aItem = 0
  94. EndFunc   ;==>_UdpData

  95. Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
  96.         #forceref $hWnd, $iMsg, $iwParam
  97.         Local $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
  98.         $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
  99.         $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
  100.         $iCode = DllStructGetData($tNMHDR, "Code")
  101.         Switch DllStructGetData($tNMHDR, 'hWndFrom')
  102.                 Case $hListView1

  103.                         Switch $iCode
  104.                                 Case -2 ;$NM_CLICK = -2
  105.                                         If IsArray($aItem) Then
  106.                                                 _UdpData()
  107.                                         EndIf
  108.                                         Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
  109.                                         Local $index = DllStructGetData($tInfo, 'Index')
  110.                                         Local $SubItem = DllStructGetData($tInfo, 'SubItem')
  111.                                         If $SubItem = 2 Then
  112.                                                 Local $iid = _GUICtrlMenu_TrackPopupMenu($hMenu, $hGui, -1, -1, 1, 1, 2)
  113.                                                 If $iid Then _GUICtrlListView_SetItemText($hListView1, $index, _GUICtrlMenu_GetItemText($hMenu, $iid, False), 2)
  114.                                                                                 EndIf
  115.                                 Case -3 ;$NM_DBLCLK = -3
  116.                                         Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
  117.                                         Local $index = DllStructGetData($tInfo, 'Index')
  118.                                         Local $SubItem = DllStructGetData($tInfo, 'SubItem')
  119.                                         Dim $aItem = 0
  120.                                         Local $aRect = _GUICtrlListView_GetSubItemRect($hListView1, $index, $SubItem)
  121.                                         Dim $aItem[2] = [$index, $SubItem]
  122.                                         Local $sDef ;设置菜单
  123.                                         Global $sData = _GUICtrlListView_GetItemText($hListView1, $index, $SubItem)
  124.                                         GUICtrlSetPos($iCombo, $aRect[0] + 204, $aRect[1] + 8, $aRect[2] - $aRect[0])
  125.                                         GUICtrlSetData($iCombo, '|' & $sData, $sData)
  126.                                         GUICtrlSetState($iCombo, 256)
  127.                                                 EndSwitch

  128.                                 Case $hListView2
  129.                                                          Switch $iCode
  130.                                 Case -2 ;$NM_CLICK = -2
  131.                                         If IsArray($aItem) Then
  132.                                                 _UdpData()
  133.                                         EndIf
  134.                                         Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
  135.                                         Local $index = DllStructGetData($tInfo, 'Index')
  136.                                         Local $SubItem = DllStructGetData($tInfo, 'SubItem')
  137.                                         If $SubItem = 2 Then
  138.                                                 Local $iid = _GUICtrlMenu_TrackPopupMenu($hMenu, $hGui, -1, -1, 1, 1, 2)
  139.                                                 If $iid Then _GUICtrlListView_SetItemText($hListView2, $index, _GUICtrlMenu_GetItemText($hMenu, $iid, False), 2)
  140.                                                                                 EndIf
  141.                                                                  Case -3 ;$NM_DBLCLK = -3
  142.                                                                                 Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
  143.                                         Local $index = DllStructGetData($tInfo, 'Index')
  144.                                         Local $SubItem = DllStructGetData($tInfo, 'SubItem')
  145.                                         Dim $aItem = 0
  146.                                         Local $aRect = _GUICtrlListView_GetSubItemRect($hListView2, $index, $SubItem)
  147.                                         Dim $aItem[2] = [$index, $SubItem]
  148.                                         Local $sDef = ('1|2|3') ;设置菜单
  149.                                         Global $sData = _GUICtrlListView_GetItemText($hListView2, $index, $SubItem)
  150.                                         GUICtrlSetPos($iCombo, $aRect[0] + 4, $aRect[1] + 2, $aRect[2] - $aRect[0])
  151.                                         GUICtrlSetData($iCombo, '|' & $sData&'|'&$sDef        , $sData)
  152.                                         GUICtrlSetState($iCombo, 256)
  153.                                 EndSwitch
  154.         EndSwitch
  155. EndFunc   ;==>_WM_NOTIFY

  156. Func _Exit()
  157.         Exit
  158. EndFunc   ;==>_Exit
复制代码



解决代码求证:使用icombo2
  1. #NoTrayIcon

  2. #include <WinAPI.au3>
  3. #include <WinAPIEx.au3>
  4. #include <TreeViewConstants.au3>
  5. #include <GuiMenu.au3>
  6. #include <GuiListView.au3>
  7. #include <GuiStatusBar.au3>
  8. #include <GUIConstantsEx.au3>
  9. #include <WindowsConstants.au3>

  10. Global $hGui, $hGuiSub
  11. Global $hGui, $ListView1, $hListView1, $ListView2, $hListView2, $aItem, $iInput, $iCombo,$iCombo2
  12. Global $hMenu
  13. Opt("GUIOnEventMode", 1)

  14. CreateGUI()
  15. ;~ CreateGUISub2()
  16. Func CreateGUI()
  17.         $hGui = GUICreate("主窗口", 1200, 600, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
  18.         GUISetOnEvent($GUI_EVENT_CLOSE, "_EXIT")
  19.         GUISetState()

  20.                 Local $idTreeview = GUICtrlCreateTreeView(2, 3, 200, 400, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
  21.         Local $idTreeviewA1 = GUICtrlCreateTreeViewItem("TreeA1", $idTreeview)
  22.         GUICtrlSetOnEvent(-1, 'TreeA1')
  23.                 Local $idTreeviewA2 = GUICtrlCreateTreeViewItem("TreeA2", $idTreeview)
  24.         GUICtrlSetOnEvent(-1, 'TreeA2')

  25.         Local $id1 = GUICtrlCreateDummy()
  26.         GUICtrlSetOnEvent(-1, '_UdpData')
  27.         Local $aAccelKeys[1][2] = [['{Enter}', $id1]]
  28.         GUISetAccelerators($aAccelKeys)

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

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

  31.                 Local $context = GUICtrlCreateContextMenu(GUICtrlCreateDummy())
  32.         Dim $hMenu = GUICtrlGetHandle($context)
  33.         GUICtrlCreateMenuItem('男', $context)
  34.         GUICtrlCreateMenuItem('女', $context)

  35. EndFunc   ;==>CreateGUI

  36. Func CreateGUISub1();-------------------------        子窗口 1   ------------------------------
  37.         $hGuiSub = GUICreate("子窗口1", 1000, 600, 201, 1, $WS_CHILD, $WS_EX_CLIENTEDGE, $hGui)
  38.                 GUISetBkColor(0x4682B4)
  39.         GUISetState()
  40.                 GUISetOnEvent($GUI_EVENT_CLOSE, "_Sub1Close")
  41.         _ListView1()
  42. EndFunc   ;==>CreateGUISub1

  43. Func CreateGUISub2();-------------------------        子窗口 2   ------------------------------
  44.                 $hGuiSub = GUICreate("子窗口2", 1000, 600, -1,-1)
  45.         GUISetBkColor(0x4682B4)
  46.         GUISetState()
  47.                 GUISetOnEvent($GUI_EVENT_CLOSE, "_Sub1Close")
  48.                    Dim $iCombo2 = GUICtrlCreateCombo('', -100, -100)
  49.       _ListView2()
  50. EndFunc   ;==>CreateGUISub1

  51. While 1
  52.         Sleep(10)
  53. WEnd

  54. Func TreeA1()
  55.         If IsArray($aItem) Then
  56.                 _UdpData()
  57.                 EndIf
  58. ;~         GUIDelete($hGuiSub)
  59. ;~         GUISetState(@SW_DISABLE,$hGui)
  60.                 CreateGUISub1()
  61. EndFunc   ;==>TreeA1

  62. Func TreeA2()
  63.         If IsArray($aItem) Then
  64.                 _UdpData()
  65.                 EndIf
  66. ;~         GUIDelete($hGuiSub)
  67.         GUISetState(@SW_DISABLE,$hGui)
  68.                 CreateGUISub2()
  69. EndFunc   ;==>TreeA2

  70. Func _ListView1()
  71.         Dim $ListView1 = GUICtrlCreateListView('用户名1 | 密码1 |性别|管理', 1, 2, 596, 350)
  72.         Dim $hListView1 = GUICtrlGetHandle(-1)
  73.         For $i = 1 To 10
  74.                 GUICtrlCreateListViewItem('' & $i & '|111111|男|删除', $ListView1)
  75.         Next
  76. EndFunc   ;==>_ListView1

  77. Func _ListView2()
  78.         Dim $ListView2 = GUICtrlCreateListView('用户名2 | 密码2 |性别|管理', 1, 2, 596, 350)
  79.         Dim $hListView2 = GUICtrlGetHandle(-1)
  80.         For $i = 1 To 10
  81.                 GUICtrlCreateListViewItem('' & $i & '|222222|女|删除', $ListView2)
  82.         Next
  83. EndFunc   ;==>_ListView2

  84. Func _Sub1Close()
  85.         GUISetState(@SW_ENABLE,$hGui)
  86.                 GUIDelete($hGuiSub)
  87. EndFunc   ;==>_Sub1Close


  88. Func _UdpData()
  89.         If Not IsArray($aItem) Then Return
  90.         Local $sRd = GUICtrlRead($iCombo), $sData = ''
  91.         _GUICtrlListView_SetItemText($hListView1, $aItem[0], $sRd, $aItem[1])
  92.         GUICtrlSetPos($iCombo, -1000, -100)
  93.         Dim $aItem = 0
  94. EndFunc   ;==>_UdpData

  95. Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
  96.         #forceref $hWnd, $iMsg, $iwParam
  97.         Local $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
  98.         $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
  99.         $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
  100.         $iCode = DllStructGetData($tNMHDR, "Code")
  101.         Switch DllStructGetData($tNMHDR, 'hWndFrom')
  102.                 Case $hListView1

  103.                         Switch $iCode
  104.                                 Case -2 ;$NM_CLICK = -2
  105.                                         If IsArray($aItem) Then
  106.                                                 _UdpData()
  107.                                         EndIf
  108.                                         Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
  109.                                         Local $index = DllStructGetData($tInfo, 'Index')
  110.                                         Local $SubItem = DllStructGetData($tInfo, 'SubItem')
  111.                                         If $SubItem = 2 Then
  112.                                                 Local $iid = _GUICtrlMenu_TrackPopupMenu($hMenu, $hGui, -1, -1, 1, 1, 2)
  113.                                                 If $iid Then _GUICtrlListView_SetItemText($hListView1, $index, _GUICtrlMenu_GetItemText($hMenu, $iid, False), 2)
  114.                                                                                 EndIf
  115.                                 Case -3 ;$NM_DBLCLK = -3
  116.                                         Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
  117.                                         Local $index = DllStructGetData($tInfo, 'Index')
  118.                                         Local $SubItem = DllStructGetData($tInfo, 'SubItem')
  119.                                         Dim $aItem = 0
  120.                                         Local $aRect = _GUICtrlListView_GetSubItemRect($hListView1, $index, $SubItem)
  121.                                         Dim $aItem[2] = [$index, $SubItem]
  122.                                         Local $sDef ;设置菜单
  123.                                         Global $sData = _GUICtrlListView_GetItemText($hListView1, $index, $SubItem)
  124.                                         GUICtrlSetPos($iCombo, $aRect[0] + 204, $aRect[1] + 8, $aRect[2] - $aRect[0])
  125.                                         GUICtrlSetData($iCombo, '|' & $sData, $sData)
  126.                                         GUICtrlSetState($iCombo, 256)
  127.                                                 EndSwitch

  128.                                 Case $hListView2
  129.                                                          Switch $iCode
  130.                                 Case -2 ;$NM_CLICK = -2
  131.                                         If IsArray($aItem) Then
  132.                                                 _UdpData()
  133.                                         EndIf
  134.                                         Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
  135.                                         Local $index = DllStructGetData($tInfo, 'Index')
  136.                                         Local $SubItem = DllStructGetData($tInfo, 'SubItem')
  137.                                         If $SubItem = 2 Then
  138.                                                 Local $iid = _GUICtrlMenu_TrackPopupMenu($hMenu, $hGui, -1, -1, 1, 1, 2)
  139.                                                 If $iid Then _GUICtrlListView_SetItemText($hListView2, $index, _GUICtrlMenu_GetItemText($hMenu, $iid, False), 2)
  140.                                                                                 EndIf
  141.                                                                  Case -3 ;$NM_DBLCLK = -3
  142.                                                                                 Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
  143.                                         Local $index = DllStructGetData($tInfo, 'Index')
  144.                                         Local $SubItem = DllStructGetData($tInfo, 'SubItem')
  145.                                         Dim $aItem = 0
  146.                                         Local $aRect = _GUICtrlListView_GetSubItemRect($hListView2, $index, $SubItem)
  147.                                         Dim $aItem[2] = [$index, $SubItem]
  148.                                         Local $sDef = ('1|2|3') ;设置菜单
  149.                                         Global $sData = _GUICtrlListView_GetItemText($hListView2, $index, $SubItem)
  150.                                         GUICtrlSetPos($iCombo2, $aRect[0] + 4, $aRect[1] + 2, $aRect[2] - $aRect[0])
  151.                                         GUICtrlSetData($iCombo2, '|' & $sData&'|'&$sDef        , $sData)
  152.                                         GUICtrlSetState($iCombo2, 256)
  153.                                 EndSwitch
  154.         EndSwitch
  155. EndFunc   ;==>_WM_NOTIFY

  156. Func _Exit()
  157.         Exit
  158. EndFunc   ;==>_Exit
复制代码






发表于 2021-4-11 19:37:01 | 显示全部楼层
anythinging 发表于 2021-4-11 19:26
由于之前没学过编程基础,是从0开始学au3,不知有多少我这样的朋友?
现在总是缺乏信心,多谢各位的指点! ...

我就是0基础
回复 支持 1 反对 0

使用道具 举报

发表于 2021-4-11 15:21:04 | 显示全部楼层
每次点击树TreeA1 都会创建一次子窗口1及其列表,点多少次创建多少次……  老问题多次提醒,不再重复解释。
创建子窗口2之后,虽然新建了$iCombo2 没问题,但 _UdpData 都是1的数据,回车也不会响应。
之前给你的例子,listview是设置了字体的,实质是为了约束ComboBox坐标,可能在你自己的电脑看不出问题。
还有在第一列弹出的ComboBox宽度也不对,这些之前都有示例,可惜……
问题不少。
 楼主| 发表于 2021-4-11 15:37:28 | 显示全部楼层
本帖最后由 anythinging 于 2021-4-11 15:44 编辑
afan 发表于 2021-4-11 15:21
每次点击树TreeA1 都会创建一次子窗口1及其列表,点多少次创建多少次……  老问题多次提醒,不再重复解释。 ...

感谢回复,我发的是精简下来的代码,主要是表现listview在新生成的窗口中双击修改定位的情况原代码的treeA1,treeA2打开前会删除之前的子窗口,再新建一个同名子窗口及加载listview
update部份没改,我尝试解决下
第一列弹出的宽度问题,之前您特意指点过,暂时没加上去
 楼主| 发表于 2021-4-11 16:37:22 | 显示全部楼层
本帖最后由 anythinging 于 2021-4-11 16:39 编辑

这个是我更新过的代码
1、更新updata,支持2个listview回车确认,用了2个$aAccelKeys[1][2]分别实现2个listvew的响应,是否有更好的方法?
2、座标修正
3、双击第1列屏蔽(偷懒了,实际 使用中我把第1列设置为序号了,就不需要修改了)
4、之前都是用的子窗口+表格,想请教同时有子窗口+表格 和独立窗口+表格的情况下,能否只用一个icombo?
5、Dim $iCombo = GUICtrlCreateCombo('', -100, -100)  和  $aAccelKeys[1][2] = 这2句代码是否是只在主窗口及子gui中生效?


更正代码如下
  1. #NoTrayIcon

  2. #include <WinAPI.au3>
  3. #include <WinAPIEx.au3>
  4. #include <TreeViewConstants.au3>
  5. #include <GuiMenu.au3>
  6. #include <GuiListView.au3>
  7. #include <GuiStatusBar.au3>
  8. #include <GUIConstantsEx.au3>
  9. #include <WindowsConstants.au3>

  10. Global $hGui, $hGuiSub
  11. Global $hGui, $ListView1, $hListView1, $ListView2, $hListView2, $aItem, $iInput, $iCombo,$iCombo2
  12. Global $hMenu
  13. Global $num

  14. Opt("GUIOnEventMode", 1)

  15. CreateGUI()
  16. CreateGUISub1()

  17. Func CreateGUI()
  18.         $hGui = GUICreate("主窗口", 1200, 600, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
  19.         GUISetOnEvent($GUI_EVENT_CLOSE, "_EXIT")
  20.         GUISetState()

  21.                 Local $idTreeview = GUICtrlCreateTreeView(2, 3, 200, 400, BitOR($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE)
  22.         Local $idTreeviewA1 = GUICtrlCreateTreeViewItem("TreeA1", $idTreeview)
  23.         GUICtrlSetOnEvent(-1, 'TreeA1')
  24.                 Local $idTreeviewA2 = GUICtrlCreateTreeViewItem("TreeA2", $idTreeview)
  25.         GUICtrlSetOnEvent(-1, 'TreeA2')

  26.         Local $id1 = GUICtrlCreateDummy()
  27.         GUICtrlSetOnEvent(-1, '_UdpData')
  28.         Local $aAccelKeys[1][2] = [['{Enter}', $id1]]
  29.         GUISetAccelerators($aAccelKeys)


  30. ;~                 Dim $iCombo = GUICtrlCreateCombo('', -100, -100)

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

  32.                 Local $context = GUICtrlCreateContextMenu(GUICtrlCreateDummy())
  33.         Dim $hMenu = GUICtrlGetHandle($context)
  34.         GUICtrlCreateMenuItem('男', $context)
  35.         GUICtrlCreateMenuItem('女', $context)

  36. EndFunc   ;==>CreateGUI

  37. Func CreateGUISub1();-------------------------        子窗口 1   ------------------------------
  38.         $hGuiSub = GUICreate("子窗口1", 1000, 600, 201, 1, $WS_CHILD, $WS_EX_CLIENTEDGE, $hGui)
  39.                 GUISetBkColor(0x4682B4)
  40.         GUISetState()
  41.                 GUISetOnEvent($GUI_EVENT_CLOSE, "_Sub1Close")
  42.                    Dim $iCombo = GUICtrlCreateCombo('', -100, -100)

  43.                 _ListView1()
  44.                 $num = 1
  45. EndFunc   ;==>CreateGUISub

  46. Func CreateGUISub2();-------------------------        子窗口 2   ------------------------------
  47.                 $hGuiSub = GUICreate("子窗口2", 1000, 600, -1,-1)
  48.         GUISetOnEvent($GUI_EVENT_CLOSE, "_Sub1Close")
  49.                 GUISetBkColor(0x4682B4)
  50.         GUISetState()

  51.                 Local $id2 = GUICtrlCreateDummy()
  52.         GUICtrlSetOnEvent(-1, '_UdpData')
  53.         Local $aAccelKeys[1][2] = [['{Enter}', $id2]]
  54.         GUISetAccelerators($aAccelKeys)

  55.                 Dim $iCombo2 = GUICtrlCreateCombo('', -100, -100)
  56.                 _ListView2()
  57.                 $num = 2
  58. EndFunc   ;==>CreateGUISub

  59. While 1
  60.         Sleep(10)
  61. WEnd

  62. Func TreeA1()
  63.        If IsArray($aItem) Then
  64.                 _UdpData()
  65.                 EndIf
  66.         GUIDelete($hGuiSub)
  67.                 CreateGUISub1()

  68. EndFunc   ;==>TreeA1

  69. Func TreeA2()
  70.         If IsArray($aItem) Then
  71.                 _UdpData()
  72.                 EndIf
  73.         GUIDelete($hGuiSub)
  74.         GUISetState(@SW_DISABLE,$hGui)
  75.                 CreateGUISub2()
  76. EndFunc   ;==>TreeA2

  77. Func _ListView1()
  78.         Dim $ListView1 = GUICtrlCreateListView('用户名1 | 密码1 |性别|管理', 1, 2, 596, 350)
  79.         Dim $hListView1 = GUICtrlGetHandle(-1)
  80.         For $i = 1 To 10
  81.                         GUICtrlCreateListViewItem('' & $i & '|111111|男|删除', $ListView1)
  82.         Next
  83. EndFunc   ;==>_ListView1

  84. Func _ListView2()
  85.         Dim $ListView2 = GUICtrlCreateListView('用户名2 | 密码2 |性别|管理', 1, 2, 596, 350)
  86.         Dim $hListView2 = GUICtrlGetHandle(-1)
  87.         For $i = 1 To 10
  88.                         GUICtrlCreateListViewItem('' & $i & '|222222|女|删除', $ListView2)
  89.         Next
  90. EndFunc   ;==>_ListView2

  91. Func _Sub1Close()
  92.         GUISetState(@SW_ENABLE,$hGui)
  93.                 GUIDelete($hGuiSub)
  94. EndFunc   ;==>_Sub1Close


  95. Func _UdpData()
  96.         If Not IsArray($aItem) Then Return
  97.         Switch $num
  98.                         Case 1
  99.                                 Local $sRd = GUICtrlRead($iCombo), $sData = ''
  100.                                 _GUICtrlListView_SetItemText($hListView1, $aItem[0], $sRd, $aItem[1])
  101.                                  GUICtrlSetPos($iCombo, -1000, -100)
  102.                         Case 2
  103.                                 Local $sRd = GUICtrlRead($iCombo2), $sData = ''
  104.                                 _GUICtrlListView_SetItemText($hListView2, $aItem[0], $sRd, $aItem[1])
  105.                                  GUICtrlSetPos($iCombo2, -1000, -100)
  106.                 EndSwitch

  107.                 Dim $aItem = 0
  108. EndFunc   ;==>_UdpData

  109. Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
  110.         #forceref $hWnd, $iMsg, $iwParam
  111.         Local $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
  112.         $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
  113.         $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
  114.         $iCode = DllStructGetData($tNMHDR, "Code")
  115.         Switch DllStructGetData($tNMHDR, 'hWndFrom')
  116.                 Case $hListView1
  117.                         Switch $iCode
  118.                                 Case -2 ;$NM_CLICK = -2
  119.                                         If IsArray($aItem) Then
  120.                                                 _UdpData()
  121.                                         EndIf
  122.                                         Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
  123.                                         Local $index = DllStructGetData($tInfo, 'Index')
  124.                                         Local $SubItem = DllStructGetData($tInfo, 'SubItem')
  125.                                         If $SubItem = 2 Then
  126.                                                 Local $iid = _GUICtrlMenu_TrackPopupMenu($hMenu, $hGui, -1, -1, 1, 1, 2)
  127.                                                 If $iid Then _GUICtrlListView_SetItemText($hListView1, $index, _GUICtrlMenu_GetItemText($hMenu, $iid, False), 2)
  128.                                                                                 EndIf
  129.                                 Case -3 ;$NM_DBLCLK = -3
  130.                                         Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
  131.                                         Local $index = DllStructGetData($tInfo, 'Index')
  132.                                         Local $SubItem = DllStructGetData($tInfo, 'SubItem')
  133.                                         If $SubItem = 0 Then Return
  134.                                                                                 Dim $aItem = 0
  135.                                         Local $aRect = _GUICtrlListView_GetSubItemRect($hListView1, $index, $SubItem)
  136.                                         Dim $aItem[2] = [$index, $SubItem]
  137.                                         Local $sDef ;设置菜单
  138.                                         Global $sData = _GUICtrlListView_GetItemText($ListView1, $index, $SubItem)
  139.                                         GUICtrlSetPos($iCombo, $aRect[0] + 4, $aRect[1] + 8, $aRect[2] - $aRect[0])
  140.                                         GUICtrlSetData($iCombo, '|' & $sData, $sData)
  141.                                         GUICtrlSetState($iCombo, 256)
  142.                                                 EndSwitch
  143.                                 Case $hListView2
  144.                                                 Switch $iCode
  145.                                 Case -2 ;$NM_CLICK = -2
  146.                                         If IsArray($aItem) Then
  147.                                                 _UdpData()
  148.                                         EndIf
  149.                                         Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
  150.                                         Local $index = DllStructGetData($tInfo, 'Index')
  151.                                         Local $SubItem = DllStructGetData($tInfo, 'SubItem')
  152.                                         If $SubItem = 2 Then
  153.                                                 Local $iid = _GUICtrlMenu_TrackPopupMenu($hMenu, $hGui, -1, -1, 1, 1, 2)
  154.                                                 If $iid Then _GUICtrlListView_SetItemText($hListView2, $index, _GUICtrlMenu_GetItemText($hMenu, $iid, False), 2)
  155.                                                                                 EndIf
  156.                                                                  Case -3 ;$NM_DBLCLK = -3
  157.                                                                                 Local $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
  158.                                         Local $index = DllStructGetData($tInfo, 'Index')
  159.                                         Local $SubItem = DllStructGetData($tInfo, 'SubItem')
  160.                                                                                 If $SubItem = 0 Then Return
  161.                                                                                 Dim $aItem = 0
  162.                                         Local $aRect = _GUICtrlListView_GetSubItemRect($hListView2, $index, $SubItem)
  163.                                         Dim $aItem[2] = [$index, $SubItem]
  164.                                         Local $sDef = ('1|2|3') ;设置菜单
  165.                                         Global $sData = _GUICtrlListView_GetItemText($hListView2, $index, $SubItem)
  166.                                         GUICtrlSetPos($iCombo2, $aRect[0] + 4, $aRect[1] + 2, $aRect[2] - $aRect[0])
  167.                                         GUICtrlSetData($iCombo2, '|' & $sData&'|'&$sDef        , $sData)
  168.                                         GUICtrlSetState($iCombo2, 256)
  169.                                                 EndSwitch
  170.         EndSwitch
  171. EndFunc   ;==>_WM_NOTIFY

  172. Func _Exit()
  173.         Exit
  174. EndFunc   ;==>_Exit
复制代码


发表于 2021-4-11 18:48:13 | 显示全部楼层
1、更新updata,支持2个listview回车确认,用了2个$aAccelKeys[1][2]分别实现2个listvew的响应,是否有更好的方法?
没有更好的方法(定义为函数调用也行),独立的窗口都要单独设置快捷键。
3、双击第1列屏蔽(偷懒了,实际 使用中我把第1列设置为序号了,就不需要修改了)
屏蔽是正解,不需要的操作一定要拦截。
4、之前都是用的子窗口+表格,想请教同时有子窗口+表格 和独立窗口+表格的情况下,能否只用一个icombo?
控件不能跨窗口单独显示。为什么要只用一个?
5、Dim $iCombo = GUICtrlCreateCombo('', -100, -100)  和  $aAccelKeys[1][2] = 这2句代码是否是只在主窗口及子gui中生效?
上贴的问题还没搞清楚?GUICtrlCreate* 一定要有窗口,没有窗口单独创建控件一定会失败。如果你进行某个操作时新创建了窗口,之后关闭时又删除了该窗口,此时任何GUICtrlCreate*都会失败。它可不会自行找到主窗口去创建,需要你指定,比如用 GUISwitch(主窗口)

点评

听您一席话,令我茅塞顿开,感谢指点!  发表于 2021-4-11 19:18
 楼主| 发表于 2021-4-11 19:18:31 | 显示全部楼层
afan 发表于 2021-4-11 18:48
1、更新updata,支持2个listview回车确认,用了2个$aAccelKeys[1][2]分别实现2个listvew的响应,是否有更好 ...

请教A版四楼的代码没什么大问题了吧?想以后我就当模板用了
发表于 2021-4-11 19:25:24 | 显示全部楼层
anythinging 发表于 2021-4-11 19:18
请教A版四楼的代码没什么大问题了吧?想以后我就当模板用了

问题我基本上在上面都提到了,解决了当然可以。
符合自己的编程习惯就不错
 楼主| 发表于 2021-4-11 19:26:33 | 显示全部楼层
由于之前没学过编程基础,是从0开始学au3,不知有多少我这样的朋友?
现在总是缺乏信心,多谢各位的指点!给我继续学习下去的勇气
 楼主| 发表于 2021-4-11 19:34:17 | 显示全部楼层
其实还有一件事挺担忧的,指点问题的基本就是A版、chzj589等少数,如果没有几位的指点,象我这种新人可以说是寸步难行,恐怕早早放弃了。
祝论坛的所有朋友都开开心心,笑口常开!
 楼主| 发表于 2021-4-11 21:26:45 | 显示全部楼层
本帖最后由 anythinging 于 2021-4-11 21:32 编辑

请教A版,有个疑惑的地方不理解,就是弹出菜单是正常的。它是创建在主gui或其子gui1中,而在新建的gui2中却能正常调用,只有icombo的下拉菜单不行。开始就是因为这个地方,让我以为是icombo的下拉菜单问题是调用的方法不对,还请解惑。

        Local $context = GUICtrlCreateContextMenu(GUICtrlCreateDummy())
        Dim $hMenu = GUICtrlGetHandle($context)
        GUICtrlCreateMenuItem('男', $context)
        GUICtrlCreateMenuItem('女', $context)

        Local $iid = _GUICtrlMenu_TrackPopupMenu($hMenu, $hGui, -1, -1, 1, 1, 2)
        If $iid Then _GUICtrlListView_SetItemText($hListView1, $index, _GUICtrlMenu_GetItemText($hMenu, $iid, False), 2)

        Local $iid = _GUICtrlMenu_TrackPopupMenu($hMenu, $hGui, -1, -1, 1, 1, 2)
        If $iid Then _GUICtrlListView_SetItemText($hListView2, $index, _GUICtrlMenu_GetItemText($hMenu, $iid, False), 2)

我测试了下,发现反复调用会有问题,开始2个窗口都能弹出 ,但最终会只有一个窗口能弹出。是否验证了控件只对应一个窗口及其子窗口?
发表于 2021-4-11 21:38:44 | 显示全部楼层
弹出菜单更适合用弹出窗口来描述,它不是常规的控件。
ComboBox 是下拉列表,列表(List) 和 菜单(Menu) 是完全不同类别的东西
 楼主| 发表于 2021-4-11 22:07:09 | 显示全部楼层
感谢指点,虽然 不明白其中道 理,但要学的东西确实很多。
发表于 2021-4-12 08:37:54 | 显示全部楼层
anythinging 发表于 2021-4-11 19:34
其实还有一件事挺担忧的,指点问题的基本就是A版、chzj589等少数,如果没有几位的指点,象我这种新人可以说 ...

想学就要有信心,你的基础应该不会比我低。
说一点我的想法,象你的例子,列表1测试己通过。复制列表1的代码建立新代码,在SciTE编辑器打开,点击编辑器的<搜索>下拉<替换>,把$Listview1全部替换$Listview2,然后测试运行情况。这样那里有问题就方便修改解决。
运行通过后,两个代码再合并。新增代码也这样操作。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2021-5-7 19:13 , Processed in 0.156250 second(s), 21 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

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