タイトル : 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 |