svnno****@sourc*****
svnno****@sourc*****
2011年 1月 17日 (月) 22:27:52 JST
Revision: 1358
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1358
Author: f_swallow
Date: 2011-01-17 22:27:51 +0900 (Mon, 17 Jan 2011)
Log Message:
-----------
Shift+Space,Ctrl+Spaceが効かない場合に対処
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-01-17 09:36:23 UTC (rev 1357)
+++ trunk/Tween/Tween.vb 2011-01-17 13:27:51 UTC (rev 1358)
@@ -4940,16 +4940,18 @@
Continue For
End If
If c = "@" Then
+ Pressed = True
startstr = StatusText.Text.Substring(i + 1, endidx - i)
ShowSuplDialog(StatusText, AtIdSupl, startstr.Length + 1, startstr)
ElseIf c = "#" Then
+ Pressed = True
startstr = StatusText.Text.Substring(i + 1, endidx - i)
ShowSuplDialog(StatusText, HashSupl, startstr.Length + 1, startstr)
Else
- Return False
+ Exit For
End If
Next
- Return True
+ Return Pressed
End If
End If
End If