VB.NET TreeView实现员工姓名首字母跳转功能的方案问询

我最近开发了一款小型考勤程序，用仅一级节点的TreeView控件展示员工及其活动信息。之前一直想实现「按下对应字母键，跳转到姓名首字母匹配的下一位员工」的功能，翻了一圈没找到现成方案，索性自己写了实现逻辑，分享给有同样需求的朋友参考：

核心实现代码 #

Private Sub TryToJump(strLetter As String)
    Dim intSelectedNode As Integer
    Dim bolMatchFound As Boolean
    
    If tvEmployees.Nodes.Count = 0 Then Exit Sub 'There are no nodes to search through...
    
    ' 补充完整逻辑示例（可按需调整）：
    ' 1. 确定起始遍历位置：从当前选中节点的下一个开始，无选中则从首个节点开始
    intSelectedNode = IIf(tvEmployees.SelectedNode Is Nothing, 0, tvEmployees.SelectedNode.Index + 1)
    
    ' 2. 从起始位置向后遍历找匹配项
    Do While intSelectedNode < tvEmployees.Nodes.Count
        If UCase(Left(tvEmployees.Nodes(intSelectedNode).Text, 1)) = UCase(strLetter) Then
            tvEmployees.Nodes(intSelectedNode).Selected = True
            tvEmployees.Nodes(intSelectedNode).EnsureVisible()
            bolMatchFound = True
            Exit Do
        End If
        intSelectedNode = intSelectedNode + 1
    Loop
    
    ' 3. 若向后遍历无匹配，从头开始查找
    If Not bolMatchFound Then
        For intSelectedNode = 0 To tvEmployees.Nodes.Count - 1
            If UCase(Left(tvEmployees.Nodes(intSelectedNode).Text, 1)) = UCase(strLetter) Then
                tvEmployees.Nodes(intSelectedNode).Selected = True
                tvEmployees.Nodes(intSelectedNode).EnsureVisible()
                Exit For
            End If
        Next
    End If
End Sub

使用提示 #

• 需配合TreeView的KeyPress事件触发：在事件中捕获用户按下的字母，调用TryToJump(Chr(KeyAscii))即可
• 代码支持大小写不敏感匹配，也可根据需求修改为严格大小写匹配

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