You should declare a b and result outside the subroutine too And see what happens. Use a different value for the a and b that up and declared little scope.
Jonathan Cohn > On Nov 27, 2015, at 6:02 AM, Nico Valster via Scripting > <[email protected]> wrote: > > Based on > <https://www.gwmicro.com/Support/Knowledge_Base/?kbnumber=GWKB2035> > https://www.gwmicro.com/Support/Knowledge_Base/?kbnumber=GWKB2035 > > I wrote the script as shown at the end of this email > > Since ExecuteGlobal did not behave as I expected, I did some searching on > the web and found Eval > > The call to ExecuteGlobal and the first call to Eval, both result in "No > error" and 0 as result > > The second call to Eval results in the expected 15. > > The call to Execute results in the expected 50 > > > > What do I do wrong with the call to ExecuteGlobal and the first call to Eval > ? > > > > > > > > Option Explicit > > > > Dim myHotkey : Set myHotkey = Keyboard.RegisterHotkey("Control-Shift-1", > "MyFunction") > > > > Sub MyFunction() > > On Error Resume Next > > Dim result : result = 0 > > Dim a : a = 5 > > Dim b : b = 10 > > ExecuteGlobal "result = a + b" > > If Err Then > > call MsgBox("error") > > Else > > call MsgBox("No error") > > End If > > MsgBox result > > > > Eval "result = a + b" > > If Err Then > > call MsgBox("error") > > Else > > call MsgBox("No error") > > End If > > MsgBox result > > > > result = Eval( "a + b" ) > > If Err Then > > call MsgBox("error") > > Else > > call MsgBox("No error") > > End If > > MsgBox result > > > > Execute "result = a * b" > > If Err Then > > call MsgBox("error") > > Else > > call MsgBox("No error") > > End If > > MsgBox result > > > > End Sub > > > > > > > > > > Met vriendelijke groet, kind regards > Nico Valster > <http://www.babbage.com/> www.babbage.com > <http://www.youtube.com/results?search_query=babbagecom> Babbage op Youtube > klik hier: > Onyxdijk 199 > 4706 LL Roosendaal > tel. : 0165-536156 > KVK: 20065000 > > > > -------------- next part -------------- > An HTML attachment was scrubbed... > URL: > <http://lists.window-eyes.com/private.cgi/scripting-window-eyes.com/attachments/20151127/34531961/attachment.htm> > _______________________________________________ > Any views or opinions presented in this email are solely those of the author > and do not necessarily represent those of Ai Squared. > > For membership options, visit > http://lists.window-eyes.com/options.cgi/scripting-window-eyes.com/jon.c.cohn%40gmail.com. > For subscription options, visit > http://lists.window-eyes.com/listinfo.cgi/scripting-window-eyes.com > List archives can be found at > http://lists.window-eyes.com/private.cgi/scripting-window-eyes.com _______________________________________________ Any views or opinions presented in this email are solely those of the author and do not necessarily represent those of Ai Squared. For membership options, visit http://lists.window-eyes.com/options.cgi/scripting-window-eyes.com/archive%40mail-archive.com. For subscription options, visit http://lists.window-eyes.com/listinfo.cgi/scripting-window-eyes.com List archives can be found at http://lists.window-eyes.com/private.cgi/scripting-window-eyes.com
