コメント |
@C:darkgreen(Me.KeyPreview = True) が必要です
@DIV
Public Declare Sub http://msdn.microsoft.com/ja-jp/library/cc364822.aspx(keybd_event) Lib "user32" ( _
ByVal bVk As Byte, _
ByVal bscan As Integer, _
ByVal dwflags As Integer, _
ByVal dwExtraInfo As IntPtr)
Public Const KEYEVENTF_KEYUP = &H2
Public Const VK_TAB = &H9
Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As http://msdn.microsoft.com/ja-jp/library/system.windows.forms.keypresseventargs.aspx(System.Windows.Forms.KeyPressEventArgs) ) Handles Me.KeyPress
If http://msdn.microsoft.com/ja-jp/library/system.windows.forms.keypresseventargs.keychar.aspx(e.KeyChar) = http://msdn.microsoft.com/ja-jp/library/microsoft.visualbasic.controlchars.cr.aspx(ControlChars.Cr) Then
Call keybd_event(VK_TAB, 0, 0, 0)
Call keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0)
End If
End Sub
@END
|