ソース掲示板




すべてから検索

キーワード   条件 表示 現行ログ 過去ログ トピックス 名前 本文

  メンテナンス 前画面に戻る

対象スレッド 件名: 昔ながらの EnterToTab
名前: lightbox
処理選択
パスワード

件名 昔ながらの EnterToTab
名前 lightbox
コメント
@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