kk请进。listview麻烦看看能不能改虚拟列表写法【已解决】

yamakawa

回复 15# kk_lee69


    呵呵，，明白了。我继续折腾吧。。你觉得我用的风格怪异那是因为我不用custdraw，而是完全重绘的wm_drawitem，你这样改的话，wm_drawitem不响应了

kk_lee69

回复 16# yamakawa

那就肯定要把
Case -150, -177 ;$LVN_GETDISPINFOA = -150, $LVN_GETDISPINFOW = -177   請求顯示資料
        If Not IsArray($dataArray) Then Return
        $tInfo = DllStructCreate($tagNMLVDISPINFO, $ilParam)
        $iIndex = Int(DllStructGetData($tInfo, "Item"))
        $iSub = Int(DllStructGetData($tInfo, "SubItem"))

        DllStructSetData($tText, "Text", $dataArray[$iIndex][$iSub]);列資料放入$tText結構
        DllStructSetData($tInfo, "Text", DllStructGetPtr($tText));$tText結構的指標來設置列資料
        DllStructSetData($tInfo, "TextMax", StringLen($dataArray[$iIndex][$iSub]));設置列資料字串長

這段放在 你的 重繪的部分   是因為哪個風格  可以影響重繪的部分呢??

kk_lee69

回复 16# yamakawa

找到了
你用
$lListView = GUICtrlCreateListView("Items|SubItems", 10, 10, 280, 180, BitOR($LVS_REPORT, $LVS_OWNERDRAWFIXED, $LVS_OWNERDATA))
這樣就可以了

你的重繪一樣有作用

把我前面的範例 風格改成這樣就可以了

   虛擬 LISTVIEW 的概念是  LISTVIEW 只是皮  所以 所有的資訊 可以從 陣列來的 就直接從陣列抓取

折腾好了 完成後  記得分享一下

我看了一下  如果你寫好了 這個 理論上 那些  失去焦點變顏色的問題就不見了........

kk_lee69

回复 16# yamakawa

如果我沒想錯的話    用我的範例後  理論上  總行數 用你的方法一樣可以取到 才對

kk_lee69

回复 16# yamakawa


   另外請教一下  你把下面這段禁用了

        ;如果用這段代碼，那上面直接寫的資料會在，但是捲軸滾動太快，程式就宕機了
;~ ;========重新填充數據,
;~         For $i = 0 To _GUICtrlListView_GetColumnCount($hItm)
;~                 Local $iItmRect = DllStructCreate($tagRect)
;~                 If $i Then $iItmRect.top = $i ;這句啥意思還不理解。。。。。。怎麼想來想去好像是列索引的意思？？？可是這個結構中不是指的top麼？？
;~                 DllCall('user32.dll', 'int', 'SendMessage', 'hwnd', $hItm, 'uint', $LVM_GETSUBITEMRECT, 'wparam', $itmID, 'lparam', DllStructGetPtr($iItmRect))
;~                 $iItmRect.left = $i ? $iItmRect.left + 5 : $iItmRect.left + 10 ;首項縮進10，其他縮進5
;~                 _WinAPI_DrawText($hDC, $dataArray[$itmID][$i], $iItmRect, $DT_LEFT)
;~         Next
;~ ;============好像會導致bug，棄用

取而代之的是 哪一段呢

yamakawa

刚到家，浑身臭汗。。大概试了下，改风格，然后不停闪烁。。所以去掉wm_drawitem中绘图过程，OK，不闪了。。。可是设置的效果也没了。。。OMG。无解？

yamakawa

回复 20# kk_lee69


    加了两个风格。。然后可以了。。notify不用 -155那个了

1. #include <GuiConstantsEx.au3>
   
2. #include <WindowsConstants.au3>
   
3. #include <GuiListView.au3>
   
4. #include <WinAPI.au3>
   
5. #include <ButtonConstants.au3>
   
6. #cs
   
7.         autoit.com yamakawa
   
8.         测试环境 win10 x64
   
9.         autoit3 3.3.14.2
   
10. #ce
    
11. ;版本判断
    
12. Local $verArray = StringSplit(@AutoItVersion, ".")
    
13. If $verArray[3] < 14 Then MsgBox(4096, "来自Autoit.com -Yamakawa的提示", "本段代码测试于 Autoit 3.3.14.2！" & @CRLF & @CRLF & @CRLF & "当前版本低于3.3.14.2 如果出现问题，请自行修改！")
    
14. ;低于3.3.14.2则弹出提示。不兼容可能是版本问题
    
15. 
    
16. 
    
17. ;常量定义区
    
18. Global Const $ODT_LISTVIEW = 102
    
19. Global Const $ODA_DRAWENTIRE = 0x1
    
20. Global Const $ODA_SELECT = 0x2
    
21. Global Const $ODA_FOCUS = 0x4
    
22. Global Const $ODS_SELECTED = 0x0001
    
23. ;全局变量定义
    
24. Global $hGUI, $lListView, $hlListView, $rListView, $hrListView
    
25. Global $btn_test
    
26. Global $dataArray[10000][2]
    
27. For $i = 0 To 10000 - 1
    
28.         $dataArray[$i][0] = "Item " & $i + 1
    
29.         $dataArray[$i][1] = "SubItem " & $i + 1
    
30. Next
    
31. 
    
32. $hGUI = GUICreate("Test GUI", 650, 300)
    
33. ;===第一个列表
    
34. $lListView = GUICtrlCreateListView("", 10, 10, 280, 180, BitOR($LVS_REPORT, $LVS_OWNERDRAWFIXED,$LVS_OWNERDATA));两个自绘属性都加上！
    
35. $hlListView = GUICtrlGetHandle(-1)
    
36. _GUICtrlListView_InsertColumn($hlListView, 1, "Item", 120)
    
37. _GUICtrlListView_InsertColumn($hlListView, 2, "SubItem", 120)
    
38. _GUICtrlListView_SetExtendedListViewStyle($hlListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT))
    
39. _GUICtrlListView_SetColumnWidth($hlListView, 0, 120)
    
40. _GUICtrlListView_SetColumnWidth($hlListView, 1, 120)
    
41. _GUICtrlListView_SetItemCount($lListView, UBound($dataArray))
    
42. ;第二个列表
    
43. $rListView = GUICtrlCreateListView("", 310, 10, 280, 180)
    
44. $hrListView = GUICtrlGetHandle(-1)
    
45. _GUICtrlListView_SetExtendedListViewStyle($hrListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT))
    
46. _GUICtrlListView_InsertColumn($hrListView, 0, "隐藏列", 0)
    
47. _GUICtrlListView_InsertColumn($hrListView, 1, "列1", 120)
    
48. _GUICtrlListView_InsertColumn($hrListView, 2, "列2", 120)
    
49. 
    
50. $btn_test = GUICtrlCreateButton("text", 10, 250)
    
51. GUICtrlSetStyle(-1, BitOR($WS_TABSTOP, $BS_NOTIFY, $BS_OWNERDRAW)) ; Set the ownerdrawn flag
    
52. GUICtrlCreateLabel("←←←←←←←这个按钮感觉如何（我指的形状）", 50, 255)
    
53. 
    
54. GUIRegisterMsg($WM_DRAWITEM, "WM_DRAWITEM")
    
55. GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
    
56. GUISetState()
    
57. 
    
58. While 1
    
59.         Switch GUIGetMsg()
    
60.                 Case -3
    
61.                         Exit
    
62.                 Case $btn_test
    
63.                         MsgBox(0, "", "do is clicked", 0, $hGUI)
    
64.         EndSwitch
    
65. WEnd
    
66. 
    
67. Func WM_DRAWITEM($hWnd, $Msg, $wParam, $lParam)
    
68.         Local $tagDRAWITEMSTRUCT, $cID, $itmID, $itmAction, $itmState, $hItm, $hDC, $bSelected, $oldColor
    
69.         $tagDRAWITEMSTRUCT = DllStructCreate( _
    
70.                         "uint cType;" & _
    
71.                         "uint cID;" & _
    
72.                         "uint itmID;" & _
    
73.                         "uint itmAction;" & _
    
74.                         "uint itmState;" & _
    
75.                         "hwnd hItm;" & _
    
76.                         "handle hDC;" & _
    
77.                         "long itmRect[4];" & _
    
78.                         "ulong_ptr itmData" _
    
79.                         , $lParam)
    
80.         $cID = $tagDRAWITEMSTRUCT.cID
    
81.         $itmID = $tagDRAWITEMSTRUCT.itmID
    
82.         $hItm = $tagDRAWITEMSTRUCT.hItm
    
83.         $hDC = $tagDRAWITEMSTRUCT.hDC
    
84.         If $tagDRAWITEMSTRUCT.cType <> $ODT_LISTVIEW Then Return $GUI_RUNDEFMSG
    
85.         If $tagDRAWITEMSTRUCT.itmAction <> $ODA_DRAWENTIRE Then Return $GUI_RUNDEFMSG
    
86.         ;>====设置选中项文字颜色
    
87.         $txtcolor = BitAND($tagDRAWITEMSTRUCT.itmState, $ODS_SELECTED) = $ODS_SELECTED ? 0xffffff : 0x000000
    
88.         _WinAPI_SetTextColor($hDC, $txtcolor)
    
89.         ;<=====
    
90.         ;>=========
    
91. ;~         Local $tRect = DllStructGetPtr($tagDRAWITEMSTRUCT, "itmRect") ;====这个学习了。。
    
92.         Local $tRect = DllStructCreate($tagRect, DllStructGetPtr($tagDRAWITEMSTRUCT, "itmRect")) ;====这样也可以。好处是可以修改
    
93.         Local $iBrushColor = BitAND($tagDRAWITEMSTRUCT.itmState, $ODS_SELECTED) = $ODS_SELECTED ? 0xff7bcc : 0xffffff ;上色
    
94.         Local $aBrush = _WinAPI_CreateSolidBrush($iBrushColor)
    
95.         Local $aBrushOld = _WinAPI_SelectObject($hDC, $aBrush)
    
96.         _WinAPI_FillRect($hDC, $tRect, $aBrush)
    
97.         _WinAPI_SelectObject($hDC, $aBrushOld)
    
98.         _WinAPI_DeleteObject($aBrush)
    
99.         ;<=====画背景
    
100.         ;回填数据
     
101.         For $i = 0 To _GUICtrlListView_GetColumnCount($hItm) - 1
     
102.                 Local $iItmRect = DllStructCreate($tagRect)
     
103.                 If $i Then $iItmRect.top = $i
     
104.                 DllCall('user32.dll', 'int', 'SendMessage', 'hwnd', $hItm, 'uint', $LVM_GETSUBITEMRECT, 'wparam', $itmID, 'lparam', DllStructGetPtr($iItmRect))
     
105.                 $iItmRect.left += $i ? 5 : 10
     
106.                 _WinAPI_DrawText($hDC, $dataArray[$itmID][$i], $iItmRect, $DT_LEFT)
     
107.         Next
     
108.         Return $GUI_RUNDEFMSG
     
109. EndFunc   ;==>WM_DRAWITEM
     
110. 
     
111. Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
     
112.         #forceref $hWnd, $iMsg, $iwParam
     
113.         Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $tInfo
     
114. 
     
115.         $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
     
116.         $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
     
117.         $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
     
118.         $iCode = DllStructGetData($tNMHDR, "Code")
     
119.        
     
120.         Switch $iIDFrom
     
121.                 Case $rListView
     
122.                         If $iCode <> $NM_DBLCLK Then Return $GUI_RUNDEFMSG
     
123.                         $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
     
124.                         Local $index = DllStructGetData($tInfo, "Index")
     
125.                         If _GUICtrlListView_DeleteItem($iIDFrom, $index) Then
     
126.                                 If _GUICtrlListView_GetItemCount($iIDFrom) > _GUICtrlListView_GetCounterPage($iIDFrom) Then
     
127.                                         _GUICtrlListView_SetItemSelected($hrListView, $index - 1)
     
128.                                 Else
     
129.                                         _GUICtrlListView_SetItemSelected($hrListView, $index)
     
130.                                 EndIf
     
131.                         EndIf
     
132.                         Return $GUI_RUNDEFMSG
     
133.                 Case $lListView
     
134.                 Switch $iCode
     
135.                                 Case $NM_DBLCLK
     
136.                                         $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
     
137.                                         Local $index = DllStructGetData($tInfo, "Index")
     
138.                                         If $index = -1 Then Return $GUI_RUNDEFMSG
     
139.                                         Local $newIndex = _GUICtrlListView_FindText($hrListView, String($lListView & "," & $index))
     
140.                                         If $newIndex <> -1 Then
     
141.                                                 _GUICtrlListView_DeleteItem($hrListView, $newIndex)
     
142.                                         Else
     
143.                                                 $newIndex = _GUICtrlListView_AddItem($hrListView, String($lListView & "," & $index))
     
144.                                                 For $i = 0 To UBound($dataArray, 2) - 1
     
145.                                                         _GUICtrlListView_AddSubItem($hrListView, $newIndex, $dataArray[$index][$i], $i + 1)
     
146.                                                 Next
     
147.                                                 _GUICtrlListView_EnsureVisible($hrListView, $newIndex)
     
148.                                                 _GUICtrlListView_SetItemSelected($hrListView, $newIndex)
     
149.                                         EndIf
     
150.                                         Return 0
     
151.                         EndSwitch
     
152.                         Return $GUI_RUNDEFMSG
     
153.         EndSwitch
     
154.         Return $GUI_RUNDEFMSG
     
155. EndFunc   ;==>WM_NOTIFY
     

复制代码

kk_lee69

回复 22# yamakawa

酷喔  非常流暢

可以請教 這樣子 完全自繪 的用意 跟好處是甚麼嗎??

yamakawa

回复 23# kk_lee69


    和custdraw相比，这个做法的好处是，完全控制，可以修改显示过程的一切

kk_lee69

回复 24# yamakawa

這個 可以繪製 INPUT框嗎??  有辦法重新繪製 INPUT框嗎??

yamakawa

回复 25# kk_lee69


    WM_DRAWITEM message
Sent to the parent window of an owner-drawn button, combo box, list box, or menu when a visual aspect of the button, combo box, list box, or menu has changed.

好像不行

chzj589

回复 26# yamakawa
你22楼的例子，读取速度很快。
能修改为左键点击LISTVIEW连续选中状态，
我对自绘还不会，想要修改，不知从那里下手

yamakawa

回复 27# chzj589

这个么

1. #include <GuiConstantsEx.au3>
   
2. #include <WindowsConstants.au3>
   
3. #include <GuiListView.au3>
   
4. #include <WinAPI.au3>
   
5. #include <ButtonConstants.au3>
   
6. Opt('GUIOnEventMode', 1)
   
7. 
   
8. #cs
   
9.         autoit.com yamakawa
   
10.         测试环境 win10 x64
    
11.         autoit3 3.3.14.2
    
12. #ce
    
13. ;版本判断
    
14. Local $verArray = StringSplit(@AutoItVersion, ".")
    
15. If $verArray[3] < 14 Then MsgBox(4096, "来自Autoit.com -Yamakawa的提示", "本段代码测试于 Autoit 3.3.14.2！" & @CRLF & @CRLF & @CRLF & "当前版本低于3.3.14.2 如果出现问题，请自行修改！")
    
16. ;低于3.3.14.2则弹出提示。不兼容可能是版本问题
    
17. 
    
18. 
    
19. ;常量定义区
    
20. Global Const $ODT_LISTVIEW = 102
    
21. Global Const $ODA_DRAWENTIRE = 0x1
    
22. Global Const $ODA_SELECT = 0x2
    
23. Global Const $ODA_FOCUS = 0x4
    
24. Global Const $ODS_SELECTED = 0x0001
    
25. ;全局变量定义
    
26. Global $hGUI, $lListView, $hlListView, $rListView, $hrListView,$idAddSingleSel, $idDelSingleSel
    
27. Global $btn_test
    
28. Global $dataArray[10000][2]
    
29. For $i = 0 To 10000 - 1
    
30.         $dataArray[$i][0] = "Item " & $i + 1
    
31.         $dataArray[$i][1] = "SubItem " & $i + 1
    
32. Next
    
33. 
    
34. $hGUI = GUICreate("Test GUI", 650, 300)
    
35.         GUISetOnEvent(-3, '_Exit')
    
36. 
    
37. ;===第一个列表
    
38. $lListView = GUICtrlCreateListView("", 10, 10, 280, 180, BitOR($LVS_REPORT, $LVS_OWNERDRAWFIXED, $LVS_OWNERDATA)) ;两个自绘属性都加上！
    
39. $hlListView = GUICtrlGetHandle(-1)
    
40. _GUICtrlListView_InsertColumn($hlListView, 1, "Item", 120)
    
41. _GUICtrlListView_InsertColumn($hlListView, 2, "SubItem", 120)
    
42. _GUICtrlListView_SetExtendedListViewStyle($hlListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT))
    
43. _GUICtrlListView_SetColumnWidth($hlListView, 0, 120)
    
44. _GUICtrlListView_SetColumnWidth($hlListView, 1, 120)
    
45. _GUICtrlListView_SetItemCount($lListView, UBound($dataArray))
    
46. ;第二个列表
    
47. $rListView = GUICtrlCreateListView("", 310, 10, 280, 180)
    
48. $hrListView = GUICtrlGetHandle(-1)
    
49. _GUICtrlListView_SetExtendedListViewStyle($hrListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT))
    
50. _GUICtrlListView_InsertColumn($hrListView, 0, "隐藏列", 0)
    
51. _GUICtrlListView_InsertColumn($hrListView, 1, "列1", 120)
    
52. _GUICtrlListView_InsertColumn($hrListView, 2, "列2", 120)
    
53. 
    
54. 
    
55.         ; Subclass ListView to receive keyboard/mouse messages
    
56.         $pListViewFunc = DllCallbackGetPtr(DllCallbackRegister("ListViewFunc", "lresult", "hwnd;uint;wparam;lparam;uint_ptr;dword_ptr"))
    
57.         _WinAPI_SetWindowSubclass($hlListView, $pListViewFunc, 0, 0) ; $iSubclassId = 0, $pData = 0
    
58. 
    
59.         ; Add/del single selection
    
60.         $idAddSingleSel = GUICtrlCreateDummy()
    
61.         GUICtrlSetOnEvent(-1, '_AddSingleSel')
    
62.         $idDelSingleSel = GUICtrlCreateDummy()
    
63.         GUICtrlSetOnEvent(-1, '_DelSingleSel')
    
64. 
    
65. 
    
66. GUIRegisterMsg($WM_DRAWITEM, "WM_DRAWITEM")
    
67. GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
    
68. GUISetState()
    
69. 
    
70. While 1
    
71.         Switch GUIGetMsg()
    
72.                 Case -3
    
73.                         Exit
    
74.         EndSwitch
    
75. WEnd
    
76. 
    
77. 
    
78. Func ListViewFunc($hWnd, $iMsg, $wParam, $lParam, $iSubclassId, $pData)
    
79. 
    
80.         If $iMsg = $WM_LBUTTONDOWN Then
    
81. 
    
82.                 Switch $wParam
    
83.                         Case 0x0001
    
84.                                 If _GUICtrlListView_GetSelectedCount($hlListView) Then
    
85.                                         Local $aHit = _GUICtrlListView_HitTest(GUICtrlGetHandle($lListView), BitAND($lParam, 0xFFFF), BitShift($lParam, 16))
    
86.                                         If Not (@error Or $aHit[0] = -1) Then
    
87.                                                 If _GUICtrlListView_GetItemSelected($hlListView, $aHit[0]) Then
    
88.                                                         GUICtrlSendToDummy($idDelSingleSel, $aHit[0])
    
89.                                                 Else
    
90.                                                         GUICtrlSendToDummy($idAddSingleSel, $aHit[0])
    
91.                                                 EndIf
    
92.                                         EndIf
    
93.                                         Return 0
    
94.                                 EndIf
    
95.                         Case 0x0009
    
96.                                 Return 0
    
97.                 EndSwitch
    
98.         ElseIf $iMsg = $WM_KILLFOCUS Then
    
99.                 ConsoleWrite("WM_KILLFOCUS" & @CRLF)
    
100.         Else
     
101.                 Local $result = DllCall("comctl32.dll", "lresult", "DefSubclassProc", "hwnd", $hWnd, "uint", $iMsg, "wparam", $wParam, "lparam", $lParam)
     
102.                 If Not @error Then
     
103.                         Return $result[0]
     
104.                 Else
     
105.                         Return
     
106.                 EndIf
     
107.         EndIf
     
108.        
     
109.        
     
110.         Local $result = DllCall("comctl32.dll", "lresult", "DefSubclassProc", "hwnd", $hWnd, "uint", $iMsg, "wparam", $wParam, "lparam", $lParam)
     
111.         If Not @error Then
     
112.                 Return $result[0]
     
113.         Else
     
114.                 Return
     
115.         EndIf
     
116.         #forceref $iSubclassId, $pData
     
117. EndFunc   ;==>ListViewFunc
     
118. 
     
119. Func _AddSingleSel()
     
120.         Local $iItem = GUICtrlRead($idAddSingleSel)
     
121.         _GUICtrlListView_SetItemSelected($hlListView, $iItem, True)
     
122.         _GUICtrlListView_SetItemFocused($hlListView, $iItem)
     
123. EndFunc   ;==>_AddSingleSel
     
124. Func _DelSingleSel()
     
125.         Local $iItem = GUICtrlRead($idDelSingleSel)
     
126.         _GUICtrlListView_SetItemSelected($hlListView, $iItem, False)
     
127.         _GUICtrlListView_SetItemFocused($hlListView, $iItem)
     
128. EndFunc   ;==>_DelSingleSel
     
129. Func _Exit()
     
130.         _WinAPI_RemoveWindowSubclass($hlListView, $pListViewFunc, 0)
     
131.         GUIDelete()
     
132.         Exit
     
133. EndFunc   ;==>_Exit
     
134. 
     
135. Func _WinAPI_SetWindowSubclass($hWnd, $pSubclassProc, $idSubClass, $pData = 0)
     
136.         Local $aRet = DllCall('comctl32.dll', 'bool', 'SetWindowSubclass', 'hwnd', $hWnd, 'ptr', $pSubclassProc, 'uint_ptr', $idSubClass, _
     
137.                         'dword_ptr', $pData)
     
138.         If @error Then Return SetError(@error, @extended, 0)
     
139.         ; If Not $aRet[0] Then Return SetError(1000, 0, 0)
     
140. 
     
141.         Return $aRet[0]
     
142. EndFunc   ;==>_WinAPI_SetWindowSubclass
     
143. Func _WinAPI_RemoveWindowSubclass($hWnd, $pSubclassProc, $idSubClass)
     
144.         Local $aRet = DllCall('comctl32.dll', 'bool', 'RemoveWindowSubclass', 'hwnd', $hWnd, 'ptr', $pSubclassProc, 'uint_ptr', $idSubClass)
     
145.         If @error Then Return SetError(@error, @extended, False)
     
146.         Return $aRet[0]
     
147. EndFunc   ;==>_WinAPI_RemoveWindowSubclass
     
148. 
     
149. 
     
150. Func WM_DRAWITEM($hWnd, $Msg, $wParam, $lParam)
     
151.         Local $tagDRAWITEMSTRUCT, $cID, $itmID, $itmAction, $itmState, $hItm, $hDC, $bSelected, $oldColor
     
152.         $tagDRAWITEMSTRUCT = DllStructCreate( _
     
153.                         "uint cType;" & _
     
154.                         "uint cID;" & _
     
155.                         "uint itmID;" & _
     
156.                         "uint itmAction;" & _
     
157.                         "uint itmState;" & _
     
158.                         "hwnd hItm;" & _
     
159.                         "handle hDC;" & _
     
160.                         "long itmRect[4];" & _
     
161.                         "ulong_ptr itmData" _
     
162.                         , $lParam)
     
163.         $cID = $tagDRAWITEMSTRUCT.cID
     
164.         $itmID = $tagDRAWITEMSTRUCT.itmID
     
165.         $hItm = $tagDRAWITEMSTRUCT.hItm
     
166.         $hDC = $tagDRAWITEMSTRUCT.hDC
     
167.         If $tagDRAWITEMSTRUCT.cType <> $ODT_LISTVIEW Then Return $GUI_RUNDEFMSG
     
168.         If $tagDRAWITEMSTRUCT.itmAction <> $ODA_DRAWENTIRE Then Return $GUI_RUNDEFMSG
     
169. 
     
170.         ;>=========
     
171. ;~         Local $tRect = DllStructGetPtr($tagDRAWITEMSTRUCT, "itmRect") ;====这个学习了。。
     
172.         Local $tRect = DllStructCreate($tagRect, DllStructGetPtr($tagDRAWITEMSTRUCT, "itmRect")) ;====这样也可以。好处是可以修改
     
173.         Local $iBrushColor = BitAND($tagDRAWITEMSTRUCT.itmState, $ODS_SELECTED) = $ODS_SELECTED ? 0xff7bcc : 0xffffff ;上色
     
174.         Local $aBrush = _WinAPI_CreateSolidBrush($iBrushColor)
     
175.         Local $aBrushOld = _WinAPI_SelectObject($hDC, $aBrush)
     
176.         _WinAPI_FillRect($hDC, $tRect, $aBrush)
     
177.         _WinAPI_SelectObject($hDC, $aBrushOld)
     
178.         _WinAPI_DeleteObject($aBrush)
     
179.         ;<=====画背景
     
180.         ;>====设置选中项文字颜色
     
181.         $txtcolor = BitAND($tagDRAWITEMSTRUCT.itmState, $ODS_SELECTED) = $ODS_SELECTED ? 0xffffff : 0x000000
     
182.         _WinAPI_SetTextColor($hDC, $txtcolor)
     
183.         ;<=====
     
184.         ;回填数据
     
185.         For $i = 0 To _GUICtrlListView_GetColumnCount($hItm) - 1
     
186.                 Local $iItmRect = DllStructCreate($tagRect)
     
187.                 If $i Then $iItmRect.top = $i
     
188.                 DllCall('user32.dll', 'int', 'SendMessage', 'hwnd', $hItm, 'uint', $LVM_GETSUBITEMRECT, 'wparam', $itmID, 'lparam', DllStructGetPtr($iItmRect))
     
189.                 $iItmRect.left += $i ? 5 : 10
     
190.                 _WinAPI_DrawText($hDC, $dataArray[$itmID][$i], $iItmRect, $DT_LEFT)
     
191.         Next
     
192.         Return $GUI_RUNDEFMSG
     
193. EndFunc   ;==>WM_DRAWITEM
     
194. 
     
195. Func WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
     
196.         #forceref $hWnd, $iMsg, $iwParam
     
197.         Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR, $tInfo
     
198. 
     
199.         $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
     
200.         $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
     
201.         $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
     
202.         $iCode = DllStructGetData($tNMHDR, "Code")
     
203.        
     
204.         Switch $iIDFrom
     
205.                 Case $rListView
     
206.                         If $iCode <> $NM_DBLCLK Then Return $GUI_RUNDEFMSG
     
207.                         $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
     
208.                         Local $index = DllStructGetData($tInfo, "Index")
     
209.                         If _GUICtrlListView_DeleteItem($iIDFrom, $index) Then
     
210.                                 If _GUICtrlListView_GetItemCount($iIDFrom) > _GUICtrlListView_GetCounterPage($iIDFrom) Then
     
211.                                         _GUICtrlListView_SetItemSelected($hrListView, $index - 1)
     
212.                                 Else
     
213.                                         _GUICtrlListView_SetItemSelected($hrListView, $index)
     
214.                                 EndIf
     
215.                         EndIf
     
216.                         Return $GUI_RUNDEFMSG
     
217.                 Case $lListView
     
218.                         Switch $iCode
     
219.                                 Case $NM_DBLCLK
     
220.                                         $tInfo = DllStructCreate($tagNMITEMACTIVATE, $ilParam)
     
221.                                         Local $index = DllStructGetData($tInfo, "Index")
     
222.                                         If $index = -1 Then Return $GUI_RUNDEFMSG
     
223.                                         Local $newIndex = _GUICtrlListView_FindText($hrListView, String($lListView & "," & $index))
     
224.                                         If $newIndex <> -1 Then
     
225.                                                 _GUICtrlListView_DeleteItem($hrListView, $newIndex)
     
226.                                         Else
     
227.                                                 $newIndex = _GUICtrlListView_AddItem($hrListView, String($lListView & "," & $index))
     
228.                                                 For $i = 0 To UBound($dataArray, 2) - 1
     
229.                                                         _GUICtrlListView_AddSubItem($hrListView, $newIndex, $dataArray[$index][$i], $i + 1)
     
230.                                                 Next
     
231.                                                 _GUICtrlListView_EnsureVisible($hrListView, $newIndex)
     
232.                                                 _GUICtrlListView_SetItemSelected($hrListView, $newIndex)
     
233.                                         EndIf
     
234.                                         Return 0
     
235.                         EndSwitch
     
236.                         Return $GUI_RUNDEFMSG
     
237.         EndSwitch
     
238.         Return $GUI_RUNDEFMSG
     
239. EndFunc   ;==>WM_NOTIFY
     

复制代码

chzj589

回复 28# yamakawa

是的。谢谢！
怎么没想到：

1. $pListViewFunc = DllCallbackGetPtr(DllCallbackRegister("ListViewFunc", "lresult", "hwnd;uint;wparam;lparam;uint_ptr;dword_ptr"))
   
2. _WinAPI_SetWindowSubclass($hlListView, $pListViewFunc, 0, 0) ; $iSubclassId = 0, $pData = 0
   
3. 
   
4. ; Add/del single selection
   
5. $idAddSingleSel = GUICtrlCreateDummy()
   
6. GUICtrlSetOnEvent(-1, '_AddSingleSel')
   
7. $idDelSingleSel = GUICtrlCreateDummy()
   
8. GUICtrlSetOnEvent(-1, '_DelSingleSel')
   
9. 
   
10. Func ListViewFunc($hWnd, $iMsg, $wParam, $lParam, $iSubclassId, $pData)
    
11. 
    
12.         If $iMsg = $WM_LBUTTONDOWN Then
    
13. 
    
14.                 Switch $wParam
    
15.                         Case 0x0001
    
16.                                 If _GUICtrlListView_GetSelectedCount($hlListView) Then
    
17.                                         Local $aHit = _GUICtrlListView_HitTest(GUICtrlGetHandle($lListView), BitAND($lParam, 0xFFFF), BitShift($lParam, 16))
    
18.                                         If Not (@error Or $aHit[0] = -1) Then
    
19.                                                 If _GUICtrlListView_GetItemSelected($hlListView, $aHit[0]) Then
    
20.                                                         GUICtrlSendToDummy($idDelSingleSel, $aHit[0])
    
21.                                                 Else
    
22.                                                         GUICtrlSendToDummy($idAddSingleSel, $aHit[0])
    
23.                                                 EndIf
    
24.                                         EndIf
    
25.                                         Return 0
    
26.                                 EndIf
    
27.                         Case 0x0009
    
28.                                 Return 0
    
29.                 EndSwitch
    
30.         ElseIf $iMsg = $WM_KILLFOCUS Then
    
31.                 ConsoleWrite("WM_KILLFOCUS" & @CRLF)
    
32.         Else
    
33.                 Local $result = DllCall("comctl32.dll", "lresult", "DefSubclassProc", "hwnd", $hWnd, "uint", $iMsg, "wparam", $wParam, "lparam", $lParam)
    
34.                 If Not @error Then
    
35.                         Return $result[0]
    
36.                 Else
    
37.                         Return
    
38.                 EndIf
    
39.         EndIf
    
40. 
    
41. 
    
42.         Local $result = DllCall("comctl32.dll", "lresult", "DefSubclassProc", "hwnd", $hWnd, "uint", $iMsg, "wparam", $wParam, "lparam", $lParam)
    
43.         If Not @error Then
    
44.                 Return $result[0]
    
45.         Else
    
46.                 Return
    
47.         EndIf
    
48.         #forceref $iSubclassId, $pData
    
49. EndFunc   ;==>ListViewFunc
    
50. 
    
51. Func _AddSingleSel()
    
52.         Local $iItem = GUICtrlRead($idAddSingleSel)
    
53.         _GUICtrlListView_SetItemSelected($hlListView, $iItem, True)
    
54.         _GUICtrlListView_SetItemFocused($hlListView, $iItem)
    
55. EndFunc   ;==>_AddSingleSel
    
56. Func _DelSingleSel()
    
57.         Local $iItem = GUICtrlRead($idDelSingleSel)
    
58.         _GUICtrlListView_SetItemSelected($hlListView, $iItem, False)
    
59.         _GUICtrlListView_SetItemFocused($hlListView, $iItem)
    
60. EndFunc   ;==>_DelSingleSel

复制代码

chzj589

回复 28# yamakawa

读取Excel显示在：$lListView = GUICtrlCreateListView("", 10, 10, 280, 180, BitOR($LVS_REPORT, $LVS_OWNERDRAWFIXED,$LVS_OWNERDATA))
出现第一行空白，折腾了一天，没办法调整。怪事。