hehe.. stop beep when pressing Enter

[nemaroller]

You know how the system beeps if you try to press
Enter in a single-line textbox...

Well, anyway, I making a usercontrol that I want to just pass a TAB along to the system... I found this code in C#, I know Pirate has # skills, so perhaps he can convert this to VB...

const int WM_KEYDOWN = 0x100;
const int WM_KEYUP = 0x101;

public override bool PreProcessMessage(ref
System.Windows.Forms.Message msg)
 {
Keys keyCode=(Keys)(int)msg.WParam & Keys.KeyCode;

if((msg.Msg==WM_KEYDOWN || msg.Msg==WM_KEYUP) &&
keyCode==Keys.Enter)
 {
msg.WParam=(System.IntPtr)Keys.Tab;
}
return base.PreProcessMessage(ref msg);
}

Here's what I have so far....

Dim keyCode As Keys = CType(msg.WParam, IntPtr).ToInt32
 
 
        If msg.Msg = Convert.ToInt32("0x100") Then
            If keyCode = Keys.Enter Then
                msg.WParam = New IntPtr(Keys.Tab)
                Return True
            End If
        End If
        Return MyBase.ProcessKeyEventArgs(msg)

I think that's correct except msg.Msg = "0x100"
probably stops this routine from working correctly.

So, how do I say:

If msg.Msg = WM_KEYUP or msg.Msg = WM_KEYDOWN

[nemaroller]

Ok... I got this part to work... no beep, but I still want it to send a Tab...

Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
        Dim keyCode As Keys = CType(msg.WParam, IntPtr).ToInt32
        Const WM_KEYDOWN As Integer = &H100
        Const WM_KEYUP As Integer = &H101
 
        If msg.Msg = WM_KEYDOWN AndAlso keyCode = Keys.Enter Then
            msg.WParam = New IntPtr(Keys.Tab)
            Return True
        End If
        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function

[MrPolite]

hmm I dont know what you're doing... if you want to stop the beep sonud, just set e.Handled to true in the keypress event of a textbox or whatever (or maybe it's the keydown sub)

0x100 in VB.NET would be &H100 I think. and 0x101 would be &H101. so you would have
Const WM_KEYDOWN as integer = &H100

I dont understand how this hex thingie works though
edit: too late

[nemaroller]

I tried e.handled, but could not get it work properly...

Anyway, the above code works, but now I have to figure out why its not replacing the .Wparam with the tab instead of Enter.

[nemaroller]

YES!

GOT IT! (by cheating using me.parentform.selectnextcontrol, but ***)

Protected Overrides Function ProcessCmdKey(ByRef msg As System.Windows.Forms.Message, ByVal keyData As System.Windows.Forms.Keys) As Boolean
        Dim keyCode As Keys = CType(msg.WParam, IntPtr).ToInt32
        Const WM_KEYDOWN As Integer = &H100
        'Const WM_KEYUP As Integer = &H101   in case people need this
 
        If msg.Msg = WM_KEYDOWN AndAlso keyCode = Keys.Enter Then
            Me.ParentForm.SelectNextControl(Me, True, True, False, True)
            Return True
 
        End If
        Return MyBase.ProcessCmdKey(msg, keyData)
    End Function

[MrPolite]

umm I'm not answering your directly but, you coudl do something like tihs:

Me.SelectNextControl(TextBox1, True, True, True, True)

that would select the control after textbox1.... that is, if you are trying to pass teh focus to some other control

[MrPolite]

lol one minute late