OSDN Git Service

ユーザー情報表示ダイアログひとまず完成、リソース若干軽量化
authorsyo68k <syo68k@users.sourceforge.jp>
Thu, 6 May 2010 16:27:04 +0000 (16:27 +0000)
committerKimura Youichi <kim.upsilon@bucyou.net>
Sat, 18 Feb 2012 14:12:03 +0000 (23:12 +0900)
git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@255 e39ad16e-3079-482e-bb30-4b4d378143b6

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

index 536a6df..245e0c8 100644 (file)
@@ -1,7 +1,7 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
 '     このコードはツールによって生成されました。
-'     ランタイム バージョン:2.0.50727.3603
+'     ランタイム バージョン:4.0.30319.1
 '
 '     このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
 '     コードが再生成されるときに損失したりします。
@@ -15,8 +15,8 @@ Option Explicit On
 Namespace My
     
     'メモ: このファイルは自動生成されました。直接変更しないでください。変更したり、
-    ' ビルド エラーが発生した場合は、プロジェクト デザイナ へ移動し (プロジェクト
-    ' プロパティに移動するか、またはソリューション エクスプローラのマイ プロジェクト
+    ' ビルド エラーが発生した場合は、プロジェクト デザイナ へ移動し (プロジェクト
+    ' ã\83\97ã\83­ã\83\91ã\83\86ã\82£ã\81«ç§»å\8b\95ã\81\99ã\82\8bã\81\8bã\80\81ã\81¾ã\81\9fã\81¯ã\82½ã\83ªã\83¥ã\83¼ã\82·ã\83§ã\83³ ã\82¨ã\82¯ã\82¹ã\83\97ã\83­ã\83¼ã\83©ã\83¼ã\81®ã\83\9eã\82¤ ã\83\97ã\83­ã\82¸ã\82§ã\82¯ã\83\88
     ' ノード上でダブルクリック)、アプリケーション タブ上で変更を行います。
     '
     Partial Friend Class MyApplication
index 84e541c..ce7980e 100644 (file)
@@ -1,7 +1,7 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
 '     このコードはツールによって生成されました。
-'     ランタイム バージョン:2.0.50727.4927
+'     ランタイム バージョン: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()>  _
@@ -61,42 +61,6 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  名前 に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property AddCustomTabsText1() As String
-            Get
-                Return ResourceManager.GetString("AddCustomTabsText1", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  投稿 に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property AddCustomTabsText2() As String
-            Get
-                Return ResourceManager.GetString("AddCustomTabsText2", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  日時 に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property AddCustomTabsText3() As String
-            Get
-                Return ResourceManager.GetString("AddCustomTabsText3", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  ユーザ名 に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property AddCustomTabsText4() As String
-            Get
-                Return ResourceManager.GetString("AddCustomTabsText4", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
         '''  (新規タブ) に類似しているローカライズされた文字列を検索します。
         '''</summary>
         Friend ReadOnly Property AddNewTabText1() As String
@@ -278,42 +242,6 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  選択された発言をBlack Favoritesに追加します。よろしいですか? に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property BlackFavAddToolStripMenuItem_ClickText1() As String
-            Get
-                Return ResourceManager.GetString("BlackFavAddToolStripMenuItem_ClickText1", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  BlackFav確認 に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property BlackFavAddToolStripMenuItem_ClickText2() As String
-            Get
-                Return ResourceManager.GetString("BlackFavAddToolStripMenuItem_ClickText2", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  BlackFav追加中... に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property BlackFavAddToolStripMenuItem_ClickText3() As String
-            Get
-                Return ResourceManager.GetString("BlackFavAddToolStripMenuItem_ClickText3", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  BlackFav追加なし に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property BlackFavAddToolStripMenuItem_ClickText4() As String
-            Get
-                Return ResourceManager.GetString("BlackFavAddToolStripMenuItem_ClickText4", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
         '''  実行形式ファイル(*.exe)|*.exe|すべてのファイル(*.*)|*.* に類似しているローカライズされた文字列を検索します。
         '''</summary>
         Friend ReadOnly Property Button3_ClickText1() As String
@@ -392,13 +320,17 @@ Namespace My.Resources
         ''' * 投稿重複、投稿規制をエラー扱いに
         ''' * タブメニューを開く際に例外が起こるバグ修正
         ''' * タイムライン解析で例外が起こるバグ修正
-        ''' * 初回起動時に認証せずに設定画面でOK押した場合の動作を変更
+        ''' * 初回起動時に認証せずに設定画面を閉じた場合に確認メッセージが2回出て正常に終了されないバグ修正
+        ''' * リスト選択画面からrefreshボタン削除
+        ''' * 画像プレビュー機能の有効無効設定を追加
+        ''' * バージョンアップ確認ダイアログのデフォルトボタン変更
+        ''' * 公式検索、ListsタブでFav追加・削除時に未読状態になる場合があったバグ修正
+        ''' * DMを右クリックあるいは操作メニューから削除できないことがあるバグ修正
+        ''' * カラムヘッダをクリックした際に、ソート方向を表示するようにした
         '''==== Ver 0.8.9.0(2010/05/03)
         ''' * Webモード廃止
         ''' * OAuth(xAuth)対応(API上限が350へ)。継続してBASIC認証も選択可能です。各APIの接続先は共通なので、API制限は共通となります。
-        ''' * Lists対応。タブ作成時にタブ種類でListsを選択
-        ''' * home_timeline,mentions,DirectMessage、公式検索、listsを遡れるように(Shift-F5,Shift-r)(DMはTwitterが仕様と違う動きをするため取得出来ません)
-        ''' * 画像プレビュー実装(imgur/twitpic/yfrog/tweetphoto /Mobypicture/携帯百景/はてなフォトライフ/photoshare/img.ly/brightkite/twit [残りの文字列は切り詰められました]&quot;; に類似しているローカライズされた文字列を検索します。
+        ''' * Lists対応。タブ作成時にタブ種類でList [残りの文字列は切り詰められました]&quot;; に類似しているローカライズされた文字列を検索します。
         '''</summary>
         Friend ReadOnly Property ChangeLog() As String
             Get
@@ -1179,6 +1111,15 @@ Namespace My.Resources
         End Property
         
         '''<summary>
+        '''  いいえ に類似しているローカライズされた文字列を検索します。
+        '''</summary>
+        Friend ReadOnly Property No() As String
+            Get
+                Return ResourceManager.GetString("No", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
         '''  140文字を越えています。URL短縮、フッタ除去、末尾カットを行って投稿しますか? に類似しているローカライズされた文字列を検索します。
         '''</summary>
         Friend ReadOnly Property PostLengthOverMessage1() As String
@@ -1653,6 +1594,15 @@ Namespace My.Resources
         End Property
         
         '''<summary>
+        '''  ユーザー情報解析失敗 に類似しているローカライズされた文字列を検索します。
+        '''</summary>
+        Friend ReadOnly Property ShowUserInfo1() As String
+            Get
+                Return ResourceManager.GetString("ShowUserInfo1", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
         '''  まだあなたのプロフィール情報を取得していません。投稿後に再度お試しください。 に類似しているローカライズされた文字列を検索します。
         '''</summary>
         Friend ReadOnly Property ShowYourProfileText1() As String
@@ -2065,65 +2015,11 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  現在Webモードです。 に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property WebModeWarning1() As String
-            Get
-                Return ResourceManager.GetString("WebModeWarning1", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  * Webモードの使用はTwitterの利用規約に違反する恐れがあります。 に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property WebModeWarning2() As String
-            Get
-                Return ResourceManager.GetString("WebModeWarning2", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  * APIモードではタイムライン取得に回数制限があります。 に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property WebModeWarning3() As String
-            Get
-                Return ResourceManager.GetString("WebModeWarning3", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  APIモードに切り替える場合は「OK」を押してください。 に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property WebModeWarning4() As String
-            Get
-                Return ResourceManager.GetString("WebModeWarning4", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  警告 に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property WebModeWarning5() As String
-            Get
-                Return ResourceManager.GetString("WebModeWarning5", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  APIモードへ切り替えました。 に類似しているローカライズされた文字列を検索します。
-        '''</summary>
-        Friend ReadOnly Property WebModeWarning6() As String
-            Get
-                Return ResourceManager.GetString("WebModeWarning6", resourceCulture)
-            End Get
-        End Property
-        
-        '''<summary>
-        '''  APIモードへ戻す場合は、設定の「動作」タブにある「API使用」にチェックを入れて下さい。 に類似しているローカライズされた文字列を検索します。
+        '''  はい に類似しているローカライズされた文字列を検索します。
         '''</summary>
-        Friend ReadOnly Property WebModeWarning7() As String
+        Friend ReadOnly Property Yes() As String
             Get
-                Return ResourceManager.GetString("WebModeWarning7", resourceCulture)
+                Return ResourceManager.GetString("Yes", resourceCulture)
             End Get
         End Property
     End Module
index 80f294c..7944942 100644 (file)
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
-  <data name="AddCustomTabsText1" xml:space="preserve">
-    <value>名前</value>
-  </data>
-  <data name="AddCustomTabsText2" xml:space="preserve">
-    <value>投稿</value>
-  </data>
-  <data name="AddCustomTabsText3" xml:space="preserve">
-    <value>日時</value>
-  </data>
-  <data name="AddCustomTabsText4" xml:space="preserve">
-    <value>ユーザ名</value>
-  </data>
   <data name="AddNewTabText1" xml:space="preserve">
     <value>(新規タブ)</value>
   </data>
   <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="UpdateFollowersMenuItem1_ClickText3" xml:space="preserve">
     <value>Followers取得完了</value>
   </data>
-  <data name="BlackFavAddToolStripMenuItem_ClickText1" xml:space="preserve">
-    <value>選択された発言をBlack Favoritesに追加します。よろしいですか?</value>
-  </data>
-  <data name="BlackFavAddToolStripMenuItem_ClickText2" xml:space="preserve">
-    <value>BlackFav確認</value>
-  </data>
-  <data name="BlackFavAddToolStripMenuItem_ClickText3" xml:space="preserve">
-    <value>BlackFav追加中...</value>
-  </data>
-  <data name="BlackFavAddToolStripMenuItem_ClickText4" xml:space="preserve">
-    <value>BlackFav追加なし</value>
-  </data>
   <data name="GetTimelineWorker_RunWorkerCompletedText15_black" xml:space="preserve">
     <value>BlackFav追加(</value>
   </data>
   <data name="PostLengthOverMessage2" xml:space="preserve">
     <value>文字数制限オーバー</value>
   </data>
-  <data name="WebModeWarning1" xml:space="preserve">
-    <value>現在Webモードです。</value>
-  </data>
-  <data name="WebModeWarning2" xml:space="preserve">
-    <value>* Webモードの使用はTwitterの利用規約に違反する恐れがあります。</value>
-  </data>
-  <data name="WebModeWarning3" xml:space="preserve">
-    <value>* APIモードではタイムライン取得に回数制限があります。</value>
-  </data>
-  <data name="WebModeWarning4" xml:space="preserve">
-    <value>APIモードに切り替える場合は「OK」を押してください。</value>
-  </data>
-  <data name="WebModeWarning5" xml:space="preserve">
-    <value>警告</value>
-  </data>
-  <data name="WebModeWarning6" xml:space="preserve">
-    <value>APIモードへ切り替えました。</value>
-  </data>
-  <data name="WebModeWarning7" xml:space="preserve">
-    <value>APIモードへ戻す場合は、設定の「動作」タブにある「API使用」にチェックを入れて下さい。</value>
-  </data>
   <data name="RetweetQuestion1" xml:space="preserve">
     <value>Retweetしてもよろしいですか?</value>
   </data>
   <data name="Setting_FormClosing1" xml:space="preserve">
     <value>ユーザー名とパスワードを入力して「認証する」ボタンを押してください。認証せずに終了してもよろしいですか?</value>
   </data>
+  <data name="No" xml:space="preserve">
+    <value>いいえ</value>
+  </data>
+  <data name="ShowUserInfo1" xml:space="preserve">
+    <value>ユーザー情報解析失敗</value>
+  </data>
+  <data name="Yes" xml:space="preserve">
+    <value>はい</value>
+  </data>
 </root>
\ No newline at end of file
index 6894ebf..b8c79a4 100644 (file)
@@ -1,7 +1,7 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
 '     このコードはツールによって生成されました。
-'     ランタイム バージョン:2.0.50727.3603
+'     ランタイム バージョン:4.0.30319.1
 '
 '     このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
 '     コードが再生成されるときに損失したりします。
@@ -15,12 +15,12 @@ Option Explicit On
 Namespace My
     
     <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "8.0.0.0"),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"),  _
      Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
         
-        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings),MySettings)
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
         
 #Region "My.Settings 自動保存機能"
 #If _MyType = "WindowsForms" Then
index 40b2ed5..dd100c7 100644 (file)
@@ -11,6 +11,7 @@
  * 公式検索、ListsタブでFav追加・削除時に未読状態になる場合があったバグ修正
  * DMを右クリックあるいは操作メニューから削除できないことがあるバグ修正
  * カラムヘッダをクリックした際に、ソート方向を表示するようにした
+ * ユーザー情報表示ダイアログを追加。プロフィールなどが見れます。フォロー状況の表示、フォロー/フォロー解除もダイアログからできます。APIを2消費します。
 ==== Ver 0.8.9.0(2010/05/03)
  * Webモード廃止
  * OAuth(xAuth)対応(API上限が350へ)。継続してBASIC認証も選択可能です。各APIの接続先は共通なので、API制限は共通となります。
index 3a97a93..164c48c 100644 (file)
@@ -46,6 +46,8 @@ Partial Class ShowUserInfo
         Me.ButtonUnFollow = New System.Windows.Forms.Button()
         Me.Label10 = New System.Windows.Forms.Label()
         Me.LabelIsProtected = New System.Windows.Forms.Label()
+        Me.LabelIsFollowing = New System.Windows.Forms.Label()
+        Me.LabelIsFollowed = New System.Windows.Forms.Label()
         Me.SuspendLayout()
         '
         'ButtonClose
@@ -176,10 +178,22 @@ Partial Class ShowUserInfo
         resources.ApplyResources(Me.LabelIsProtected, "LabelIsProtected")
         Me.LabelIsProtected.Name = "LabelIsProtected"
         '
+        'LabelIsFollowing
+        '
+        resources.ApplyResources(Me.LabelIsFollowing, "LabelIsFollowing")
+        Me.LabelIsFollowing.Name = "LabelIsFollowing"
+        '
+        'LabelIsFollowed
+        '
+        resources.ApplyResources(Me.LabelIsFollowed, "LabelIsFollowed")
+        Me.LabelIsFollowed.Name = "LabelIsFollowed"
+        '
         'ShowUserInfo
         '
         resources.ApplyResources(Me, "$this")
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.LabelIsFollowed)
+        Me.Controls.Add(Me.LabelIsFollowing)
         Me.Controls.Add(Me.LabelIsProtected)
         Me.Controls.Add(Me.Label10)
         Me.Controls.Add(Me.ButtonUnFollow)
@@ -236,4 +250,6 @@ Partial Class ShowUserInfo
     Friend WithEvents ButtonUnFollow As System.Windows.Forms.Button
     Friend WithEvents Label10 As System.Windows.Forms.Label
     Friend WithEvents LabelIsProtected As System.Windows.Forms.Label
+    Friend WithEvents LabelIsFollowing As System.Windows.Forms.Label
+    Friend WithEvents LabelIsFollowed As System.Windows.Forms.Label
 End Class
index 07ce7ec..b8d5690 100644 (file)
   </resheader>
   <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="ButtonClose.Location" type="System.Drawing.Point, System.Drawing">
-    <value>335, 399</value>
+    <value>336, 420</value>
   </data>
   <data name="ButtonClose.Size" type="System.Drawing.Size, System.Drawing">
     <value>75, 23</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;ButtonClose.ZOrder" xml:space="preserve">
-    <value>22</value>
+    <value>24</value>
   </data>
   <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label1.ZOrder" xml:space="preserve">
-    <value>21</value>
+    <value>23</value>
   </data>
   <data name="Label2.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label2.ZOrder" xml:space="preserve">
-    <value>20</value>
+    <value>22</value>
   </data>
   <data name="Label3.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label3.ZOrder" xml:space="preserve">
-    <value>19</value>
+    <value>21</value>
   </data>
   <data name="Label4.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label4.ZOrder" xml:space="preserve">
-    <value>18</value>
+    <value>20</value>
   </data>
   <data name="LinkLabelWeb.Location" type="System.Drawing.Point, System.Drawing">
     <value>71, 81</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;LinkLabelWeb.ZOrder" xml:space="preserve">
-    <value>17</value>
+    <value>19</value>
   </data>
   <data name="LabelLocation.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;LabelLocation.ZOrder" xml:space="preserve">
-    <value>16</value>
+    <value>18</value>
   </data>
   <data name="LabelName.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;LabelName.ZOrder" xml:space="preserve">
-    <value>15</value>
+    <value>17</value>
   </data>
   <data name="LabelDescription.Location" type="System.Drawing.Point, System.Drawing">
     <value>71, 134</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;LabelDescription.ZOrder" xml:space="preserve">
-    <value>14</value>
+    <value>16</value>
   </data>
   <data name="Label5.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
-    <value>13</value>
+    <value>15</value>
   </data>
   <data name="Label6.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label6.ZOrder" xml:space="preserve">
-    <value>12</value>
+    <value>14</value>
   </data>
   <data name="LinkLabelFollowing.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;LinkLabelFollowing.ZOrder" xml:space="preserve">
-    <value>11</value>
+    <value>13</value>
   </data>
   <data name="LinkLabelFollowers.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;LinkLabelFollowers.ZOrder" xml:space="preserve">
-    <value>10</value>
+    <value>12</value>
   </data>
   <data name="Label7.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label7.ZOrder" xml:space="preserve">
-    <value>9</value>
+    <value>11</value>
   </data>
   <data name="LabelCreatedAt.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;LabelCreatedAt.ZOrder" xml:space="preserve">
-    <value>8</value>
+    <value>10</value>
   </data>
   <data name="Label8.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label8.ZOrder" xml:space="preserve">
-    <value>7</value>
+    <value>9</value>
   </data>
   <data name="LinkLabelTweet.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;LinkLabelTweet.ZOrder" xml:space="preserve">
-    <value>6</value>
+    <value>8</value>
   </data>
   <data name="Label9.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label9.ZOrder" xml:space="preserve">
-    <value>5</value>
+    <value>7</value>
   </data>
   <data name="LinkLabelFav.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;LinkLabelFav.ZOrder" xml:space="preserve">
-    <value>4</value>
+    <value>6</value>
   </data>
   <data name="ButtonFollow.Location" type="System.Drawing.Point, System.Drawing">
-    <value>16, 389</value>
+    <value>16, 420</value>
   </data>
   <data name="ButtonFollow.Size" type="System.Drawing.Size, System.Drawing">
     <value>75, 23</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;ButtonFollow.ZOrder" xml:space="preserve">
-    <value>3</value>
+    <value>5</value>
   </data>
   <data name="ButtonUnFollow.Location" type="System.Drawing.Point, System.Drawing">
-    <value>118, 389</value>
+    <value>116, 420</value>
   </data>
   <data name="ButtonUnFollow.Size" type="System.Drawing.Size, System.Drawing">
     <value>75, 23</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;ButtonUnFollow.ZOrder" xml:space="preserve">
-    <value>2</value>
+    <value>4</value>
   </data>
   <data name="Label10.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;Label10.ZOrder" xml:space="preserve">
-    <value>1</value>
+    <value>3</value>
   </data>
   <data name="LabelIsProtected.AutoSize" type="System.Boolean, mscorlib">
     <value>True</value>
     <value>$this</value>
   </data>
   <data name="&gt;&gt;LabelIsProtected.ZOrder" xml:space="preserve">
+    <value>2</value>
+  </data>
+  <data name="LabelIsFollowing.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="LabelIsFollowing.Location" type="System.Drawing.Point, System.Drawing">
+    <value>14, 385</value>
+  </data>
+  <data name="LabelIsFollowing.Size" type="System.Drawing.Size, System.Drawing">
+    <value>126, 12</value>
+  </data>
+  <data name="LabelIsFollowing.TabIndex" type="System.Int32, mscorlib">
+    <value>24</value>
+  </data>
+  <data name="LabelIsFollowing.Text" xml:space="preserve">
+    <value>この人をフォローしています</value>
+  </data>
+  <data name="&gt;&gt;LabelIsFollowing.Name" xml:space="preserve">
+    <value>LabelIsFollowing</value>
+  </data>
+  <data name="&gt;&gt;LabelIsFollowing.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;LabelIsFollowing.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;LabelIsFollowing.ZOrder" xml:space="preserve">
+    <value>1</value>
+  </data>
+  <data name="LabelIsFollowed.AutoSize" type="System.Boolean, mscorlib">
+    <value>True</value>
+  </data>
+  <data name="LabelIsFollowed.Location" type="System.Drawing.Point, System.Drawing">
+    <value>207, 385</value>
+  </data>
+  <data name="LabelIsFollowed.Size" type="System.Drawing.Size, System.Drawing">
+    <value>145, 12</value>
+  </data>
+  <data name="LabelIsFollowed.TabIndex" type="System.Int32, mscorlib">
+    <value>25</value>
+  </data>
+  <data name="LabelIsFollowed.Text" xml:space="preserve">
+    <value>この人からフォローされています</value>
+  </data>
+  <data name="&gt;&gt;LabelIsFollowed.Name" xml:space="preserve">
+    <value>LabelIsFollowed</value>
+  </data>
+  <data name="&gt;&gt;LabelIsFollowed.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;LabelIsFollowed.Parent" xml:space="preserve">
+    <value>$this</value>
+  </data>
+  <data name="&gt;&gt;LabelIsFollowed.ZOrder" xml:space="preserve">
     <value>0</value>
   </data>
   <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
     <value>6, 12</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>422, 434</value>
+    <value>423, 455</value>
   </data>
   <assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
   <data name="$this.StartPosition" type="System.Windows.Forms.FormStartPosition, System.Windows.Forms">
index ef2e363..a128ea3 100644 (file)
@@ -51,7 +51,7 @@ Public Class ShowUserInfo
 
     Private Sub ShowUserInfo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         If Not AnalizeUserInfo(userInfoXml) Then
-            MessageBox.Show("ユーザー情報解析失敗")
+            MessageBox.Show(My.Resources.ShowUserInfo1)
             Me.Close()
             Return
         Else
@@ -68,7 +68,27 @@ Public Class ShowUserInfo
             LinkLabelTweet.Text = _info.StatusesCount.ToString
 
             LabelCreatedAt.Text = _info.CreatedAt.ToString
-            LabelIsProtected.Text = DirectCast(IIf(_info.Protect, "はい", "いいえ"), String)
+            LabelIsProtected.Text = DirectCast(IIf(_info.Protect, My.Resources.Yes, My.Resources.No), String)
+
+            Dim isFollowing As Boolean = False
+            Dim isFollowed As Boolean = False
+            Dim ret As String = TweenMain.TwitterInstance.GetFriendshipInfo(_info.ScreenName, isFollowing, isFollowed)
+            If ret = "" Then
+                If isFollowing Then
+                    LabelIsFollowing.Text = My.Resources.GetFriendshipInfo1
+                Else
+                    LabelIsFollowing.Text = My.Resources.GetFriendshipInfo2
+                End If
+                ButtonFollow.Enabled = Not isFollowed
+                If isFollowed Then
+                    LabelIsFollowed.Text = My.Resources.GetFriendshipInfo3
+                Else
+                    LabelIsFollowed.Text = My.Resources.GetFriendshipInfo4
+                End If
+                ButtonUnFollow.Enabled = Not isFollowed
+            Else
+                MessageBox.Show(ret)
+            End If
         End If
     End Sub
 
@@ -104,4 +124,21 @@ Public Class ShowUserInfo
         TweenMain.OpenUriAsync("http://twitter.com/" + _info.ScreenName + "/favorites")
     End Sub
 
+    Private Sub ButtonFollow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonFollow.Click
+        Dim ret As String = TweenMain.TwitterInstance.PostFollowCommand(_info.ScreenName)
+        If Not String.IsNullOrEmpty(ret) Then
+            MessageBox.Show(My.Resources.FRMessage2 + ret)
+        Else
+            MessageBox.Show(My.Resources.FRMessage3)
+        End If
+    End Sub
+
+    Private Sub ButtonUnFollow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUnFollow.Click
+        Dim ret As String = TweenMain.TwitterInstance.PostRemoveCommand(_info.ScreenName)
+        If Not String.IsNullOrEmpty(ret) Then
+            MessageBox.Show(My.Resources.FRMessage2 + ret)
+        Else
+            MessageBox.Show(My.Resources.FRMessage3)
+        End If
+    End Sub
 End Class
\ No newline at end of file