tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re: ListViewのスクロール
投稿日： 2012/03/13(Tue) 00:42
投稿者： shu
Itemのフォーカス移動がOKなら

以下のような感じでどうでしょう？

   Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.Up
                Dim itm = ListView1.FocusedItem
                If itm.Index > 0 Then
                    Dim newItem = ListView1.Items(itm.Index - 1)
                    newItem.Focused = True
                    ListView1.EnsureVisible(newItem.Index)
                End If
                e.Handled = True
            Case Keys.Down
                Dim itm = ListView1.FocusedItem
                If itm.Index < ListView1.Items.Count - 1 Then
                    Dim newItem = ListView1.Items(itm.Index + 1)
                    newItem.Focused = True
                    ListView1.EnsureVisible(newItem.Index)
                End If
                e.Handled = True
        End Select
    End Sub
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。