投稿欄でのリストスクロールにおいて正しく移動できないバグを修正

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@694 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index e64aff3..0a1ce37 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -5402,12 +5402,22 @@ RETRY:
             If e.KeyCode = Keys.Up Then
                 e.Handled = True
                 e.SuppressKeyPress = True
-                GoPost(False)
+                Dim idx As Integer = 0
+                If _curList IsNot Nothing AndAlso _curList.SelectedIndices(0) > 0 Then
+                    idx = _curList.SelectedIndices(0) - 1
+                    SelectListItem(_curList, idx)
+                    _curList.EnsureVisible(idx)
+                End If
             End If
             If e.KeyCode = Keys.Down Then
                 e.Handled = True
                 e.SuppressKeyPress = True
-                GoPost(True)
+                Dim idx As Integer = 0
+                If _curList IsNot Nothing AndAlso _curList.SelectedIndices(0) < _curList.Items.Count - 1 Then
+                    idx = _curList.SelectedIndices(0) + 1
+                    SelectListItem(_curList, idx)
+                    _curList.EnsureVisible(idx)
+                End If
             End If
         End If
         Me.StatusText_TextChanged(Nothing, Nothing)