２つのEnterキーの判定するには？ (ID:145422)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

> If e.KeyCode = Keys.Return Then
> ElseIf e.KeyCode = Keys.Enter Then
上記では判定できません。そもそも
  If Keys.Enter = Keys.Return Then
は True となってしまうはずですし。
(Return と Enter は、どちらも数値としては「13」です)

> Ms-ACCESS2000では、判断できるソースがありましたので、
これかな?
http://support.microsoft.com/kb/188550/en-us

> MyMSG に値が入って来ないため、判断にも至りません。
こうかな。

Public Class Form1
    Public Event EnterKeyPress(ByVal IsKeyPad As Boolean)

Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
        Debug.WriteLine(keyData.ToString() & ":" & msg.ToString())

Const WM_KEYDOWN As Integer = &H100
        If msg.Msg = WM_KEYDOWN AndAlso keyData = Keys.Return Then
            If IntPtr.Size = 4 Then
                RaiseEvent EnterKeyPress(CBool(msg.LParam.ToInt32() And &H1000000I))
            Else
                RaiseEvent EnterKeyPress(CBool(msg.LParam.ToInt64() And &H1000000L))
            End If
        End If

Return MyBase.ProcessCmdKey(msg, keyData)
    End Function

Private Sub Form1_EnterKeyPress(ByVal IsKeyPad As Boolean) Handles Me.EnterKeyPress
        ListBox1.Items.Add(IsKeyPad)
    End Sub
End Class

←解決時は質問者本人がここをチェックしてください。

戻る