発言詳細ブラウザ部で、テキストを選択せずにCtrl-Cするとエラーメッセージが表示されるバグ修正

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

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index ace193c..53ebefc 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -5397,13 +5397,13 @@ RETRY:
                 Case Keys.C, Keys.Insert
                     e.IsInputKey = True
                     Dim _selText As String = WebBrowser_GetSelectionText(PostBrowser)
-                    Try
-                        Clipboard.SetDataObject(_selText, False, 5, 100)
-                    Catch ex As Exception
-                        MessageBox.Show(ex.Message)
-                    End Try
-                Case Else
-
+                    If Not String.IsNullOrEmpty(_selText) Then
+                        Try
+                            Clipboard.SetDataObject(_selText, False, 5, 100)
+                        Catch ex As Exception
+                            MessageBox.Show(ex.Message)
+                        End Try
+                    End If
             End Select
         End If