主题：[求助]【例子已上传】动态增加的 treeview6控件 如何定义起 nodemousedoubleclick事件和 afterexpandnode事件！

我在全局代码加入了处理这2个事件的代码

此主题相关图片如下：111111.jpg

请问什么情况~~~

应该是：

TreeView6_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)

没用哎 还是如此~~~~~~~

修改后的代码~~~~~~~~

Public Sub TreeView6_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim Value() As String
Value = forms("ERP界面_table3").controls("treeview6").Node.FullPath.Split("\")
Select Case forms("ERP界面_table3").controls("treeview6").Node.Level
    Case 0
        If forms("ERP界面_table3").controls("treeview6").node.text = "全部显示"
            Tables("ERP界面_table3").Filter =""
        Else
            Tables("ERP界面_table3").Filter ="[部门] = '" & Value(0) & "'"
        End If
    Case 1
        Tables("ERP界面_table3").Filter ="[部门] = '" & Value(0) & "' And [岗位] = '" & Value(1) & "'"
    Case 2
        Tables("ERP界面_table3").Filter ="[部门] = '" & Value(0) & "' And [岗位] = '" & Value(1) &"' And [责任人] = '" & Value(2) & "'"
End Select
End Sub

Public Sub treeview6_afterexpandnode(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        Dim tr As WinForm.TreeView = forms("ERP界面_table3").Controls("TreeView6")
        Dim nd As WinForm.TreeNode = tr.SelectedNode
        If nd.Level = 0 Then
            For Each pg As WinForm.TreeNode In tr.Nodes
                If pg.Name <> nd.Name Then
                    pg.CollapseAll()
                End If
            Next
        Else
            For Each pg As WinForm.TreeNode In nd.Parentnode.nodes
                If pg.Name <> nd.Name Then
                    pg.CollapseAll()
                End If
            Next
        End If
End Sub

参照了VB.net的代码后 修改的 全局代码

Public Sub TreeView6_NodeMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs)
Dim Value() As String
Value = forms("ERP界面_table3").controls("treeview6").Node.FullPath.Split("\")
Select Case forms("ERP界面_table3").controls("treeview6").Node.Level
    Case 0
        If forms("ERP界面_table3").controls("treeview6").node.text = "全部显示"
            Tables("ERP界面_table3").Filter =""
        Else
            Tables("ERP界面_table3").Filter ="[部门] = '" & Value(0) & "'"
        End If
    Case 1
        Tables("ERP界面_table3").Filter ="[部门] = '" & Value(0) & "' And [岗位] = '" & Value(1) & "'"
    Case 2
        Tables("ERP界面_table3").Filter ="[部门] = '" & Value(0) & "' And [岗位] = '" & Value(1) &"' And [责任人] = '" & Value(2) & "'"
End Select
End Sub

Public Sub TreeView6_AfterExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs)
Dim tr As WinForm.TreeView = forms("ERP界面_table3").Controls("TreeView6")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd.Level = 0 Then
    For Each pg As WinForm.TreeNode In tr.Nodes
        If pg.Name <> nd.Name Then
            pg.CollapseAll()
        End If
    Next
Else
    For Each pg As WinForm.TreeNode In nd.Parentnode.nodes
        If pg.Name <> nd.Name Then
            pg.CollapseAll()
        End If
    Next
End If
End Sub

帮助里说

昨天我给别人写的一个添加在面板里的，您自己改一下就可以用：

Dim bn As WinForm.Button
bn = e.Form.CreateControl("Button1", ControlTypeEnum.Button)
bn.Left = 20
bn.Top = 50
bn.Text = "确定"
bn.FlatStyle = FlatStyle.Flat '只有在平面样式的时候才可以设置背景颜色
bn.BackColor = Color.Transparent
bn.BorderSize = 1
e.Form.Controls("Panel1").AddControl(bn)

 Dim trv6 As WinForm.treeview
trv6 = e.Form.CreateControl("treeview6",ControlTypeEnum.treeview)
e.Form.Controls("SplitContainer9").panel1.AddControl(trv6)
trv6.Dock = Windows.Forms.DockStyle.fill
AddHandler trv6.NodeMouseDoubleClick, AddressOf TreeView6_NodeMouseDoubleClick

此主题相关图片如下：1.jpg

出错~~~~~~~~~