svnno****@sourc*****
svnno****@sourc*****
2011年 1月 5日 (水) 21:41:32 JST
Revision: 1320
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1320
Author: f_swallow
Date: 2011-01-05 21:41:32 +0900 (Wed, 05 Jan 2011)
Log Message:
-----------
StatusText_KeyDownの部分を書き直していなかったのを直した
Modified Paths:
--------------
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-01-05 12:36:30 UTC (rev 1319)
+++ trunk/Tween/Tween.vb 2011-01-05 12:41:32 UTC (rev 1320)
@@ -5874,7 +5874,7 @@
End Sub
Private Sub StatusText_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles StatusText.KeyDown
- Dim State As Integer = GetModifierState(e)
+ Dim State As Integer = GetModifierState(e.Control, e.Shift, e.Alt)
If State = ModifierState.NotFlags Then Exit Sub
If CommonKeyDown(e.KeyCode, ModifierState.StatusText, State) Then
e.Handled = True