KeyCode 13

[edderic]

KeyCode 13 ("Enter&quot giving me a beep ,i will not a beep

what is the code to do it ?

PS : not KeyAscii = 0 ,i working with the KeyCode and Not KeyPress (KeyAscii As Integer)

Eric
Eric De Decker
vbg.be@vbgroup.nl

Licence And Copy Protection AxtiveX
Source CodeBook for the programmer

http://www.createsoftware2000.com

 

[dsi]

From VB Help (Keycode Constants)

Constant Value Description
vbKeyReturn 0xD ENTER key

 

[edderic]

That say for me NOTHING !

If you have a little example code ? Eric De Decker
vbg.be@vbgroup.nl

Licence And Copy Protection AxtiveX
Source CodeBook for the programmer

http://www.createsoftware2000.com

 

[Ruairi]

could you reword your question. i don't understand what you are asking Ruairi

Could your manufacturing facility benefit from real time process monitoring? Would you like your employees to be able to see up to the minute goal and actual production?
For innovative, low cost solutions check out my website.

http://www.plccontroltechnologies.com

 

[Ologhai]

insert keyascii=0 like this.

If KeyAscii = 13 Then
KeyAscii = 0 'to strike out the beep
wKey = ""
For Wi = 1 To wNb
wKey = wKey & "{tab}"
Next Wi

SendKeys wKey
End If
^
good luck

 

[edderic]

Reword the question : it give by the ENTER a BEEP ,i will not a beep !

Source code :

Private Declare Function PeekMessage Lib "user32" Alias _
"PeekMessageA" (lpMsg As MSG, ByVal hwnd As Long, _
ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, _
ByVal wRemoveMsg As Long) As Long

Private Type POINTAPI
x As Long
y As Long
End Type

Private Type MSG
hwnd As Long
message As Long
wParam As Long
lParam As Long
time As Long
pt As POINTAPI
End Type

Const PM_NOREMOVE = &H0
Const WM_KEYDOWN = &H100
Const WM_KEYUP = &H101
Const VK_RETURN = &HD

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Dim MyMsg As MSG, RetVal As Long

' pass:
' MSG structure to receive message information
' my window handle
' low and high filter of 0, 0 to trap all messages
' PM_NOREMOVE to leave the keystroke in the message queue
' use PM_REMOVE (1) to remove it
RetVal = PeekMessage(MyMsg, Me.hwnd, 0, 0, PM_NOREMOVE)

' now, you should look for a MSG.wParam of VK_RETURN
' if this was the keystroke, then test bit 24 of the lparam - if ON,
' then keypad was used, otherwise, keyboard was used
If RetVal <> 0 Then
If MyMsg.wParam = VK_RETURN Then
If MyMsg.lParam And &amp;H1000000 Then
MsgBox &quot;Enter from Keypad pressed&quot;
Else
MsgBox &quot;Enter from Keyboard pressed&quot;
End If
End If
Else
MsgBox &quot;No message waiting, or possible problems calling PeekMessage&quot;
End If
End Sub

Eric De Decker
vbg.be@vbgroup.nl

Licence And Copy Protection AxtiveX
Source CodeBook for the programmer

http://www.createsoftware2000.com

 

[chiph]

Eric -

I saw you got your sample code out of the MSDN, and I tried it myself and it beeped for me too. I did change it a bit, though. Instead of the messageboxes, I had it write results to the debug window. And I moved the KeyDown event from the Form to a textbox (Text1). Beep. Beep.

I think what's happening is the textbox is seeing the Enter key before you are, and it beeps. You'll probably have to subclass the textbox in order to get the message before VB does.

Chip H.

 

[edderic]

To Chip H

and can you resolve this problem ?
Eric De Decker
vbg.be@vbgroup.nl

Licence And Copy Protection AxtiveX
Source CodeBook for the programmer

http://www.createsoftware2000.com

 

[chiph]

I haven't subclassed a control in VB. I know you can do it fairly easily with the Desaware SpyWorks package, if you have a copy of that.

Sorry I can't be of more help.

Chip H.

 

[IanAtCidac]

Hi Eric

The problem here is the MessageBox! Do you have to use it?

(To check this, change the MsgBox lines to something quick and dirty like &quot;Caption = ...&quot;. No beep now when a key is pressed but the vk message is being received... at least on my system.)

-Ian

 

[edderic]

Ian,

If i do it in a TextBox i have a BEEP

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim MyMsg As MSG, RetVal As Long


RetVal = PeekMessage(MyMsg, Me.hwnd, 0, 0, PM_NOREMOVE)

If RetVal <> 0 Then
If MyMsg.wParam = VK_RETURN Then
If MyMsg.lParam And &amp;H1000000 Then
Text2.SetFocus
Else
MsgBox &quot;Enter from Keyboard pressed&quot;
End If
End If
Else
MsgBox &quot;No message waiting, or possible problems calling PeekMessage&quot;
End If

End Sub
Eric De Decker
vbg.be@vbgroup.nl

Licence And Copy Protection AxtiveX
Source CodeBook for the programmer

http://www.createsoftware2000.com

 

[IanAtCidac]

Wierd - neither my mod on the form nor your textbox version beep on my PC. I'm using VB6 (SP4) under W2K (SP1). I'll fiddle a bit more.