[Tween-svn] [1481] ImageListviewItemの画像取得完了イベントをAdd / RemoveHanderで明示するように変更

Back to archive index

svnno****@sourc***** svnno****@sourc*****
2011年 3月 2日 (水) 21:17:30 JST


Revision: 1481
          http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1481
Author:   kiri_feather
Date:     2011-03-02 21:17:30 +0900 (Wed, 02 Mar 2011)

Log Message:
-----------
ImageListviewItemの画像取得完了イベントをAdd/RemoveHanderで明示するように変更

Modified Paths:
--------------
    trunk/Tween/Tween.vb


-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb	2011-03-01 11:18:09 UTC (rev 1480)
+++ trunk/Tween/Tween.vb	2011-03-02 12:17:30 UTC (rev 1481)
@@ -208,7 +208,7 @@
 
     Private WithEvents TimerTimeline As New System.Timers.Timer
 
-    Private WithEvents displayItem As ImageListViewItem
+    Private displayItem As ImageListViewItem
 
     'URL短縮のUndo用
     Private Structure urlUndo
@@ -4696,7 +4696,7 @@
         Return detailHtmlFormatHeader + orgdata + detailHtmlFormatFooter
     End Function
 
-    Private Sub DisplayItemImage_Downloaded(ByVal sender As Object, ByVal e As EventArgs) Handles displayItem.ImageDownloaded
+    Private Sub DisplayItemImage_Downloaded(ByVal sender As Object, ByVal e As EventArgs)
         If sender.Equals(displayItem) Then
             If UserPicture.Image IsNot Nothing Then UserPicture.Image.Dispose()
             If displayItem.Image IsNot Nothing Then
@@ -4725,7 +4725,12 @@
         End If
 
         displaypost = _curPost
+        If displayItem IsNot Nothing Then
+            RemoveHandler displayItem.ImageDownloaded, AddressOf Me.DisplayItemImage_Downloaded
+            displayItem = Nothing
+        End If
         displayItem = DirectCast(_curList.Items(_curList.SelectedIndices(0)), ImageListViewItem)
+        AddHandler displayItem.ImageDownloaded, AddressOf Me.DisplayItemImage_Downloaded
 
         Dim dTxt As String = createDetailHtml(If(_curPost.IsDeleted, "(DELETED)", _curPost.Text))
         If _curPost.IsDm Then



Tween-svn メーリングリストの案内
Back to archive index