svnno****@sourc*****
svnno****@sourc*****
2011年 1月 20日 (木) 20:25:03 JST
Revision: 1388
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1388
Author: syo68k
Date: 2011-01-20 20:25:03 +0900 (Thu, 20 Jan 2011)
Log Message:
-----------
その他メニューに指定ユーザーのユーザータイムライン、ふぁぼられを開く機能を追加
Modified Paths:
--------------
trunk/Tween/Tween.Designer.vb
trunk/Tween/Tween.resx
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.Designer.vb
===================================================================
--- trunk/Tween/Tween.Designer.vb 2011-01-20 08:04:23 UTC (rev 1387)
+++ trunk/Tween/Tween.Designer.vb 2011-01-20 11:25:03 UTC (rev 1388)
@@ -28,7 +28,6 @@
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 @@
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 @@
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 @@
'
'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 @@
'
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 @@
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
Modified: trunk/Tween/Tween.resx
===================================================================
--- trunk/Tween/Tween.resx 2011-01-20 08:04:23 UTC (rev 1387)
+++ trunk/Tween/Tween.resx 2011-01-20 11:25:03 UTC (rev 1388)
@@ -382,7 +382,7 @@
<value>0, 0, 0, 0</value>
</data>
<data name="ListTab.Size" type="System.Drawing.Size, System.Drawing">
- <value>570, 248</value>
+ <value>570, 250</value>
</data>
<data name="ListTab.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -406,7 +406,7 @@
<value>0, 0</value>
</data>
<data name="TimelinePanel.Size" type="System.Drawing.Size, System.Drawing">
- <value>570, 248</value>
+ <value>570, 250</value>
</data>
<data name="TimelinePanel.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -436,7 +436,7 @@
<value>0, 0</value>
</data>
<data name="ImageSelectedPicture.Size" type="System.Drawing.Size, System.Drawing">
- <value>570, 220</value>
+ <value>570, 222</value>
</data>
<data name="ImageSelectedPicture.SizeMode" type="System.Windows.Forms.PictureBoxSizeMode, System.Windows.Forms">
<value>Zoom</value>
@@ -640,7 +640,7 @@
<value>Bottom</value>
</data>
<data name="ImagePathPanel.Location" type="System.Drawing.Point, System.Drawing">
- <value>0, 220</value>
+ <value>0, 222</value>
</data>
<data name="ImagePathPanel.Padding" type="System.Windows.Forms.Padding, System.Windows.Forms">
<value>3, 3, 3, 3</value>
@@ -670,7 +670,7 @@
<value>0, 0</value>
</data>
<data name="ImageSelectionPanel.Size" type="System.Drawing.Size, System.Drawing">
- <value>570, 248</value>
+ <value>570, 250</value>
</data>
<data name="ImageSelectionPanel.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -697,7 +697,7 @@
<value>0, 0</value>
</data>
<data name="ProfilePanel.Size" type="System.Drawing.Size, System.Drawing">
- <value>570, 248</value>
+ <value>570, 250</value>
</data>
<data name="ProfilePanel.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
@@ -811,7 +811,7 @@
<value>保存(&I)...</value>
</data>
<data name="ContextMenuUserPicture.Size" type="System.Drawing.Size, System.Drawing">
- <value>263, 236</value>
+ <value>263, 214</value>
</data>
<data name=">>ContextMenuUserPicture.Name" xml:space="preserve">
<value>ContextMenuUserPicture</value>
@@ -1045,7 +1045,7 @@
<value>59, 20</value>
</data>
<data name="PostBrowser.Size" type="System.Drawing.Size, System.Drawing">
- <value>508, 44</value>
+ <value>508, 42</value>
</data>
<data name="PostBrowser.TabIndex" type="System.Int32, mscorlib">
<value>6</value>
@@ -1150,7 +1150,7 @@
<value>2</value>
</data>
<data name="TableLayoutPanel1.Size" type="System.Drawing.Size, System.Drawing">
- <value>570, 67</value>
+ <value>570, 65</value>
</data>
<data name="TableLayoutPanel1.TabIndex" type="System.Int32, mscorlib">
<value>1</value>
@@ -1288,10 +1288,10 @@
<value>19</value>
</data>
<data name="SplitContainer2.Size" type="System.Drawing.Size, System.Drawing">
- <value>570, 94</value>
+ <value>570, 92</value>
</data>
<data name="SplitContainer2.SplitterDistance" type="System.Int32, mscorlib">
- <value>67</value>
+ <value>65</value>
</data>
<data name="SplitContainer2.SplitterWidth" type="System.Int32, mscorlib">
<value>2</value>
@@ -1333,7 +1333,7 @@
<value>0, 0</value>
</data>
<data name="PreviewPicture.Size" type="System.Drawing.Size, System.Drawing">
- <value>194, 96</value>
+ <value>194, 94</value>
</data>
<data name="PreviewPicture.SizeMode" type="System.Windows.Forms.PictureBoxSizeMode, System.Windows.Forms">
<value>Zoom</value>
@@ -1363,7 +1363,7 @@
<value>194, 0</value>
</data>
<data name="PreviewScrollBar.Size" type="System.Drawing.Size, System.Drawing">
- <value>17, 96</value>
+ <value>17, 94</value>
</data>
<data name="PreviewScrollBar.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
@@ -1393,7 +1393,7 @@
<value>1</value>
</data>
<data name="SplitContainer3.Size" type="System.Drawing.Size, System.Drawing">
- <value>570, 94</value>
+ <value>570, 92</value>
</data>
<data name="SplitContainer3.SplitterDistance" type="System.Int32, mscorlib">
<value>355</value>
@@ -1432,7 +1432,7 @@
<value>574, 352</value>
</data>
<data name="SplitContainer1.SplitterDistance" type="System.Int32, mscorlib">
- <value>252</value>
+ <value>254</value>
</data>
<data name="SplitContainer1.SplitterWidth" type="System.Int32, mscorlib">
<value>2</value>
@@ -2100,15 +2100,6 @@
<data name="OwnStatusMenuItem.Text" xml:space="preserve">
<value>自プロフィール表示</value>
</data>
- <data name="UserStatusToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
- <value>280, 22</value>
- </data>
- <data name="UserStatusToolStripMenuItem.Text" xml:space="preserve">
- <value>プロフィール表示</value>
- </data>
- <data name="ToolStripSeparator41.Size" type="System.Drawing.Size, System.Drawing">
- <value>277, 6</value>
- </data>
<data name="OpenOwnHomeMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>280, 22</value>
</data>
@@ -2121,6 +2112,27 @@
<data name="OpenOwnFavedMenuItem.Text" xml:space="preserve">
<value>自身のふぁぼられを開く</value>
</data>
+ <data name="ToolStripSeparator41.Size" type="System.Drawing.Size, System.Drawing">
+ <value>277, 6</value>
+ </data>
+ <data name="UserStatusToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+ <value>280, 22</value>
+ </data>
+ <data name="UserStatusToolStripMenuItem.Text" xml:space="preserve">
+ <value>プロフィール表示</value>
+ </data>
+ <data name="UserTimelineToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+ <value>280, 22</value>
+ </data>
+ <data name="UserTimelineToolStripMenuItem.Text" xml:space="preserve">
+ <value>ユーザーのタイムラインを開く</value>
+ </data>
+ <data name="UserFavorareToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
+ <value>280, 22</value>
+ </data>
+ <data name="UserFavorareToolStripMenuItem.Text" xml:space="preserve">
+ <value>ユーザーのふぁぼられを開く</value>
+ </data>
<data name="ToolStripSeparator34.Size" type="System.Drawing.Size, System.Drawing">
<value>277, 6</value>
</data>
@@ -2649,12 +2661,6 @@
<data name=">>StatusLabelUrl.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
- <data name=">>StatusLabel.Name" xml:space="preserve">
- <value>StatusLabel</value>
- </data>
- <data name=">>StatusLabel.Type" xml:space="preserve">
- <value>Tween.TweenCustomControl.ToolStripLabelHistory, Tween, Version=0.1.0.0, Culture=neutral, PublicKeyToken=null</value>
- </data>
<data name=">>ToolStripStatusLabel1.Name" xml:space="preserve">
<value>ToolStripStatusLabel1</value>
</data>
@@ -4053,6 +4059,24 @@
<data name=">>ToolTip1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolTip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
+ <data name=">>UserTimelineToolStripMenuItem.Name" xml:space="preserve">
+ <value>UserTimelineToolStripMenuItem</value>
+ </data>
+ <data name=">>UserTimelineToolStripMenuItem.Type" xml:space="preserve">
+ <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </data>
+ <data name=">>StatusLabel.Name" xml:space="preserve">
+ <value>StatusLabel</value>
+ </data>
+ <data name=">>StatusLabel.Type" xml:space="preserve">
+ <value>Tween.TweenCustomControl.ToolStripLabelHistory, Tween, Version=0.1.0.0, Culture=neutral, PublicKeyToken=null</value>
+ </data>
+ <data name=">>UserFavorareToolStripMenuItem.Name" xml:space="preserve">
+ <value>UserFavorareToolStripMenuItem</value>
+ </data>
+ <data name=">>UserFavorareToolStripMenuItem.Type" xml:space="preserve">
+ <value>System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+ </data>
<data name=">>$this.Name" xml:space="preserve">
<value>TweenMain</value>
</data>
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-01-20 08:04:23 UTC (rev 1387)
+++ trunk/Tween/Tween.vb 2011-01-20 11:25:03 UTC (rev 1388)
@@ -10031,4 +10031,37 @@
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