２つの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