初始化项目

BLV_Studio/TreeViewEx.vb

@@ -0,0 +1,32 @@
+Public Class TreeViewEx
+    ''' <summary>
+    '''2024 04 17 CZH 注释 ///可释放出来
+    ''' </summary>
+    ''' <param name="e"></param>
+    'Protected Overrides Sub WndProc(ByRef m As Message)
+    '    If m.Msg = &H203 Then
+    '        Dim tvhti As TreeViewHitTestInfo = HitTest(New Point(CType(m.LParam, Integer)))
+    '        If tvhti IsNot Nothing AndAlso tvhti.Location = TreeViewHitTestLocations.StateImage Then
+    '            m.Result = IntPtr.Zero
+    '            tvhti.Node.Checked = Not tvhti.Node.Checked
+    '            Return
+    '        End If
+    '    ElseIf m.Msg = &H204 Then
+    '        Dim tvhti As TreeViewHitTestInfo = HitTest(New Point(CType(m.LParam, Integer)))
+    '        If tvhti IsNot Nothing Then
+    '            SelectedNode = tvhti.Node
+    '        End If
+    '    End If
+    '    Console.WriteLine(m.Msg)
+    '    MyBase.WndProc(m)
+    'End Sub
+
+    Public Sub PerformAfterCheck(e As TreeViewEventArgs)
+        OnAfterSelect(e)
+    End Sub
+
+    Public Sub PerformNodeMouseDoubleClick(e As TreeNodeMouseClickEventArgs)
+        OnNodeMouseDoubleClick(e)
+
+    End Sub
+End Class