Hi all, Yep, your right Doug. As soon as I had a break for lunch and a rest I spotted this straight away, and in fact was about to write an e-mail saying so when you replied. Thanks very much though, I'll apply more patience next time. Warm regards. Martin Webster.
--- On Sat, 9/6/08, Doug Geoffray <[EMAIL PROTECTED]> wrote: > From: Doug Geoffray <[EMAIL PROTECTED]> > Subject: Re: the key describer when active allowing keys strokes through > To: [email protected] > Date: Saturday, September 6, 2008, 12:51 PM > Martin, > > You have a logic problem. In the line: > > If Keyboard.KeyDescriberActive Then MyHotKey(parm) > > is fine but this just says if the key describer is active > call the sub > MyHotKey. But when that function is finished, execution > will start at > the next line. So maybe something like this instead: > > If Keyboard.KeyDescriberActive Then > MyHotKey(parm) > Exit Sub > End If > > Make sense? > > Doug > > martin webster wrote: > > Hi all, > > the short script below allows keystrokes to go through > to the rest of the script when the key describer is active. > What have I got wrong here?. When the Key describer is > active I just want a description of what the G and H keys > will do no more. What is happening now is I am getting the > description and the script is then going on to perform the > action. I am using window-eyes 7.3 beta and windows XP pro. > > Warm regards. > > Martin Webster. ' keyboard example using the key > describer > > ' this example is using two hotkeys and describing > what > > ' the function HandleKey will do using the > WindowEyes key describer. > > Dim MyKeyH, MyKeyG, MyKeydescriptionH, > MyKeydescriptionG, eventShutdown > > MyKeydescriptionH = "when h is pressed, win-eyes > will say hello" > > MyKeydescriptionG = "when g is pressed > window-eyes will say goodbye" > > Set MyKeyH = Keyboard.RegisterHotkey("h", > "HandleKey", Nothing, 1) > > Set MyKeyG = Keyboard.RegisterHotkey("g", > "HandleKey", Nothing, 2) > > eventShutdown = ConnectEvent (ClientInformation, > "OnShutdown", "OnShutdown") > > Function HandleKey(parm) > > If Keyboard.KeyDescriberActive Then MyHotKeys(parm) > > Select Case parm > > Case 1 > > speak "hello" > > Case 2 > > Speak "goodbye" > > End Select > > End Function > > Sub MyHotKeys(parm) > > Select Case parm > > Case 1 > > Speak MyKeydescriptionH > > Case 2 > > Speak MyKeydescriptionG > > End Select > > End Sub > > Sub OnShutdown() > > Speak "I'm off now" > > MyKeyH.UnRegister : MyKeyG.UnRegister > > Set MyKeyH = Nothing : Set MyKeyG = Nothing > > Disconnect eventShutdown > > End Sub > > > > > > > > > > > > > > -- > Doug Geoffray > GW Micro, Inc. > Voice 260-489-3671 > Fax 260-489-2608 > http://www.gwmicro.com
