VB.NET中TreeView键盘导航问题：含空格名称无法定位目标节点

我用音乐列表填充TreeView，根节点为"Library"。期望通过输入名称定位特定艺术家：比如查找"Billy Idol"时，输入"Billy"能跳转到第一个以Billy开头的节点，但按下空格再输入"I"时，TreeView会跳转到第一个以"I"开头的节点，而非预期的"Billy Idol"。

文本文件通过制表符（Tab）标识TreeView项的层级。此前在VB6中，可在KeyDown事件捕获空格字符并将KeyCode设为0来解决该问题，但迁移至VB.NET后找不到类似实现方式。

要解决这个问题，需要自定义TreeView的输入匹配逻辑，核心思路是维护输入缓冲区并拦截空格的默认处理，具体实现步骤如下：

1. 添加全局跟踪变量 #

在Form类中添加变量，用于记录用户输入内容和输入时间，实现超时重置逻辑：

Private inputBuffer As String = ""
Private lastInputTime As DateTime = DateTime.Now
Private Const INPUT_TIMEOUT As Integer = 1000 ' 超时时间，单位毫秒

2. 拦截空格并维护输入缓冲区 #

重写TreeView的KeyDown事件，阻止空格的默认处理，将其加入输入缓冲区；同时处理超时和其他输入：

Private Sub TreeView1_KeyDown(sender As Object, e As KeyEventArgs) Handles TreeView1.KeyDown
    ' 超时则清空缓冲区，视为新搜索
    If DateTime.Now.Subtract(lastInputTime).TotalMilliseconds > INPUT_TIMEOUT Then
        inputBuffer = ""
    End If

    If e.KeyCode = Keys.Space Then
        ' 拦截空格默认行为，加入缓冲区
        inputBuffer += " "
        lastInputTime = DateTime.Now
        e.SuppressKeyPress = True
        FindMatchingNode()
    ElseIf Char.IsLetterOrDigit(ChrW(e.KeyValue)) Then
        ' 处理字母数字输入
        inputBuffer += ChrW(e.KeyValue)
        lastInputTime = DateTime.Now
        FindMatchingNode()
    Else
        ' 其他按键清空缓冲区
        inputBuffer = ""
    End If
End Sub

3. 实现节点匹配逻辑 #

编写FindMatchingNode方法，遍历TreeView节点，找到第一个与输入缓冲区内容匹配的艺术家节点（假设为根节点的直接子节点，即level=1）：

Private Sub FindMatchingNode()
    If String.IsNullOrEmpty(inputBuffer) Then Return

    ' 从当前选中节点的下一个开始查找，循环遍历所有节点
    Dim startNode As TreeNode = If(TreeView1.SelectedNode IsNot Nothing, TreeView1.SelectedNode.NextNode, TreeView1.Nodes(0).Nodes(0))
    If startNode Is Nothing Then startNode = TreeView1.Nodes(0).Nodes(0)

    Dim currentNode As TreeNode = startNode
    Do
        If currentNode.Level = 1 Then
            If currentNode.Text.StartsWith(inputBuffer, StringComparison.OrdinalIgnoreCase) Then
                TreeView1.SelectedNode = currentNode
                currentNode.EnsureVisible()
                Exit Do
            End If
        End If

        currentNode = currentNode.NextNode
        If currentNode Is Nothing Then currentNode = TreeView1.Nodes(0).Nodes(0)
    Loop Until currentNode Is startNode
End Sub

Imports System.IO

Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim mNode As TreeNode
    Private inputBuffer As String = ""
    Private lastInputTime As DateTime = DateTime.Now
    Private Const INPUT_TIMEOUT As Integer = 1000 ' 1秒超时

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim file_name As String = Application.StartupPath
        file_name = file_name.Substring(0, file_name.Length - 1)
        file_name = file_name.Substring(0, file_name.LastIndexOf("\"))
        file_name &= "\test.txt"
        LoadTreeViewFromFile(file_name, TreeView1)
        TreeView1.Sort()
        ' 设置HideSelection，选中节点在失去焦点时仍保持高亮
        TreeView1.HideSelection = False
    End Sub

    Private Sub LoadTreeViewFromFile(ByVal file_name As String, ByVal trv As TreeView)
        Dim stream_reader As New StreamReader(file_name)
        Dim file_contents As String = stream_reader.ReadToEnd()
        stream_reader.Close()

        file_contents = file_contents.Replace(vbLf, "")

        Const charCR As Char = CChar(vbCr)
        Const charTab As Char = CChar(vbTab)
        Dim lines() As String = file_contents.Split(charCR)

        Dim text_line As String
        Dim level As Integer
        Dim tree_nodes() As TreeNode
        Dim num_nodes As Integer = 0
        ReDim tree_nodes(num_nodes)

        trv.Nodes.Clear()
        For i As Integer = 0 To lines.GetUpperBound(0)
            text_line = lines(i)
            If text_line.Trim().Length > 0 Then
                level = text_line.Length - text_line.TrimStart(charTab).Length
                If level > num_nodes Then
                    num_nodes = level
                    ReDim Preserve tree_nodes(num_nodes)
                End If

                If level = 0 Then
                    tree_nodes(level) = trv.Nodes.Add(text_line.Trim())
                Else
                    tree_nodes(level) = tree_nodes(level - 1).Nodes.Add(text_line.Trim())
                    If level = 1 Then tree_nodes(level).EnsureVisible()
                End If
            End If
        Next i

        If trv.Nodes.Count > 0 Then trv.Nodes(0).EnsureVisible()
    End Sub

    Private Sub TreeView1_KeyDown(sender As Object, e As KeyEventArgs) Handles TreeView1.KeyDown
        If DateTime.Now.Subtract(lastInputTime).TotalMilliseconds > INPUT_TIMEOUT Then
            inputBuffer = ""
        End If

        If e.KeyCode = Keys.Space Then
            inputBuffer += " "
            lastInputTime = DateTime.Now
            e.SuppressKeyPress = True
            FindMatchingNode()
        ElseIf Char.IsLetterOrDigit(ChrW(e.KeyValue)) Then
            inputBuffer += ChrW(e.KeyValue)
            lastInputTime = DateTime.Now
            FindMatchingNode()
        Else
            inputBuffer = ""
        End If
    End Sub

    Private Sub FindMatchingNode()
        If String.IsNullOrEmpty(inputBuffer) Then Return

        Dim startNode As TreeNode = If(TreeView1.SelectedNode IsNot Nothing, TreeView1.SelectedNode.NextNode, TreeView1.Nodes(0).Nodes(0))
        If startNode Is Nothing Then startNode = TreeView1.Nodes(0).Nodes(0)

        Dim currentNode As TreeNode = startNode
        Do
            If currentNode.Level = 1 Then
                If currentNode.Text.StartsWith(inputBuffer, StringComparison.OrdinalIgnoreCase) Then
                    TreeView1.SelectedNode = currentNode
                    currentNode.EnsureVisible()
                    Exit Do
                End If
            End If

            currentNode = currentNode.NextNode
            If currentNode Is Nothing Then currentNode = TreeView1.Nodes(0).Nodes(0)
        Loop Until currentNode Is startNode
    End Sub

    Private Sub TreeView1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TreeView1.KeyPress
        If TreeView1.SelectedNode?.Parent Is TreeView1.Nodes(0) Then
            TreeView1.SelectedNode.Expand()
        End If
    End Sub
End Class

内容的提问来源于stack exchange，提问作者Curt Lindsey