scriptcontrol.ExecuteStatement doesn't seem to work!

[UBfoolin]

dim sc as ScriptControl
dim i as integer

i = 1
sc.ExecuteStatement "i = 25"

At this point, i still equals 1. Why?

Further, if I do:

sc.Eval ( "i = 25" ) it returns False.

Can anyone help me?

 

[jonscott8]

I presume you are using VB because of 1) your use of strong typing and 2) if it was VBS, you wouldnt need the script control.

Dim i As Integer
i = 1
With ScriptControl1
.ExecuteStatement "i=25"
Debug.Print .Eval("i&quot 'Prints 25
Debug.Print .Eval("i=25&quot 'Prints True
Deub.Print i 'Prints 1
End With

Refer to the following for further explanation:

http://support.microsoft.com/support/kb/articles/Q184/7/40.ASP

Jon Hawkins

 

[UBfoolin]

Okay, thank you. Your premise was correct. I'm working in VB. This was my misunderstanding. I thought i would end up = 25. It doesn't but .Eval("i&quot does.

Next, will .Eval or .ExecuteStatement handle an If Then statement? Can you show me an example?

.ExecuteStatement "IF i > j THEN i = 50 ELSE j = 50 END IF"

Thanks for you time.

 

[jonscott8]

Dim lsMessage As String

For x = 1 To 10
With ScriptControl1
.ExecuteStatement "Dim sVar: Randomize(1): i=Rnd(1): j=Rnd(1)"
lsMessage = "i=" & .Eval("i&quot & vbTab
lsMessage = lsMessage & "j=" & .Eval("j&quot
Debug.Print lsMessage
.ExecuteStatement "If i>j Then sVar=""Yes"" Else sVar=""No"""
lsMessage = "Is i > j? " & vbTab
lsMessage = lsMessage & .Eval("sVar&quot
Debug.Print lsMessage & vbCrLf
End With
Next
Jon Hawkins