From 8dd878fe56fd4fa8c070fa3cfcb312fd2596a503 Mon Sep 17 00:00:00 2001 From: kiri_feather Date: Wed, 2 Mar 2011 12:17:30 +0000 Subject: [PATCH] =?utf8?q?ImageListviewItem=E3=81=AE=E7=94=BB=E5=83=8F?= =?utf8?q?=E5=8F=96=E5=BE=97=E5=AE=8C=E4=BA=86=E3=82=A4=E3=83=99=E3=83=B3?= =?utf8?q?=E3=83=88=E3=82=92Add/RemoveHander=E3=81=A7=E6=98=8E=E7=A4=BA?= =?utf8?q?=E3=81=99=E3=82=8B=E3=82=88=E3=81=86=E3=81=AB=E5=A4=89=E6=9B=B4?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1481 e39ad16e-3079-482e-bb30-4b4d378143b6 --- Tween/Tween.vb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Tween/Tween.vb b/Tween/Tween.vb index edd2e4a3..eb781a9a 100644 --- a/Tween/Tween.vb +++ b/Tween/Tween.vb @@ -208,7 +208,7 @@ Public Class TweenMain 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 @@ RETRY: 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 @@ RETRY: 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 -- 2.11.0