From e98004d88359e51219ed401c717631d82f545e98 Mon Sep 17 00:00:00 2001 From: kiri_feather Date: Mon, 21 Feb 2011 17:08:55 +0000 Subject: [PATCH] =?utf8?q?ID=E9=99=8D=E9=A0=86=E3=80=81ID=E4=BB=A5?= =?utf8?q?=E5=A4=96=E3=81=A7=E3=82=BD=E3=83=BC=E3=83=88=E3=81=97=E3=81=A6?= =?utf8?q?=E3=81=84=E3=81=9F=E5=A0=B4=E5=90=88=E3=80=81=E3=83=AA=E3=82=B9?= =?utf8?q?=E3=83=88=E8=A1=A8=E7=A4=BA=E4=BD=8D=E7=BD=AE=E5=9B=BA=E5=AE=9A?= =?utf8?q?=E3=81=8C=E6=A9=9F=E8=83=BD=E3=81=97=E3=81=A6=E3=81=84=E3=81=AA?= =?utf8?q?=E3=81=8B=E3=81=A3=E3=81=9F=E3=81=AE=E3=81=A7=E4=BF=AE=E6=AD=A3?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1460 e39ad16e-3079-482e-bb30-4b4d378143b6 --- Tween/Tween.vb | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/Tween/Tween.vb b/Tween/Tween.vb index 7470b7c4..99ec1de7 100644 --- a/Tween/Tween.vb +++ b/Tween/Tween.vb @@ -1307,10 +1307,10 @@ Public Class TweenMain '制御しない Case Else '表示位置キープ - 'If _curList.VirtualListSize > 0 AndAlso _statuses.IndexOf(_curTab.Text, topId) > -1 Then - ' _curList.EnsureVisible(_curList.VirtualListSize - 1) - ' _curList.EnsureVisible(_statuses.IndexOf(_curTab.Text, topId)) - 'End If + If _curList.VirtualListSize > 0 AndAlso _statuses.IndexOf(_curTab.Text, topId) > -1 Then + _curList.EnsureVisible(_curList.VirtualListSize - 1) + _curList.EnsureVisible(_statuses.IndexOf(_curTab.Text, topId)) + End If End Select End If Catch ex As Exception @@ -1339,10 +1339,10 @@ Public Class TweenMain 'Id昇順 If ListLockMenuItem.Checked Then '制御しない - 'smode = -1 - '現在表示位置へ強制スクロール - If _curList.TopItem IsNot Nothing Then topId = _statuses.GetId(_curTab.Text, _curList.TopItem.Index) - smode = 0 + smode = -1 + ''現在表示位置へ強制スクロール + 'If _curList.TopItem IsNot Nothing Then topId = _statuses.GetId(_curTab.Text, _curList.TopItem.Index) + 'smode = 0 Else '最下行が表示されていたら、最下行へ強制スクロール。最下行が表示されていなかったら制御しない Dim _item As ListViewItem @@ -1351,9 +1351,9 @@ Public Class TweenMain If _item.Index = _curList.Items.Count - 1 Then smode = -2 Else - 'smode = -1 - If _curList.TopItem IsNot Nothing Then topId = _statuses.GetId(_curTab.Text, _curList.TopItem.Index) - smode = 0 + smode = -1 + 'If _curList.TopItem IsNot Nothing Then topId = _statuses.GetId(_curTab.Text, _curList.TopItem.Index) + 'smode = 0 End If End If Else -- 2.11.0