From 1e1f2d98f88d9169ac774b1d732dbcbd705232b1 Mon Sep 17 00:00:00 2001 From: syo68k Date: Thu, 20 Jan 2011 11:25:03 +0000 Subject: [PATCH] =?utf8?q?=E3=81=9D=E3=81=AE=E4=BB=96=E3=83=A1=E3=83=8B?= =?utf8?q?=E3=83=A5=E3=83=BC=E3=81=AB=E6=8C=87=E5=AE=9A=E3=83=A6=E3=83=BC?= =?utf8?q?=E3=82=B6=E3=83=BC=E3=81=AE=E3=83=A6=E3=83=BC=E3=82=B6=E3=83=BC?= =?utf8?q?=E3=82=BF=E3=82=A4=E3=83=A0=E3=83=A9=E3=82=A4=E3=83=B3=E3=80=81?= =?utf8?q?=E3=81=B5=E3=81=81=E3=81=BC=E3=82=89=E3=82=8C=E3=82=92=E9=96=8B?= =?utf8?q?=E3=81=8F=E6=A9=9F=E8=83=BD=E3=82=92=E8=BF=BD=E5=8A=A0?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1388 e39ad16e-3079-482e-bb30-4b4d378143b6 --- Tween/Tween.Designer.vb | 34 ++++++++++++++------ Tween/Tween.resx | 84 +++++++++++++++++++++++++++++++------------------ Tween/Tween.vb | 33 +++++++++++++++++++ 3 files changed, 111 insertions(+), 40 deletions(-) diff --git a/Tween/Tween.Designer.vb b/Tween/Tween.Designer.vb index 48c2f519..71670c84 100644 --- a/Tween/Tween.Designer.vb +++ b/Tween/Tween.Designer.vb @@ -28,7 +28,6 @@ Partial Class TweenMain Me.ToolStripContainer1 = New System.Windows.Forms.ToolStripContainer() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusLabelUrl = New System.Windows.Forms.ToolStripStatusLabel() - Me.StatusLabel = New Tween.TweenCustomControl.ToolStripLabelHistory() Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel() Me.HashStripSplitButton = New System.Windows.Forms.ToolStripSplitButton() Me.ContextMenuPostMode = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -295,6 +294,9 @@ Partial Class TweenMain Me.TimerRefreshIcon = New System.Windows.Forms.Timer(Me.components) Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components) + Me.UserTimelineToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.StatusLabel = New Tween.TweenCustomControl.ToolStripLabelHistory() + Me.UserFavorareToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripContainer1.BottomToolStripPanel.SuspendLayout() Me.ToolStripContainer1.ContentPanel.SuspendLayout() Me.ToolStripContainer1.TopToolStripPanel.SuspendLayout() @@ -364,14 +366,6 @@ Partial Class TweenMain Me.StatusLabelUrl.Name = "StatusLabelUrl" Me.StatusLabelUrl.Spring = True ' - 'StatusLabel - ' - Me.StatusLabel.BorderSides = System.Windows.Forms.ToolStripStatusLabelBorderSides.Right - Me.StatusLabel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text - Me.StatusLabel.DoubleClickEnabled = True - Me.StatusLabel.Name = "StatusLabel" - resources.ApplyResources(Me.StatusLabel, "StatusLabel") - ' 'ToolStripStatusLabel1 ' resources.ApplyResources(Me.ToolStripStatusLabel1, "ToolStripStatusLabel1") @@ -1341,7 +1335,7 @@ Partial Class TweenMain ' 'MenuItemCommand ' - Me.MenuItemCommand.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TinyUrlConvertToolStripMenuItem, Me.UpdateFollowersMenuItem1, Me.ToolStripSeparator1, Me.FollowCommandMenuItem, Me.RemoveCommandMenuItem, Me.FriendshipMenuItem, Me.ToolStripSeparator3, Me.OwnStatusMenuItem, Me.UserStatusToolStripMenuItem, Me.ToolStripSeparator41, Me.OpenOwnHomeMenuItem, Me.OpenOwnFavedMenuItem, Me.ToolStripSeparator34, Me.HashToggleToolStripMenuItem, Me.HashManageToolStripMenuItem, Me.RtCountMenuItem, Me.ListManageToolStripMenuItem}) + Me.MenuItemCommand.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TinyUrlConvertToolStripMenuItem, Me.UpdateFollowersMenuItem1, Me.ToolStripSeparator1, Me.FollowCommandMenuItem, Me.RemoveCommandMenuItem, Me.FriendshipMenuItem, Me.ToolStripSeparator3, Me.OwnStatusMenuItem, Me.OpenOwnHomeMenuItem, Me.OpenOwnFavedMenuItem, Me.ToolStripSeparator41, Me.UserStatusToolStripMenuItem, Me.UserTimelineToolStripMenuItem, Me.UserFavorareToolStripMenuItem, Me.ToolStripSeparator34, Me.HashToggleToolStripMenuItem, Me.HashManageToolStripMenuItem, Me.RtCountMenuItem, Me.ListManageToolStripMenuItem}) Me.MenuItemCommand.Name = "MenuItemCommand" resources.ApplyResources(Me.MenuItemCommand, "MenuItemCommand") ' @@ -1845,6 +1839,24 @@ Partial Class TweenMain ' Me.OpenFileDialog1.FileName = "OpenFileDialog1" ' + 'UserTimelineToolStripMenuItem + ' + Me.UserTimelineToolStripMenuItem.Name = "UserTimelineToolStripMenuItem" + resources.ApplyResources(Me.UserTimelineToolStripMenuItem, "UserTimelineToolStripMenuItem") + ' + 'StatusLabel + ' + Me.StatusLabel.BorderSides = System.Windows.Forms.ToolStripStatusLabelBorderSides.Right + Me.StatusLabel.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text + Me.StatusLabel.DoubleClickEnabled = True + Me.StatusLabel.Name = "StatusLabel" + resources.ApplyResources(Me.StatusLabel, "StatusLabel") + ' + 'UserFavorareToolStripMenuItem + ' + Me.UserFavorareToolStripMenuItem.Name = "UserFavorareToolStripMenuItem" + resources.ApplyResources(Me.UserFavorareToolStripMenuItem, "UserFavorareToolStripMenuItem") + ' 'TweenMain ' Me.AllowDrop = True @@ -2165,5 +2177,7 @@ Partial Class TweenMain Friend WithEvents UxnuMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ShowUserTimelineToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem Friend WithEvents ShowUserTimelineContextMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents UserTimelineToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents UserFavorareToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem End Class diff --git a/Tween/Tween.resx b/Tween/Tween.resx index 38402acd..8de3523e 100644 --- a/Tween/Tween.resx +++ b/Tween/Tween.resx @@ -382,7 +382,7 @@ 0, 0, 0, 0 - 570, 248 + 570, 250 0 @@ -406,7 +406,7 @@ 0, 0 - 570, 248 + 570, 250 0 @@ -436,7 +436,7 @@ 0, 0 - 570, 220 + 570, 222 Zoom @@ -640,7 +640,7 @@ Bottom - 0, 220 + 0, 222 3, 3, 3, 3 @@ -670,7 +670,7 @@ 0, 0 - 570, 248 + 570, 250 1 @@ -697,7 +697,7 @@ 0, 0 - 570, 248 + 570, 250 2 @@ -811,7 +811,7 @@ 保存(&I)... - 263, 236 + 263, 214 ContextMenuUserPicture @@ -1045,7 +1045,7 @@ 59, 20 - 508, 44 + 508, 42 6 @@ -1150,7 +1150,7 @@ 2 - 570, 67 + 570, 65 1 @@ -1288,10 +1288,10 @@ 19 - 570, 94 + 570, 92 - 67 + 65 2 @@ -1333,7 +1333,7 @@ 0, 0 - 194, 96 + 194, 94 Zoom @@ -1363,7 +1363,7 @@ 194, 0 - 17, 96 + 17, 94 0 @@ -1393,7 +1393,7 @@ 1 - 570, 94 + 570, 92 355 @@ -1432,7 +1432,7 @@ 574, 352 - 252 + 254 2 @@ -2100,15 +2100,6 @@ 自プロフィール表示 - - 280, 22 - - - プロフィール表示 - - - 277, 6 - 280, 22 @@ -2121,6 +2112,27 @@ 自身のふぁぼられを開く + + 277, 6 + + + 280, 22 + + + プロフィール表示 + + + 280, 22 + + + ユーザーのタイムラインを開く + + + 280, 22 + + + ユーザーのふぁぼられを開く + 277, 6 @@ -2649,12 +2661,6 @@ System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - StatusLabel - - - Tween.TweenCustomControl.ToolStripLabelHistory, Tween, Version=0.1.0.0, Culture=neutral, PublicKeyToken=null - ToolStripStatusLabel1 @@ -4053,6 +4059,24 @@ System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + UserTimelineToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + StatusLabel + + + Tween.TweenCustomControl.ToolStripLabelHistory, Tween, Version=0.1.0.0, Culture=neutral, PublicKeyToken=null + + + UserFavorareToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + TweenMain diff --git a/Tween/Tween.vb b/Tween/Tween.vb index 0e0787db..ce692887 100644 --- a/Tween/Tween.vb +++ b/Tween/Tween.vb @@ -10031,4 +10031,37 @@ RETRY: Return SettingDialog.FavEventUnread End Get End Property + + Private Function GetUserIdFromCurPostOrInput() As String + Dim id As String = "" + If _curPost IsNot Nothing Then + id = _curPost.Name + End If + Using inputName As New InputTabName() + inputName.FormTitle = "Show UserTimeline" + inputName.FormDescription = My.Resources.FRMessage1 + inputName.TabName = id + If inputName.ShowDialog() = Windows.Forms.DialogResult.OK AndAlso _ + Not String.IsNullOrEmpty(inputName.TabName.Trim()) Then + id = inputName.TabName.Trim + Else + id = "" + End If + End Using + Return id + End Function + + Private Sub UserTimelineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserTimelineToolStripMenuItem.Click + Dim id As String = GetUserIdFromCurPostOrInput() + If Not String.IsNullOrEmpty(id) Then + AddNewTabForUserTimeline(id) + End If + End Sub + + Private Sub UserFavorareToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserFavorareToolStripMenuItem.Click + Dim id As String = GetUserIdFromCurPostOrInput() + If Not String.IsNullOrEmpty(id) Then + OpenUriAsync(My.Resources.FavstarUrl + "users/" + id + "/recent") + End If + End Sub End Class -- 2.11.0