Help!!!

Windows 7, VB6

I have the following code with a mysterious problem. Hitting
keys A thru Z or numbers 0 thru 9, assign the correct results
the variable ch below. Punctuation is wrong. For example, the
/ key returns a keycode of 191.

I'm sure there is a simple fix, but it eludes me!

'
'
'
Private Sub rtbDesc_KeyDown(KeyCode As Integer, Shift As Integer)
    Static keyStroke               As Long
    Dim sp                         As Long
    Dim ch                         As String * 1

    If KeyCode <> 8 Then                         ' don't count the BS
        keyStroke = keyStroke + 1                ' count keystrokes
    Else                                         ' if it is a BS then
        keyStroke = keyStroke - 1                ' decrement the count
    End If

    If keyStroke > 60 And KeyCode = 32 Then      ' if more than 60
        rtbDesc.text = rtbDesc.text & vbCrLf     ' characters and a space
        sp = Len(rtbDesc.text)                   ' append a crlf to the
        rtbDesc.SelStart = sp                    ' text string and
        lineLength = sp
        keyStroke = 0                            '
    End If                                       '

    If KeyCode = 10 Or KeyCode = 13 Then
        keyStroke = 0
        lineLength = 0
        tmptext = ""
    Else
        lineLength = lineLength + 1
        ch = Chr$(KeyCode)
        tmptext = tmptext & ch
    End If

    Text1.text = KeyCode & "  " & Str(lineLength) & "  " & tmptext

    If Len(tmptext) < 30 Then
        flxDesc.Clear
        DoEvents
        DisplayText tmptext, Len(tmptext)
    End If

End Sub

Thanks is advance.

John

There is a big difference between KeyCode (the parameter to KeyDown/Up) and
KeyAscii (the parameter to KeyPress). There are all sorts of keycodes
assigned to different keys on your keyboard. The / down by the shift key has
a different code than the / on the numeric keypad, because they are two
physically different keys. You can't count on a keycode paralleling the
ASCII code for the character on the key; the ASCII code is retrieved from a
map.

This has nothing to do with Windows 7, by the way, and should happen on any
OS.

Check out the vbKey* constants. You can find them via Intellisense or in the
Object Browser in the <globals> section of the VBRUN library.

Show quote Hide quote Jeff,

I'm aware of all of the above, but how do I resolve this problem???

I mentioned Windows 7, because I always try to define the environment
before I post the question.

Thanks.

John

On Tue, 31 Aug 2010 18:24:10 +0000 (UTC), John Simpson
<jasimp.nospam@earthlink.net> wrote:


Perhaps KeyPress() would be more useful?

Note: You are usually better off to do any processing in a "Key Up" or
"Key Press" and use "Key Down" to set flags for combinations, ie,
Ctrl+A, Shift+Tab, ...

But that is just general advise and can be safely ignored. <g>

-ralph

ralph <nt_consultin***@yahoo.net> wrote in
Show quoteHide quoteThanks Ralph. KeyPress works. That's what I had to begin with, but
I changed it for some reason. God, how I hate these senior-moments!

John

Distibution of VB6 program
Lockup Continues
Why doesn't this work (sendmessage)
Radio Button Bug?
file and folder permissions
Google is the new AntiChrist
Re: VB5 Runtime on Windows 7
Create Shortcut
Showing/Using Sort arrows on vb6 listviews?
Lockup