アイコン表示が消える問題がDisposeに起因するなら、これで回避できるはず。再現するなら別の原因か。

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

diff --git a/Tween/ImageListViewItem.vb b/Tween/ImageListViewItem.vb
index 1b8d082..257688e 100644 (file)
--- a/Tween/ImageListViewItem.vb
+++ b/Tween/ImageListViewItem.vb
@@ -1,9 +1,15 @@
 Public Class ImageListViewItem
     Inherits ListViewItem
+    Implements IDisposable
 
     Public Sub New(ByVal items() As String, ByVal imageKey As String)
         MyBase.New(items, imageKey)
     End Sub
 
     Public Property Image As Image
+
+    Public Sub Dispose() Implements IDisposable.Dispose
+        Me.Image.Dispose()
+        Me.Image = Nothing
+    End Sub
 End Class

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index ab95b2e..05df762 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -3700,7 +3700,7 @@ Public Class TweenMain
         End If
 
         If tw.DetailIcon.ContainsKey(Post.ImageUrl) Then
-            itm.Image = tw.DetailIcon(Post.ImageUrl)
+            itm.Image = New Bitmap(tw.DetailIcon(Post.ImageUrl))
         End If
 
         Dim read As Boolean = Post.IsRead