svnno****@sourc*****
svnno****@sourc*****
2010年 11月 29日 (月) 21:20:17 JST
Revision: 1132
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1132
Author: kiri_feather
Date: 2010-11-29 21:20:17 +0900 (Mon, 29 Nov 2010)
Log Message:
-----------
終了時に例外が起きる場合があったので対処
Modified Paths:
--------------
branches/UserStream/Tween/Tween.vb
-------------- next part --------------
Modified: branches/UserStream/Tween/Tween.vb
===================================================================
--- branches/UserStream/Tween/Tween.vb 2010-11-29 11:55:36 UTC (rev 1131)
+++ branches/UserStream/Tween/Tween.vb 2010-11-29 12:20:17 UTC (rev 1132)
@@ -9559,10 +9559,14 @@
End Sub
Private Sub tw_NewPostFromStream()
- If InvokeRequired Then
- Invoke(New MethodInvoker(AddressOf tw_NewPostFromStream))
+ Try
+ If InvokeRequired Then
+ Invoke(New MethodInvoker(AddressOf tw_NewPostFromStream))
+ Exit Sub
+ End If
+ Catch ex As ObjectDisposedException
Exit Sub
- End If
+ End Try
Dim rsltAddCount As Integer = _statuses.DistributePosts()
RefreshTimeline()