* Alt+Shift+R,Ctrl+Qが効かない場合があったバグを修正
* Replyタブの初期設定での更新間隔を180秒に。バージョンアップの方は手動で調整してください。
* ユーザー情報ダイアログで自己紹介の部分をhtml化して表示するようにした。サムネイルと右クリックメニュー以外は、@IDやハッシュタグのリンク化など、詳細表示とほぼ同等の機能があります。
+ * ユーザー情報ダイアログでクリックしてジャンプできる場所はツールチップでジャンプ先URLを表示するようにした
==== Ver 0.8.9.2(2010/05/09)
* 言及先の抽出ができていなかったバグを修正
* ユーザー情報ダイアログで、アイコンの元画像サイズを考慮していなかったのを修正
resources.ApplyResources(Me.LabelScreenName, "LabelScreenName")
Me.LabelScreenName.Name = "LabelScreenName"
'
+ 'ToolTip1
+ '
+ Me.ToolTip1.ShowAlways = True
+ '
'DescriptionBrowser
'
Me.DescriptionBrowser.AllowWebBrowserDrop = False
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>425, 524</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>
Imports System.Xml
Imports System.Web
+Imports System.Text.RegularExpressions
Public Class ShowUserInfo
Private _info As UserInfo
Private icondata As Image = Nothing
Private atlist As New Generic.List(Of String)
- Dim dTxt As String
+ Private dTxt As String
+ Private ToolTipWeb As String
Private Const Mainpath As String = "http://twitter.com/"
Private Const Followingpath As String = "/following"
Me.Close()
Return
Else
+ Dim webtext As String
'アイコンロード
BackgroundWorkerImageLoader.RunWorkerAsync()
LabelName.Text = _info.Name
LabelLocation.Text = _info.Location
+
+
+ webtext = TweenMain.TwitterInstance.PreProcessUrl("<a href=""" + _info.Url + """>Dummy</a>")
+ webtext = TweenMain.TwitterInstance.ShortUrlResolve(webtext)
+ ToolTip1.SetToolTip(LinkLabelWeb, _
+ Regex.Match(webtext, "<a href=""(?<url>.*?)""").Groups.Item("url").Value)
LinkLabelWeb.Text = _info.Url
DescriptionBrowser.Visible = False
' End Try
' End Function
- Private Function PreProcessUrl(ByVal orgData As String) As String
+ Public Function PreProcessUrl(ByVal orgData As String) As String
Dim posl1 As Integer
Dim posl2 As Integer = 0
Dim IDNConveter As IdnMapping = New IdnMapping()