投稿規制、投稿重複をエラー扱いに

タブメニューを開くと例外が起こる問題を修正
タイムライン解析時の例外対応

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@241 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index 73339ef..66e629e 100644 (file)
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -1,5 +1,9 @@
 更新履歴
 
+==== Ver 0.9.0.0(2010/05/**)
+ * 投稿重複、投稿規制をエラー扱いに
+ * タブメニューを開く際に例外が起こるバグ修正
+ * タイムライン解析で例外が起こるバグ修正
 ==== Ver 0.8.9.0(2010/05/03)
  * Webモード廃止
  * OAuth（xAuth）対応（API上限が350へ）。継続してBASIC認証も選択可能です。各APIの接続先は共通なので、API制限は共通となります。

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index bfa36a8..fc44c3a 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -5711,7 +5711,14 @@ RETRY:
 
     Private Sub ContextMenuTabProperty_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuTabProperty.Opening
         '右クリックの場合はタブ名が設定済。アプリケーションキーの場合は現在のタブを対象とする
-        If _rclickTabName = "" OrElse sender IsNot ContextMenuTabProperty Then _rclickTabName = ListTab.SelectedTab.Text
+        If _rclickTabName = "" OrElse sender IsNot ContextMenuTabProperty Then
+            If ListTab IsNot Nothing AndAlso ListTab.SelectedTab IsNot Nothing Then
+                _rclickTabName = ListTab.SelectedTab.Text
+            Else
+                Exit Sub
+            End If
+        End If
+
         If _statuses Is Nothing Then Exit Sub
         If _statuses.Tabs Is Nothing Then Exit Sub
 

diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb
index 1f0328a..7cdd126 100644 (file)
--- a/Tween/Twitter.vb
+++ b/Tween/Twitter.vb
@@ -2079,7 +2079,7 @@ Public Class Twitter
                     xd.LoadXml(content)
                     Dim xNode As XmlNode = Nothing
                     xNode = xd.SelectSingleNode("/hash/error")
-                    Return "OK:" + xNode.InnerText
+                    Return "Err:" + xNode.InnerText
                 Catch ex As Exception
                 End Try
                 Return "Err:Update Limits?"
@@ -3495,6 +3495,7 @@ Public Class Twitter
 
             '非同期アイコン取得＆StatusDictionaryに追加
             arIdx += 1
+            If arIdx > dlgt.Length - 1 Then Continue For
             dlgt(arIdx) = New GetIconImageDelegate(AddressOf GetIconImage)
             ar(arIdx) = dlgt(arIdx).BeginInvoke(post, Nothing, Nothing)
         Next