[RESOLVED] Sendkeys error

This code:

VB 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?

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

Quote:

---

Originally Posted by LaVolpe

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?

Quote:

---

Originally Posted by krtxmrtz

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

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

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.

Quote:

---

Originally Posted by LaVolpe

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

---

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

Quote:

---

Originally Posted by dac999

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.