svnno****@sourc*****
svnno****@sourc*****
2010年 12月 25日 (土) 11:12:45 JST
Revision: 1251
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1251
Author: kiri_feather
Date: 2010-12-25 11:12:45 +0900 (Sat, 25 Dec 2010)
Log Message:
-----------
投稿リトライダイアログで例外が出る場合があったので対応
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2010-12-25 01:56:15 UTC (rev 1250)
+++ trunk/Tween/Tween.vb 2010-12-25 02:12:45 UTC (rev 1251)
@@ -2373,7 +2373,18 @@
SetMainWindowTitle()
rslt.retMsg = ""
Else
- If MessageBox.Show(String.Format("{0} ---> [ " & rslt.retMsg & " ]" & Environment.NewLine & """" & rslt.status.status & """" & Environment.NewLine & "{1}", My.Resources.StatusUpdateFailed1, My.Resources.StatusUpdateFailed2), "Failed to update status", MessageBoxButtons.RetryCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Retry Then
+ Dim retry As DialogResult
+ Try
+ retry = MessageBox.Show(String.Format("{0} ---> [ " & rslt.retMsg & " ]" & Environment.NewLine & """" & rslt.status.status & """" & Environment.NewLine & "{1}",
+ My.Resources.StatusUpdateFailed1,
+ My.Resources.StatusUpdateFailed2),
+ "Failed to update status",
+ MessageBoxButtons.RetryCancel,
+ MessageBoxIcon.Question)
+ Catch ex As Exception
+ retry = Windows.Forms.DialogResult.Abort
+ End Try
+ If retry = Windows.Forms.DialogResult.Retry Then
Dim args As New GetWorkerArg()
args.page = 0
args.endPage = 0