発言詳細のアイコンを右クリックした際に例外を起こすことがあるバグを修正

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

diff --git a/Tween/Resources/ChangeLog.txt b/Tween/Resources/ChangeLog.txt
index 409d73e..30fc550 100644 (file)
--- a/Tween/Resources/ChangeLog.txt
+++ b/Tween/Resources/ChangeLog.txt
@@ -36,6 +36,7 @@
  * 除外フィルタを使用している振り分けルールを移動・コピーすると例外を発生するバグを修正
  * 振り分けルール移動・コピー後に元タブに振り分けルールが存在しなくなった場合のボタン状態制御が行われていなかったバグを修正
  * 詳細表示にフォーカスがある場合でもCtrl+Shift+Pで画像投稿モードに切り替えできるようにした
+ * 発言詳細のアイコンを右クリックした際に例外を起こすことがあるバグを修正
 ==== Ver 0.9.4.0(2010/07/15)
  * 認証完了後、自分の発言が片思い表示になるバグ修正
  * ユーザー変更時にフォロワー情報を取得するよう変更

diff --git a/Tween/Tween.vb b/Tween/Tween.vb
index d5843ce..95e0ac2 100644 (file)
--- a/Tween/Tween.vb
+++ b/Tween/Tween.vb
@@ -5603,7 +5603,7 @@ RETRY:
             Select Case e.KeyCode
                 Case Keys.P
                     e.IsInputKey = True
-                    ImageSelectMenuItem_Click(Nothing, Nothing)
+                    ImageSelectMenuItem_Click(Nothing,Nothing)
                 Case Else
 
             End Select
@@ -6897,15 +6897,21 @@ RETRY:
         If _curList.SelectedIndices.Count > 0 AndAlso _curPost IsNot Nothing Then
             Dim name As String = _curPost.ImageUrl
             If name.Length > 0 Then
-                name = IO.Path.GetFileNameWithoutExtension(name.Substring(name.LastIndexOf("/"c)))
-                name = name.Substring(0, name.Length - 7) ' "_normal".Length
-                Me.IconNameToolStripMenuItem.Enabled = True
+                Dim idx As Integer = name.LastIndexOf("/"c)
+                If idx <> -1 Then
+                    name = IO.Path.GetFileNameWithoutExtension(name.Substring(idx))
+                    name = name.Substring(0, name.Length - 7) ' "_normal".Length
+                    Me.IconNameToolStripMenuItem.Text = name
+                    Me.IconNameToolStripMenuItem.Enabled = True
+                Else
+                    Me.IconNameToolStripMenuItem.Enabled = False
+                    Me.IconNameToolStripMenuItem.Text = My.Resources.ContextMenuStrip3_OpeningText1
+                End If
                 If Me.TIconDic.ContainsKey(_curPost.ImageUrl) AndAlso Me.TIconDic(_curPost.ImageUrl) IsNot Nothing Then
                     Me.SaveIconPictureToolStripMenuItem.Enabled = True
                 Else
                     Me.SaveIconPictureToolStripMenuItem.Enabled = False
                 End If
-                Me.IconNameToolStripMenuItem.Text = name
             Else
                 Me.IconNameToolStripMenuItem.Enabled = False
                 Me.SaveIconPictureToolStripMenuItem.Enabled = False