Changeset 22281 for lang

Timestamp:

10/28/08 17:03:11 (5 years ago)

Author:

kiri_feather

Message:

更新間隔0でエラーになる問題修正
終了時設定保存エラーを無視
設定保存でTwitterクラスを使用しないよう変更

Location:

lang/vb2005/Tween/Tween

Files:

• Resources/ChangeLog.txt (modified) (1 diff)
• Tween.vb (modified) (4 diffs)

lang/vb2005/Tween/Tween/Resources/ChangeLog.txt

@@ -1 +1 @@
 更新履歴
 
+***Ver0.1.0.0(Unreleased)
+-更新間隔0を設定した場合にエラーが起こるバグ修正
+-終了処理中の設定保存でエラーが発生した場合は無視するよう変更（自動バージョンアップ対応）
+-起動時のバージョンチェックでバージョンアップする際、設定保存でエラーが発生するバグ修正
 ***Ver0.0.9.9(2008/10/28)
 -ここ最近の設定追加項目を保存していなかった問題に対処

lang/vb2005/Tween/Tween/Tween.vb

@@ -1725 +1725 @@
                         keys.Clear()
                         If rslt.page + 1 <= rslt.endPage Then
-                            If statusCount = 20 And rslt.page = 1 And SettingDialog.PeriodAdjust Then
+                            If statusCount = 20 And rslt.page = 1 And SettingDialog.PeriodAdjust And SettingDialog.TimelinePeriodInt > 0 Then
                                 Dim itv As Integer = TimerTimeline.Interval
                                 itv -= 5000
@@ -1745 +1745 @@
                             GetTimelineWorker.RunWorkerAsync(args)
                         Else
-                            If rslt.page = 1 And statusCount < 17 And SettingDialog.PeriodAdjust Then
+                            If rslt.page = 1 And statusCount < 17 And SettingDialog.PeriodAdjust And SettingDialog.TimelinePeriodInt > 0 Then
                                 TimerTimeline.Interval += 1000
                                 If TimerTimeline.Interval > SettingDialog.TimelinePeriodInt * 1000 Then TimerTimeline.Interval = SettingDialog.TimelinePeriodInt * 1000
@@ -5143 +5143 @@
             _section.UserName = _username
             _section.Password = _password
-            _section.NextPageThreshold = clsTw.NextThreshold
-            _section.NextPages = clsTw.NextPages
+            '_section.NextPageThreshold = clsTw.NextThreshold
+            '_section.NextPages = clsTw.NextPages
+            _section.NextPageThreshold = SettingDialog.NextPageThreshold
+            _section.NextPages = SettingDialog.NextPagesInt
             _section.TimelinePeriod = SettingDialog.TimelinePeriodInt
             _section.DMPeriod = SettingDialog.DMPeriodInt
@@ -5376 +5378 @@
             'Next
 
-            _config.Save()
+            '終了処理中の保存でエラーが発生した場合は無視
+            If _endingFlag = False Then
+                _config.Save()
+            Else
+                Try
+                    _config.Save()
+                Catch ex As Exception
+
+                End Try
+            End If
         End If
     End Sub