svnno****@sourc*****
svnno****@sourc*****
2010年 12月 11日 (土) 02:13:54 JST
Revision: 1197
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1197
Author: syo68k
Date: 2010-12-11 02:13:54 +0900 (Sat, 11 Dec 2010)
Log Message:
-----------
ContextMenuUserPictureのアイコンファイル名表示で拡張子も表示するように
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2010-12-10 09:15:55 UTC (rev 1196)
+++ trunk/Tween/Tween.vb 2010-12-10 17:13:54 UTC (rev 1197)
@@ -7552,9 +7552,9 @@
If name IsNot Nothing AndAlso name.Length > 0 Then
Dim idx As Integer = name.LastIndexOf("/"c)
If idx <> -1 Then
- name = IO.Path.GetFileNameWithoutExtension(name.Substring(idx))
- If name.EndsWith("_normal", StringComparison.OrdinalIgnoreCase) Then
- name = name.Substring(0, name.Length - 7) ' "_normal".Length
+ name = IO.Path.GetFileName(name.Substring(idx))
+ If name.Contains("_normal.") Then
+ name = name.Replace("_normal", "")
Me.IconNameToolStripMenuItem.Text = name
Me.IconNameToolStripMenuItem.Enabled = True
Else