OSDN Git Service

ユーザー情報表示の際に、最新発言に関しての情報が抜け落ちることがあるのでそのような場合でもとりあえず表示できるようにした
authorsyo68k <syo68k@users.sourceforge.jp>
Tue, 18 May 2010 00:25:15 +0000 (00:25 +0000)
committerKimura Youichi <kim.upsilon@bucyou.net>
Sat, 18 Feb 2012 14:12:30 +0000 (23:12 +0900)
git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@327 e39ad16e-3079-482e-bb30-4b4d378143b6

Tween/My Project/Resources.Designer.vb
Tween/My Project/Resources.resx
Tween/Resources/ChangeLog.txt
Tween/ShowUserInfo.Designer.vb
Tween/ShowUserInfo.resx
Tween/ShowUserInfo.vb

index 48ddfd6..533fc0d 100644 (file)
@@ -1,7 +1,7 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
 '     このコードはツールによって生成されました。
-'     ランタイム バージョン:2.0.50727.3603
+'     ランタイム バージョン:4.0.30319.1
 '
 '     このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
 '     コードが再生成されるときに損失したりします。
@@ -17,12 +17,12 @@ Namespace My.Resources
     
     'このクラスは StronglyTypedResourceBuilder クラスが ResGen
     'または Visual Studio のようなツールを使用して自動生成されました。
-    'メンバを追加または削除するには、.ResX ファイルを編集して、/str オプションと共に
+    'ã\83¡ã\83³ã\83\90ã\83¼ã\82\92追å\8a ã\81¾ã\81\9fã\81¯å\89\8aé\99¤ã\81\99ã\82\8bã\81«ã\81¯ã\80\81.ResX ã\83\95ã\82¡ã\82¤ã\83«ã\82\92ç·¨é\9b\86ã\81\97ã\81¦ã\80\81/str ã\82ªã\83\97ã\82·ã\83§ã\83³ã\81¨å\85±ã\81«
     'ResGen を実行し直すか、または VS プロジェクトをビルドし直します。
     '''<summary>
     '''  ローカライズされた文字列などを検索するための、厳密に型指定されたリソース クラスです。
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"),  _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _
      Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
      Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
      Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
@@ -316,16 +316,20 @@ Namespace My.Resources
         '''<summary>
         '''  更新履歴
         '''
-        '''==== Ver 0.8.9.3(2010/05/**)
-        ''' * Alt+Shift+R,Ctrl+Qが効かない場合があったバグを修正
-        ''' * Replyタブの初期設定での更新間隔を180秒に。バージョンアップの方は手動で調整してください。
-        ''' * ユーザー情報ダイアログで自己紹介の部分をhtml化して表示するようにした。サムネイルと右クリックメニュー以外は、@IDやハッシュタグのリンク化など、詳細表示とほぼ同等の機能があります。
-        ''' * ユーザー情報ダイアログでクリックしてジャンプできる場所はツールチップでジャンプ先URLを表示するようにした
-        ''' * ユーザー情報ダイアログで最新の発言を表示するようにした
-        ''' * ユーザー情報ダイアログの発言、自己紹介の各表示エリアで右クリックからコピー・すべて選択ができるようにした
-        ''' * ユーザー情報ダイアログでフォロー状況の取得に失敗した際のエラー処理が抜けていたのを修正
-        ''' * 画像サムネイルのSplitterDistanceが復元されないことがあるバグ修正
-        ''' * 投稿時に投稿完了を待たないように変更。投稿失敗はメッセージで通知し、リトライ・キャン [残りの文字列は切り詰められました]&quot;; に類似しているローカライズされた文字列を検索します。
+        '''==== Ver 0.8.9.4(2010/05/**)
+        ''' * 初期設定でのMentions取得数を40件へ。バージョンアップの方は手動で調整してください。
+        ''' * 画像プレビューをフォト蔵に対応
+        ''' * 起動時のFollowersリスト取得処理に失敗した場合、初期読み込み処理の最終段階で再試行するようにした
+        ''' * Twitterが相変わらずおかしいので、一時期無効にしていた公式RTがFav済みで流れてくる件の対策を復活
+        ''' * 詳細表示の名前表示部分を右クリックすることで、発言者のユーザー情報確認、フォロー・フォロー解除が行えるようにした
+        ''' * 詳細発言表示での右クリックメニューからユーザー情報の確認ができるようにした
+        ''' * 画面が白くなる問題に対処
+        ''' * 未読カウントがずれる問題に対処
+        ''' * 右クリックメニュー、操作メニューにプロフィール表示を追加。ショートカットキーはAlt+P。
+        ''' * カラムにソート方向を常時表示するようにした
+        ''' * Altキー2回押しでフォーカスがSplitContainerに移る不具合修正
+        ''' * 自身のバージョン取得方法変更
+        ''' * 自身のファイル [残りの文字列は切り詰められました]&quot;; に類似しているローカライズされた文字列を検索します。
         '''</summary>
         Friend ReadOnly Property ChangeLog() As String
             Get
@@ -1616,6 +1620,15 @@ Namespace My.Resources
         End Property
         
         '''<summary>
+        '''  最新発言の取得に失敗しました に類似しているローカライズされた文字列を検索します。
+        '''</summary>
+        Friend ReadOnly Property ShowUserInfo2() As String
+            Get
+                Return ResourceManager.GetString("ShowUserInfo2", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
         '''  まだあなたのプロフィール情報を取得していません。投稿後に再度お試しください。 に類似しているローカライズされた文字列を検索します。
         '''</summary>
         Friend ReadOnly Property ShowYourProfileText1() As String
index 5ea6302..4faa7c7 100644 (file)
   <data name="AddTabMenuItem_ClickText2" xml:space="preserve">
     <value>タブ追加</value>
   </data>
-  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
+  <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="At" type="System.Resources.ResXFileRef, System.Windows.Forms">
     <value>..\Resources\5b.ico;System.Drawing.Icon, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
   </data>
   <data name="SettingAPIUse1" xml:space="preserve">
     <value>消費API数 :  {0} / h    (最大 :  {1} / h)</value>
   </data>
+  <data name="ShowUserInfo2" xml:space="preserve">
+    <value>最新発言の取得に失敗しました</value>
+  </data>
 </root>
\ No newline at end of file
index c1d0267..68e4df8 100644 (file)
@@ -14,6 +14,7 @@
  * Altキー2回押しでフォーカスがSplitContainerに移る不具合修正
  * 自身のバージョン取得方法変更
  * 自身のファイルバージョンが取れなかった場合は、メッセージ表示
+ * ユーザー情報表示の際に、最新発言に関しての情報が抜け落ちることがあるのでそのような場合でもとりあえず表示できるようにした
 ==== Ver 0.8.9.3(2010/05/15)
  * Alt+Shift+R,Ctrl+Qが効かない場合があったバグを修正
  * Replyタブの初期設定での更新間隔を180秒に。バージョンアップの方は手動で調整してください。
index 5090d49..390544b 100644 (file)
@@ -55,7 +55,7 @@ Partial Class ShowUserInfo
         Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.SelectionCopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.SelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.Label11 = New System.Windows.Forms.Label()
+        Me.LabelRecentPost = New System.Windows.Forms.Label()
         Me.RecentPostBrowser = New System.Windows.Forms.WebBrowser()
         Me.DescriptionBrowser = New System.Windows.Forms.WebBrowser()
         Me.LabelIsVerified = New System.Windows.Forms.Label()
@@ -240,10 +240,10 @@ Partial Class ShowUserInfo
         Me.SelectAllToolStripMenuItem.Name = "SelectAllToolStripMenuItem"
         resources.ApplyResources(Me.SelectAllToolStripMenuItem, "SelectAllToolStripMenuItem")
         '
-        'Label11
+        'LabelRecentPost
         '
-        resources.ApplyResources(Me.Label11, "Label11")
-        Me.Label11.Name = "Label11"
+        resources.ApplyResources(Me.LabelRecentPost, "LabelRecentPost")
+        Me.LabelRecentPost.Name = "LabelRecentPost"
         '
         'RecentPostBrowser
         '
@@ -289,7 +289,7 @@ Partial Class ShowUserInfo
         Me.Controls.Add(Me.UserPicture)
         Me.Controls.Add(Me.DescriptionBrowser)
         Me.Controls.Add(Me.LabelScreenName)
-        Me.Controls.Add(Me.Label11)
+        Me.Controls.Add(Me.LabelRecentPost)
         Me.Controls.Add(Me.LinkLabelFav)
         Me.Controls.Add(Me.Label9)
         Me.Controls.Add(Me.LabelIsProtected)
@@ -358,7 +358,7 @@ Partial Class ShowUserInfo
     Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
     Friend WithEvents SelectionCopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
     Friend WithEvents SelectAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
-    Friend WithEvents Label11 As System.Windows.Forms.Label
+    Friend WithEvents LabelRecentPost As System.Windows.Forms.Label
     Friend WithEvents RecentPostBrowser As System.Windows.Forms.WebBrowser
     Friend WithEvents LabelIsVerified As System.Windows.Forms.Label
     Friend WithEvents Label13 As System.Windows.Forms.Label
index d01c77e..0fd83aa 100644 (file)
   <data name="&gt;&gt;ContextMenuStrip1.Type" xml:space="preserve">
     <value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="Label11.AutoSize" type="System.Boolean, mscorlib">
+  <data name="LabelRecentPost.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
   </data>
-  <data name="Label11.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
+  <data name="LabelRecentPost.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
     <value>NoControl</value>
   </data>
-  <data name="Label11.Location" type="System.Drawing.Point, System.Drawing">
+  <data name="LabelRecentPost.Location" type="System.Drawing.Point, System.Drawing">
     <value>10, 286</value>
   </data>
-  <data name="Label11.Size" type="System.Drawing.Size, System.Drawing">
+  <data name="LabelRecentPost.Size" type="System.Drawing.Size, System.Drawing">
     <value>63, 12</value>
   </data>
-  <data name="Label11.TabIndex" type="System.Int32, mscorlib">
+  <data name="LabelRecentPost.TabIndex" type="System.Int32, mscorlib">
     <value>17</value>
   </data>
-  <data name="Label11.Text" xml:space="preserve">
+  <data name="LabelRecentPost.Text" xml:space="preserve">
     <value>最近の発言</value>
   </data>
-  <data name="&gt;&gt;Label11.Name" xml:space="preserve">
-    <value>Label11</value>
+  <data name="&gt;&gt;LabelRecentPost.Name" xml:space="preserve">
+    <value>LabelRecentPost</value>
   </data>
-  <data name="&gt;&gt;Label11.Type" xml:space="preserve">
+  <data name="&gt;&gt;LabelRecentPost.Type" xml:space="preserve">
     <value>System.Windows.Forms.Label, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </data>
-  <data name="&gt;&gt;Label11.Parent" xml:space="preserve">
+  <data name="&gt;&gt;LabelRecentPost.Parent" xml:space="preserve">
     <value>$this</value>
   </data>
-  <data name="&gt;&gt;Label11.ZOrder" xml:space="preserve">
+  <data name="&gt;&gt;LabelRecentPost.ZOrder" xml:space="preserve">
     <value>7</value>
   </data>
   <data name="RecentPostBrowser.Location" type="System.Drawing.Point, System.Drawing">
     <value>$this</value>
   </data>
   <data name="&gt;&gt;LabelIsVerified.ZOrder" xml:space="preserve">
-    <value>0</value>
+    <value>1</value>
   </data>
   <data name="Label13.Anchor" type="System.Windows.Forms.AnchorStyles, System.Windows.Forms">
     <value>Top, Right</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label13.ZOrder" xml:space="preserve">
-    <value>1</value>
+    <value>2</value>
   </data>
   <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>True</value>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
     <value>486, 444</value>
   </data>
-  <data name="$this.ImeMode" type="System.Windows.Forms.ImeMode, System.Windows.Forms">
-    <value>NoControl</value>
-  </data>
   <data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
     <value>CenterParent</value>
   </data>
index 361efdc..ec28d21 100644 (file)
@@ -103,9 +103,16 @@ Public Class ShowUserInfo
             _info.StatusesCount = Integer.Parse(xdoc.SelectSingleNode("/user/statuses_count").InnerText)
             _info.Verified = Boolean.Parse(xdoc.SelectSingleNode("/user/verified").InnerText)
 
-            _info.RecentPost = xdoc.SelectSingleNode("/user/status/text").InnerText
-            _info.PostCreatedAt = DateTime.ParseExact(xdoc.SelectSingleNode("/user/status/created_at").InnerText, "ddd MMM dd HH:mm:ss zzzz yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo, System.Globalization.DateTimeStyles.None)
-            _info.PostSource = xdoc.SelectSingleNode("/user/status/source").InnerText
+            ' 最終発言が取れないことがある
+            Try
+                _info.RecentPost = xdoc.SelectSingleNode("/user/status/text").InnerText
+                _info.PostCreatedAt = DateTime.ParseExact(xdoc.SelectSingleNode("/user/status/created_at").InnerText, "ddd MMM dd HH:mm:ss zzzz yyyy", System.Globalization.DateTimeFormatInfo.InvariantInfo, System.Globalization.DateTimeStyles.None)
+                _info.PostSource = xdoc.SelectSingleNode("/user/status/source").InnerText
+            Catch ex As Exception
+                _info.RecentPost = Nothing
+                _info.PostCreatedAt = Nothing
+                _info.PostSource = Nothing
+            End Try
         Catch ex As Exception
             Return False
         End Try
@@ -145,10 +152,12 @@ Public Class ShowUserInfo
                 MyOwner.TwitterInstance.CreateHtmlAnchor(_info.Description, atlist))
 
         RecentPostBrowser.Visible = False
-        recentPostTxt = MyOwner.createDetailHtml( _
+        If _info.RecentPost IsNot Nothing Then
+            recentPostTxt = MyOwner.createDetailHtml( _
                 MyOwner.TwitterInstance.CreateHtmlAnchor(_info.RecentPost, atlist) + _
-                " Posted at " + _info.PostCreatedAt.ToString + _
-                " via " + _info.PostSource)
+                 " Posted at " + _info.PostCreatedAt.ToString + _
+                 " via " + _info.PostSource)
+        End If
 
         LinkLabelFollowing.Text = _info.FriendsCount.ToString
         LinkLabelFollowers.Text = _info.FollowersCount.ToString
@@ -286,8 +295,12 @@ Public Class ShowUserInfo
     Private Sub ShowUserInfo_Shown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Shown
         DescriptionBrowser.DocumentText = descriptionTxt
         DescriptionBrowser.Visible = True
-        RecentPostBrowser.DocumentText = recentPostTxt
-        RecentPostBrowser.Visible = True
+        If _info.RecentPost IsNot Nothing Then
+            RecentPostBrowser.DocumentText = recentPostTxt
+            RecentPostBrowser.Visible = True
+        Else
+            LabelRecentPost.Text = My.Resources.ShowUserInfo2
+        End If
     End Sub
 
     Private Sub WebBrowser_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles DescriptionBrowser.Navigating, RecentPostBrowser.Navigating