ListView的焦点

[chdf535]

两个按钮：向下或向上

如何各点击一次按钮，让 ListView1的焦点向下移一位或向上移一位...，

[wzuomin]

这样应该可以实现，不知道还有没有更好的方法，期待ing…

Public Class Form1

    Private Sub btnUp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUp.Click
        For i As Integer = 0 To Me.ListView1.Items.Count - 1
            If Me.ListView1.Items(i).Selected Then
                If i > 0 Then
                    Me.ListView1.Items(i - 1).Selected = True
                    Me.ListView1.Items(i - 1).Focused = True
                End If
                Exit For
            End If
        Next
    End Sub

    Private Sub btnDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDown.Click
        For i As Integer = 0 To Me.ListView1.Items.Count - 1
            If Me.ListView1.Items(i).Selected Then
                If i < Me.ListView1.Items.Count - 1 Then
                    Me.ListView1.Items(i + 1).Selected = True
                    Me.ListView1.Items(i + 1).Focused = True
                End If
                Exit For
            End If
        Next
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ListView1.MultiSelect = False
        Me.ListView1.HideSelection = False
    End Sub

End Class