33 lines
1.1 KiB
VB.net
33 lines
1.1 KiB
VB.net
|
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
|