'------------------------------------------------------------------------------
' <auto-generated>
' このコードはツールによって生成されました。
-' ランタイム バージョン:2.0.50727.3603
+' ランタイム バージョン:4.0.30319.1
'
' このファイルへの変更は、以下の状況下で不正な動作の原因になったり、
' コードが再生成されるときに損失したりします。
'このクラスは 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()> _
'''<summary>
''' 更新履歴
'''
- '''==== Ver 0.8.9.3(2010/05/**)
- ''' * Alt+Shift+R,Ctrl+Qが効かない場合があったバグを修正
- ''' * Replyタブの初期設定での更新間隔を180秒に。バージョンアップの方は手動で調整してください。
- ''' * ユーザー情報ダイアログで自己紹介の部分をhtml化して表示するようにした。サムネイルと右クリックメニュー以外は、@IDやハッシュタグのリンク化など、詳細表示とほぼ同等の機能があります。
- ''' * ユーザー情報ダイアログでクリックしてジャンプできる場所はツールチップでジャンプ先URLを表示するようにした
- ''' * ユーザー情報ダイアログで最新の発言を表示するようにした
- ''' * ユーザー情報ダイアログの発言、自己紹介の各表示エリアで右クリックからコピー・すべて選択ができるようにした
- ''' * ユーザー情報ダイアログでフォロー状況の取得に失敗した際のエラー処理が抜けていたのを修正
- ''' * 画像サムネイルのSplitterDistanceが復元されないことがあるバグ修正
- ''' * 投稿時に投稿完了を待たないように変更。投稿失敗はメッセージで通知し、リトライ・キャン [残りの文字列は切り詰められました]"; に類似しているローカライズされた文字列を検索します。
+ '''==== Ver 0.8.9.4(2010/05/**)
+ ''' * 初期設定でのMentions取得数を40件へ。バージョンアップの方は手動で調整してください。
+ ''' * 画像プレビューをフォト蔵に対応
+ ''' * 起動時のFollowersリスト取得処理に失敗した場合、初期読み込み処理の最終段階で再試行するようにした
+ ''' * Twitterが相変わらずおかしいので、一時期無効にしていた公式RTがFav済みで流れてくる件の対策を復活
+ ''' * 詳細表示の名前表示部分を右クリックすることで、発言者のユーザー情報確認、フォロー・フォロー解除が行えるようにした
+ ''' * 詳細発言表示での右クリックメニューからユーザー情報の確認ができるようにした
+ ''' * 画面が白くなる問題に対処
+ ''' * 未読カウントがずれる問題に対処
+ ''' * 右クリックメニュー、操作メニューにプロフィール表示を追加。ショートカットキーはAlt+P。
+ ''' * カラムにソート方向を常時表示するようにした
+ ''' * Altキー2回押しでフォーカスがSplitContainerに移る不具合修正
+ ''' * 自身のバージョン取得方法変更
+ ''' * 自身のファイル [残りの文字列は切り詰められました]"; に類似しているローカライズされた文字列を検索します。
'''</summary>
Friend ReadOnly Property ChangeLog() As String
Get
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
<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
* Altキー2回押しでフォーカスがSplitContainerに移る不具合修正
* 自身のバージョン取得方法変更
* 自身のファイルバージョンが取れなかった場合は、メッセージ表示
+ * ユーザー情報表示の際に、最新発言に関しての情報が抜け落ちることがあるのでそのような場合でもとりあえず表示できるようにした
==== Ver 0.8.9.3(2010/05/15)
* Alt+Shift+R,Ctrl+Qが効かない場合があったバグを修正
* Replyタブの初期設定での更新間隔を180秒に。バージョンアップの方は手動で調整してください。
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()
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
'
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)
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
<data name=">>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=">>Label11.Name" xml:space="preserve">
- <value>Label11</value>
+ <data name=">>LabelRecentPost.Name" xml:space="preserve">
+ <value>LabelRecentPost</value>
</data>
- <data name=">>Label11.Type" xml:space="preserve">
+ <data name=">>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=">>Label11.Parent" xml:space="preserve">
+ <data name=">>LabelRecentPost.Parent" xml:space="preserve">
<value>$this</value>
</data>
- <data name=">>Label11.ZOrder" xml:space="preserve">
+ <data name=">>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=">>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=">>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>
_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
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
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