From b5a2417621bfdbd27277c7bc8f1aa53b8bdfef0d Mon Sep 17 00:00:00 2001 From: f_swallow Date: Thu, 16 Sep 2010 23:21:46 +0000 Subject: [PATCH] =?utf8?q?ListTab=E3=81=AEKeyDown=E3=82=A4=E3=83=99?= =?utf8?q?=E3=83=B3=E3=83=88=E3=82=92=E5=B0=91=E3=81=97=E6=9B=B8=E3=81=8D?= =?utf8?q?=E6=8F=9B=E3=81=88?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@885 e39ad16e-3079-482e-bb30-4b4d378143b6 --- Tween/Tween.vb | 209 +++++++++++++++++++++++++++++---------------------------- 1 file changed, 105 insertions(+), 104 deletions(-) diff --git a/Tween/Tween.vb b/Tween/Tween.vb index 4ba9ff30..21d1ff6c 100644 --- a/Tween/Tween.vb +++ b/Tween/Tween.vb @@ -4489,6 +4489,11 @@ RETRY: e.Handled = True e.SuppressKeyPress = True MenuItemSubSearch_Click(Nothing, Nothing) + ElseIf e.KeyCode = Keys.C Then + Dim clstr As String = "" + e.Handled = True + e.SuppressKeyPress = True + CopyStot() End If ' Webページを開く動作 @@ -4564,118 +4569,114 @@ RETRY: e.Handled = True e.SuppressKeyPress = True GoTopEnd(True) - End If - If e.KeyCode = Keys.L Then - e.Handled = True - e.SuppressKeyPress = True - GoTopEnd(False) - End If - If e.KeyCode = Keys.M Then - e.Handled = True - e.SuppressKeyPress = True - GoMiddle() - End If - If e.KeyCode = Keys.G Then - e.Handled = True - e.SuppressKeyPress = True - GoLast() - End If - If e.KeyCode = Keys.Z Then - e.Handled = True - e.SuppressKeyPress = True - MoveMiddle() - End If + ElseIf e.KeyCode = Keys.L Then + e.Handled = True + e.SuppressKeyPress = True + GoTopEnd(False) + ElseIf e.KeyCode = Keys.M Then + e.Handled = True + e.SuppressKeyPress = True + GoMiddle() + ElseIf e.KeyCode = Keys.G Then + e.Handled = True + e.SuppressKeyPress = True + GoLast() + ElseIf e.KeyCode = Keys.Z Then + e.Handled = True + e.SuppressKeyPress = True + MoveMiddle() + End If - ' お気に入り前後ジャンプ(SHIFT+N←/P→) - If e.KeyCode = Keys.N OrElse e.KeyCode = Keys.Right Then - e.Handled = True - e.SuppressKeyPress = True - GoFav(True) - End If - If e.KeyCode = Keys.P OrElse e.KeyCode = Keys.Left Then - e.Handled = True - e.SuppressKeyPress = True - GoFav(False) - End If - If e.KeyCode = Keys.R OrElse e.KeyCode = Keys.F5 Then - e.Handled = True - e.SuppressKeyPress = True - DoRefreshMore() - End If - If e.KeyCode = Keys.F3 Then - e.Handled = True - e.SuppressKeyPress = True - MenuItemSearchPrev_Click(Nothing, Nothing) - End If - If e.KeyCode = Keys.F6 Then - e.Handled = True - e.SuppressKeyPress = True - GetTimeline(WORKERTYPE.Reply, -1, 0, "") - End If - If e.KeyCode = Keys.F7 Then - e.Handled = True - e.SuppressKeyPress = True - GetTimeline(WORKERTYPE.DirectMessegeRcv, -1, 0, "") - End If + ' お気に入り前後ジャンプ(SHIFT+N←/P→) + If e.KeyCode = Keys.N OrElse e.KeyCode = Keys.Right Then + e.Handled = True + e.SuppressKeyPress = True + GoFav(True) + ElseIf e.KeyCode = Keys.P OrElse e.KeyCode = Keys.Left Then + e.Handled = True + e.SuppressKeyPress = True + GoFav(False) + ElseIf e.KeyCode = Keys.R OrElse e.KeyCode = Keys.F5 Then + e.Handled = True + e.SuppressKeyPress = True + DoRefreshMore() + ElseIf e.KeyCode = Keys.F3 Then + e.Handled = True + e.SuppressKeyPress = True + MenuItemSearchPrev_Click(Nothing, Nothing) + ElseIf e.KeyCode = Keys.F6 Then + e.Handled = True + e.SuppressKeyPress = True + GetTimeline(WORKERTYPE.Reply, -1, 0, "") + ElseIf e.KeyCode = Keys.F7 Then + e.Handled = True + e.SuppressKeyPress = True + GetTimeline(WORKERTYPE.DirectMessegeRcv, -1, 0, "") End If - If e.Control AndAlso Not e.Alt AndAlso e.Shift Then - ' CTRL+SHIFTキーが押されている場合 - If e.KeyCode = Keys.H Then doMoveToRTHome() - If e.KeyCode = Keys.T Then HashToggleMenuItem_Click(Nothing, Nothing) - If e.KeyCode = Keys.S Then FavoriteChange(False) - If e.KeyCode = Keys.B Then UnreadStripMenuItem_Click(Nothing, Nothing) - If e.KeyCode = Keys.G Then FavorareMenuItem_Click(Nothing, Nothing) - If e.KeyCode = Keys.P Then ImageSelectMenuItem_Click(Nothing, Nothing) - If e.KeyCode = Keys.O Then FavorareMenuItem_Click(Nothing, Nothing) - End If - If Not e.Control AndAlso e.Alt AndAlso e.Shift Then - ' ALT+SHIFTキーが押されている場合 - If e.KeyCode = Keys.R Then - e.Handled = True - e.SuppressKeyPress = True - doReTweetUnofficial() - End If - If e.KeyCode = Keys.Up Then - Thumbnail.ScrollThumbnail(False) - End If - If e.KeyCode = Keys.Down Then - Thumbnail.ScrollThumbnail(True) - End If - If e.KeyCode = Keys.Enter Then - If Not Me.SplitContainer3.Panel2Collapsed Then - Thumbnail.OpenPicture() - End If - e.Handled = True - e.SuppressKeyPress = True - End If End If + If e.Control AndAlso Not e.Alt AndAlso e.Shift Then + ' CTRL+SHIFTキーが押されている場合 + If e.KeyCode = Keys.H Then - If Not e.Alt Then - If e.KeyCode = Keys.J Then - e.Handled = True - e.SuppressKeyPress = True - SendKeys.Send("{DOWN}") - End If - If e.KeyCode = Keys.K Then - e.Handled = True - e.SuppressKeyPress = True - SendKeys.Send("{UP}") + doMoveToRTHome() + ElseIf e.KeyCode = Keys.T Then + HashToggleMenuItem_Click(Nothing, Nothing) + ElseIf e.KeyCode = Keys.S Then + e.Handled = True + e.SuppressKeyPress = True + FavoriteChange(False) + ElseIf e.KeyCode = Keys.B Then + e.Handled = True + e.SuppressKeyPress = True + UnreadStripMenuItem_Click(Nothing, Nothing) + ElseIf e.KeyCode = Keys.P Then + e.Handled = True + e.SuppressKeyPress = True + ImageSelectMenuItem_Click(Nothing, Nothing) + ElseIf e.KeyCode = Keys.O Then + e.Handled = True + e.SuppressKeyPress = True + FavorareMenuItem_Click(Nothing, Nothing) + ElseIf e.KeyCode = Keys.C Then + Dim clstr As String = "" + e.Handled = True + e.SuppressKeyPress = True + CopyIdUri() + End If + End If + If Not e.Control AndAlso e.Alt AndAlso e.Shift Then + ' ALT+SHIFTキーが押されている場合 + If e.KeyCode = Keys.R Then + e.Handled = True + e.SuppressKeyPress = True + doReTweetUnofficial() + ElseIf e.KeyCode = Keys.Up Then + Thumbnail.ScrollThumbnail(False) + ElseIf e.KeyCode = Keys.Down Then + Thumbnail.ScrollThumbnail(True) + End If + If e.KeyCode = Keys.Enter Then + If Not Me.SplitContainer3.Panel2Collapsed Then + Thumbnail.OpenPicture() End If + e.Handled = True + e.SuppressKeyPress = True End If + End If - If e.KeyCode = Keys.C Then - Dim clstr As String = "" - If e.Control AndAlso Not e.Alt AndAlso Not e.Shift Then - e.Handled = True - e.SuppressKeyPress = True - CopyStot() - End If - If e.Control AndAlso e.Shift AndAlso Not e.Alt Then - e.Handled = True - e.SuppressKeyPress = True - CopyIdUri() - End If + If Not e.Alt Then + If e.KeyCode = Keys.J Then + e.Handled = True + e.SuppressKeyPress = True + SendKeys.Send("{DOWN}") + End If + If e.KeyCode = Keys.K Then + e.Handled = True + e.SuppressKeyPress = True + SendKeys.Send("{UP}") End If + End If + End Sub Private Sub ScrollDownPostBrowser(ByVal forward As Boolean) -- 2.11.0