Changeset 32743

Timestamp:

04/23/09 11:07:52 (4 years ago)

Author:

syo68k

Message:

詳細表示部分で文字列を選択していないときは関連のメニューを無効にするようにした

Location:

lang/vb2005/Tween/trunk/Tween

Files:

• Resources/ChangeLog.txt (modified) (1 diff)
• Tween.vb (modified) (1 diff)

lang/vb2005/Tween/trunk/Tween/Resources/ChangeLog.txt

@@ -17 +17 @@
 -起動時にFav厳密チェックの設定が反映されない問題を修正
 -ReTweetの書式を変更。振り分けルールを作成されている方は見直しをお願いします。
+-詳細表示部分で文字列を選択していないときは関連のメニューを無効にするようにした
 ***Ver 0.4.2.0(2009/4/9)
 -取得間隔最大値を600秒から6000秒へ変更

lang/vb2005/Tween/trunk/Tween/Tween.vb

@@ -5132 +5132 @@
             ToolStripMenuItem4.Enabled = False
         End If
+        ' 文字列選択されていないときは選択文字列関係の項目を非表示に
+        Dim _selText As String = PostBrowser_GetSelectionText()
+        If _selText Is Nothing Then
+            ToolStripMenuItem2.Enabled = False
+            ToolStripMenuItem3.Enabled = False
+        Else
+            ToolStripMenuItem2.Enabled = True
+            ToolStripMenuItem3.Enabled = True
+        End If
         e.Cancel = False
     End Sub
 
-    Private Sub CurrentTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CurrentTabToolStripMenuItem.Click
-        '発言詳細の選択文字列で現在のタブを検索
+    Private Function PostBrowser_GetSelectionText() As String
         Dim typ As Type = PostBrowser.ActiveXInstance.GetType()
         Dim _SelObj As Object = typ.InvokeMember("selection", BindingFlags.GetProperty, Nothing, PostBrowser.Document.DomDocument, Nothing)
         Dim _objRange As Object = _SelObj.GetType().InvokeMember("createRange", BindingFlags.InvokeMethod, Nothing, _SelObj, Nothing)
-        Dim _selText As String = DirectCast(_objRange.GetType().InvokeMember("text", BindingFlags.GetProperty, Nothing, _objRange, Nothing), String)
+        Return DirectCast(_objRange.GetType().InvokeMember("text", BindingFlags.GetProperty, Nothing, _objRange, Nothing), String)
+    End Function
+
+    Private Sub CurrentTabToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CurrentTabToolStripMenuItem.Click
+        '発言詳細の選択文字列で現在のタブを検索
+        Dim _selText As String = PostBrowser_GetSelectionText()
 
         If _selText IsNot Nothing Then