??? ??????? ????????? ???????? ?? ????? ???? ????

• Eval: ??? ??? ?????????? ????????? ???? ???
• ?????: ??? ??? ?? ?? ?????? ????? ???
• ?????????: ??? ????????? ??? ????????? ???? ???
• ??????? ???????? ?? ???? ?? ??? ????

????? ?? ???? ????

Eval

  Result = ScriptControl.Eval("some text expression")

				

????? ?? ???? ????

?????

  Result = ScriptControl.Run("Name", arg1, arg2, ... argn)

				

  ScriptControl.Run "Name", arg1, arg2, ... argn

				

????? ?? ???? ????

????????? ????

  ScriptControl.Execute "statement text"

				

????? ?? ???? ????

??????? ????

   Result = ScriptControl.Modules(modulename).functionname(arg1, arg2, ...)
   ScriptControl.Modules(modulename).subname arg1, arg2, ...
				

   Result = ScriptControl.Modules(GlobalModule).MyFunction(5)
   ScriptControl.Modules(GlobalModule).MySub 5, "A"
				

????? ?? ???? ????

??????:

1. Visual Basic ??? ??? ??? ????????? ?????? Form1 ???????? ??? ?? ???? ??..
2. ??? ?? ' ????????? ' ???? ?? ????? ????, ?? ???? ??? "Microsoft ????????? ???????? 1.0" ??? ????? ?? ??? ?????
3. ???? ??????? ?? ??? ????????? ???????? (ScriptControl1), ???? ??? ????? (Text1) ?? (Command1) ???? ??? ??????? ??? ????? ?? MultiLine ??? ?? ??? ???? ?? ??? ??? ?????
4. Form1 ?? ??? ????? ??? ??????:

         Private Sub Command1_Click()
           With ScriptControl1
             ' Set script language (VBScript is the default).
             .Language = "VBScript"
             ' Set UI interaction (TRUE is the default).
             .AllowUI = True
             ' Copy the script to the control.
             .AddCode Text1.Text
             ' Demonstrate the Eval method.
             Debug.Print .Eval("AddTwo(5,7)")
             ' Demonstrate the Run method both with and without return values.
             .Run "Hello", "Jane Doe"
             Debug.Print .Run("Hello", "James Smith")
             .Run "AddTwo", 4, 6
             Debug.Print .Run("AddTwo", 7, 8)
             ' Demonstrate the ExecuteStatement method.
             .ExecuteStatement "Hello ""Sue Smith"""
             .ExecuteStatement "AddTwo 9,18"
             .ExecuteStatement "MsgBox CStr(AddTwo(3,8))"
             .Modules(GlobalModule).Hello "Jane Doe"
             Dim oMod As Object
             Set oMod = .Modules(GlobalModule)
             Debug.Print oMod.AddTwo 12, 24
             Set oMod = Nothing
           End With
         End Sub
   
   						

5. Form1 ?????, ?? ???? ????? ??? ??????
6. ?????????? ????????? ??? ????? ??? ???? ????:

         Sub Hello(YourName)
           MsgBox "Hello " & YourName
         End Sub
   
         Function AddTwo(X1, X2)
           AddTwo = X1 + X2
         End Function
   
   						

7. CommandButton ????? ?????
   
   ????? ???: ????? ?? ??? ???? ?????? ??? ?????? ?????? ?????? ?? ???? ?? ?? ??? ?????? ?????? ??? ???? ??????, ???? ?????? ?? ?? ????? ????? ?? ?????? ?? ???? ???????:

         .Run "AddTwo", 4, 6
         .ExecuteStatement "AddTwo 9,18"
   
   						

????? ?? ???? ????