Treeview - 在 Visual Basic 中单击节点而不是展开事件（VS 2012 V11）

Question

我正在尝试在 Visual Basic 中制作帮助文件。我决定使用表单左侧的 TreeView 面板和右侧的 RichTextbox 面板复制旧样式的帮助文件。 （此设置与 PowerShell 中的帮助文件几乎一模一样。

我正在尝试使TreeView Node 为Single Clicked 时RichTextbox Text 将更改为适当的文本。这是我的代码：

 Private Sub treeView_NodeMouseClick(ByVal sender As Object, ByVal e As TreeNodeMouseClickEventArgs) Handles TreeViewContents.NodeMouseClick
        If e.Node.Text.Equals("Program Help") Then
            RTBHelp.Text = Environment.NewLine & "Help text here."
        End If

        If e.Node.Text.Equals("Program Getting Started") Then
            RTBHelp.Text = Environment.NewLine & "Getting Started text here"
        End If

    End Sub

问题在于，只需单击位于TreeViewNode 旁边的Plus 或Minus，文本就会发生变化。但是，我想模拟 PowerShell 帮助行为，单击 Plus 或 Minus 会展开或折叠节点，但不会更改 RichTextbox Text。仅当单击 Nodes 名称 (Text) 本身时，RichTextbox Text 才应更改。我尝试了几种方法，但似乎都没有奏效。我该怎么办？

Answer 1

这可能为时已晚，但我也遇到了同样的问题。 我使用了 AfterSelect 事件。 从逻辑上讲，当我们试图展开节点时会触发 NodeClick 事件，因为我们通过展开它来单击节点。 如果只对鼠标所做的选择感兴趣，则有必要检查 e.Action = TreeViewAction.ByMouse。

Private Sub treeView_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles treeView.AfterSelect
    If e.Action = TreeViewAction.ByMouse Then
        If e.Node.Text.Equals("Program Help") Then
          RTBHelp.Text = Environment.NewLine & "Help text here."
        End If

        If e.Node.Text.Equals("Program Getting Started") Then
            RTBHelp.Text = Environment.NewLine & "Getting Started text here"
        End If
    End If

End Sub

通过使用“if TreeViewAction.ByMouse then ...”，如果按下箭头键或鼠标，if 语句下的代码将被执行。所以如果只捕获鼠标选择，第一个 If 语句非常重要。

Answer 2

改用 AfterSelect 事件。