Sendkeys toevoegen in VB6

[Klikmaar]

Ik ben in Visual Basic 6 met een programma bezig waar ik m.b.v. Word 2003 scan.
Alles gaat automatisch behalve dat ik in Word nog 1 commando moet geven om de scanner te laten starten. Dit kan met de toetscombinatie "Alt i" en deze handeling wil ik ook automatisch laten gaan.

Tot nu toe heb ik de code:
dim objWord as word.Application
objWord.WordBasic.InsertImagerScan
' 'commando geven voor het starten van de scanner(alt i)
' ??? SendKeys "%i", True

 

[That Guy]

check de getasynckeystate api, zoals bv. http://www.a1vbcode.com/snippet-3708.asp

 

[Klikmaar]

De GetAsyncKeyState is als ik het goed begrijp ter controle.
Het is de bedoeling nadat het commando Scanner (objWord.WordBasic.InsertImagerScan) gegeven is de vraag om de scanner daadwerkelijk te starten niet een extra handeling nodig is. Op dit moment kan de vraag met het toetsenbordcommando ALT-i beantwoordt worden en dit wil ik automatisch laten doen.
Wat ik gevonden heb is
"SendKeys "%i", True"
, maar deze werkt niet in VB6 in combinatie met Word2003

 

[That Guy]

oh, je wilt de keys 'i + alt' sturen...

check dit: http://www.developerfusion.com/article/57/sendkeys-command/


sendkeys:

function [B]SendKeys[/B] "[I]string[/I]"

Sends a key combination to the active window

in jou geval:

sendkeys "%i"

waarom zou je trouwens er een 'true' achter zetten? Noot overgens dus wel dat het naar het actieve scherm stuurt, dus als je application1-scherm ervoor zit, werkt-ie dus niet.