svnno****@sourc*****
svnno****@sourc*****
2010年 12月 9日 (木) 21:00:04 JST
Revision: 1189
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1189
Author: kiri_feather
Date: 2010-12-09 21:00:04 +0900 (Thu, 09 Dec 2010)
Log Message:
-----------
SetReadのエンバグ修正
Modified Paths:
--------------
trunk/Tween/StatusDictionary.vb
-------------- next part --------------
Modified: trunk/Tween/StatusDictionary.vb
===================================================================
--- trunk/Tween/StatusDictionary.vb 2010-12-09 11:36:08 UTC (rev 1188)
+++ trunk/Tween/StatusDictionary.vb 2010-12-09 12:00:04 UTC (rev 1189)
@@ -443,6 +443,7 @@
For idx As Integer = 0 To _tabs(TabName).AllCount - 1
Dim exist As Boolean = False
Dim Id As Long = _tabs(TabName).GetId(idx)
+ If Id < 0 Then Continue For
For Each key As String In _tabs.Keys
If Not key = TabName AndAlso key <> dmName Then
If _tabs(key).Contains(Id) Then
@@ -998,8 +999,8 @@
If tb.UnreadManage = False Then Exit Sub '未読管理していなければ終了
- If Not tb.Contains(Index) Then Exit Sub
Dim Id As Long = tb.GetId(Index)
+ If Id < 0 Then Exit Sub
Dim post As PostClass
If Not tb.IsInnerStorageTabType Then
post = _statuses(Id)
@@ -1050,6 +1051,7 @@
SyncLock LockObj
For i As Integer = 0 To tb.AllCount - 1
Dim id As Long = tb.GetId(i)
+ If id < 0 Then Exit Sub
If Not _statuses(id).IsReply AndAlso _
Not _statuses(id).IsRead AndAlso _
Not _statuses(id).FilterHit Then
@@ -1833,7 +1835,7 @@
End Sub
Public Function GetId(ByVal Index As Integer) As Long
- Return _ids(Index)
+ Return If(Index < _ids.Count, _ids(Index), -1)
End Function
Public Function IndexOf(ByVal ID As Long) As Integer