Changeset 22690

Timestamp:

11/04/08 19:44:37 (5 years ago)

Author:

takeshik

Message:

文字列切り出しミスの修正

Files:

• lang/vb2005/Tween/Tween/Tween.vb (modified) (1 diff)

lang/vb2005/Tween/Tween/Tween.vb

@@ -6867 +6867 @@
             Dim name As String = MyList.SelectedItems(0).SubItems(6).Text
             name = IO.Path.GetFileNameWithoutExtension(name.Substring(name.LastIndexOf("/"c)))
-            name = name.Substring(0, name.Length - 8) ' "_normal".Length + 1
+            name = name.Substring(0, name.Length - 7) ' "_normal".Length
             Me.IconNameToolStripMenuItem.Enabled = True
             Me.SaveIconPictureToolStripMenuItem.Enabled = True