URLエンコードされたスラッシュを含むURLが開けない問題を修正

アクティブタブ変更処理でのSendKeysによる処理を変更

git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@57 e39ad16e-3079-482e-bb30-4b4d378143b6

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index 01e0db9..c10f290 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -2858,7 +2858,7 @@ Public Class TweenMain
     Private Sub PostBrowser_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles PostBrowser.Navigated
         If e.Url.AbsoluteUri <> "about:blank" Then
             DispSelectedPost()
-            OpenUriAsync(e.Url.AbsoluteUri)
+            OpenUriAsync(e.Url.OriginalString)
         End If
     End Sub
 
@@ -2876,7 +2876,7 @@ Public Class TweenMain
                 AddNewTabForSearch(hash)
                 Exit Sub
             Else
-                OpenUriAsync(e.Url.AbsoluteUri)
+                OpenUriAsync(e.Url.OriginalString)
             End If
         End If
     End Sub
@@ -4152,12 +4152,12 @@ RETRY:
             If e.KeyCode = Keys.S Then
                 e.Handled = True
                 e.SuppressKeyPress = True
-                SendKeys.Send("^{PGDN}")
+                GoNextTab(True)
             End If
             If e.KeyCode = Keys.A Then
                 e.Handled = True
                 e.SuppressKeyPress = True
-                SendKeys.Send("^{PGUP}")
+                GoNextTab(False)
             End If
             'If e.KeyCode = Keys.OemQuestion Then
             '    e.Handled = True
@@ -4182,8 +4182,8 @@ RETRY:
                 TimerColorize.Stop()
                 TimerColorize.Start()
             End If
-            If e.KeyCode = Keys.N Then SendKeys.Send("^{PGDN}")
-            If e.KeyCode = Keys.P Then SendKeys.Send("^{PGUP}")
+            If e.KeyCode = Keys.N Then GoNextTab(True)
+            If e.KeyCode = Keys.P Then GoNextTab(False)
             'If e.KeyCode = Keys.F Then
             '    e.Handled = True
             '    e.SuppressKeyPress = True
@@ -4286,6 +4286,18 @@ RETRY:
         End If
     End Sub
 
+    Private Sub GoNextTab(ByVal forward As Boolean)
+        Dim idx As Integer = ListTab.SelectedIndex
+        If forward Then
+            idx += 1
+            If idx > ListTab.TabPages.Count - 1 Then idx = 0
+        Else
+            idx -= 1
+            If idx < 0 Then idx = ListTab.TabPages.Count - 1
+        End If
+        ListTab.SelectedIndex = idx
+    End Sub
+
     Private Sub CopyStot()
         Dim clstr As String = ""
         Dim sb As New StringBuilder()