如果沒有開啟checkbox,一開始只找到在Before/After Collapse加入boolean變數,辨別是否正在執行展開/關閉TreeView動作,但是實測後與NodeMouseClick的觸發順序無法配合。
下面這個方法是可以運作的,也更好理解:
Dim hit As TreeViewHitTestInfo = TreeView1.HitTest(e.Location)
If hit.Location = TreeViewHitTestLocations.PlusMinus Then Return
如果點擊位置在TreeView元件的展開/關閉圖示,則退出Module執行。