|
本帖最后由 cashiba 于 2024-1-17 15:51 编辑 #include <GUIConstantsEx.au3>
#include <GuiImageList.au3>
#include <GuiTreeView.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
Example()
Func Example()
Local $hItem, $hImage, $iImage, $idTreeView
Local $iStyle = BitOR($TVS_EDITLABELS, $TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS, $TVS_CHECKBOXES)
GUICreate("TreeView Delete All", 400, 300)
$idTreeView = GUICtrlCreateTreeView(2, 2, 396, 268, $iStyle, $WS_EX_CLIENTEDGE)
GUISetState(@SW_SHOW)
$hImage = _GUIImageList_Create(16, 16, 5, 3)
_GUIImageList_AddIcon($hImage, "shell32.dll", 110)
_GUIImageList_AddIcon($hImage, "shell32.dll", 131)
_GUIImageList_AddIcon($hImage, "shell32.dll", 165)
_GUIImageList_AddIcon($hImage, "shell32.dll", 168)
_GUIImageList_AddIcon($hImage, "shell32.dll", 137)
_GUIImageList_AddIcon($hImage, "shell32.dll", 146)
_GUICtrlTreeView_SetNormalImageList($idTreeView, $hImage)
_GUICtrlTreeView_BeginUpdate($idTreeView)
For $x = 1 To 2
$iImage = Random(0, 5, 1)
$hItem = _GUICtrlTreeView_Add($idTreeView, 0, StringFormat("[%02d] New Item", $x), $iImage, $iImage)
For $y = 1 To 3
$iImage = Random(0, 5, 1)
_GUICtrlTreeView_AddChild($idTreeView, $hItem, StringFormat("[%02d] New Child", $y), $iImage, $iImage)
Next
Next
_GUICtrlTreeView_EndUpdate($idTreeView)
_GUICtrlTreeView_Expand($idTreeView)
MsgBox($MB_SYSTEMMODAL, "Information", "Delete Children")
_GUICtrlTreeView_DeleteChildren($idTreeView, $hItem)
; Loop until the user exits.
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>Example
treeview删除所有子项后,为什么项的前面还是有一个加号?
这个帖子里A大说删除后加一句 _GUICtrlTreeView_SetChildren($hTreeView, $hItem, 0)就可以解决了
但是试了下,没有效果。
看了下原码里已经添加了_GUICtrlTreeView_SetChildren。如下:Func _GUICtrlTreeView_DeleteChildren($hWnd, $hItem)
Local $bResult
If IsHWnd($hWnd) Then
$bResult = _SendMessage($hWnd, $TVM_EXPAND, BitOR($TVE_COLLAPSE, $TVE_COLLAPSERESET), $hItem, 0, "wparam", "handle")
Else
$bResult = GUICtrlSendMsg($hWnd, $TVM_EXPAND, BitOR($TVE_COLLAPSE, $TVE_COLLAPSERESET), $hItem)
EndIf
If $bResult Then _GUICtrlTreeView_SetChildren($hWnd, $hItem, False)
Return $bResult
EndFunc ;==>_GUICtrlTreeView_DeleteChildren
不知道问题出在哪里... |
|