[RESOLVED] Sendkeys error

[krtxmrtz]

This code:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
        KeyAscii = 0
        SendKeys "{TAB}"
    End If
End Sub

works perfectly under Windows XP but produces the error in the attached image when I run the app (in the IDE) under Windows 7. Any ideas why?

[LaVolpe]

In the FAQ section, there is a topic regarding SendKeys and Vista (should apply to Win7 also)

[krtxmrtz]

In the FAQ section, there is a topic regarding SendKeys and Vista (should apply to Win7 also)

All right, it says "replace Sendkeys" by API code. Can you remember the appropriate function call required?

[LaVolpe]

All right, it says "replace Sendkeys" by API code. Can you remember the appropriate function call required?

There are two that I know of: 1) keybd_event 2) SendInput

[dac999]

Try the code at http://vb.mvps.org/samples/ , about 1/2 way down the page called SendInput.

[dilettante]

Interestingly this was supposedly "fixed" by a patch to the VB6 runtime. It still fails in the IDE, but should work in a compiled EXE.

However... an EXE compiled using Sendkeys on my machine is flagged as a virus by AVG, as soon as I compile it.

[krtxmrtz]

There are two that I know of: 1) keybd_event 2) SendInput

I've tried them both and they work fine. Thanks.

[krtxmrtz]

Try the code at http://vb.mvps.org/samples/ , about 1/2 way down the page called SendInput.

Thank you, I used the module included there and works perfect. However I think I'd rather use keyb_event, it just requires 3 extra lines -function declaration plus 2 constants.