You are currently offline, waiting for your internet to reconnect

How To Call Functions Using the Script Control

This article was previously published under Q184740
This article has been archived. It is offered "as is" and will no longer be updated.
SUMMARY
This article provides sample code for the Script control that demonstratesvarious methods of calling script functions from Visual Basic.
MORE INFORMATION
IMPORTANT: Microsoft provides programming examples for illustration only,without warranty either expressed or implied, including, but not limitedto, the implied warranties of merchantability and/or fitness for aparticular purpose. This article assumes that you are familiar with theprogramming language being demonstrated and the tools used to create anddebug procedures.

The Script control can host VBScript, JavaScript, and any other compliantscripting language, so your users can script your application in a similarmanner to using VBScript or JavaScript to provide additional functionalityfor Web pages.

The following article in the Microsoft Knowledge Base describes how toobtain the Script control:
184739 : INFO: Where to Obtain the Script Control

The Script control provides four methods for calling Sub and Functionscript routines:
  • Eval: Evaluates a text expression.
  • Run: Runs a named Sub or Function.
  • Execute: Executes a script statement.
  • As a method of a Module object.

Eval

The calling convention is:
  Result = ScriptControl.Eval("some text expression")				
You can use this method to call both intrinsic script functions, as well asuser functions. Function arguments are passed as literal values in theexpression text and can be either hard-coded or concatenated from avariable.

NOTE: This method cannot be used to call Subroutines.

Run

The calling convention is:
  Result = ScriptControl.Run("Name", arg1, arg2, ... argn)				
You can use this method to call Subroutines, in which case the Resultreturned is empty and you can use the alternate calling convention toignore the return result:
  ScriptControl.Run "Name", arg1, arg2, ... argn				
NOTE: Name is the name of the Sub or Function, and arg1 ... argn areoptional depending on the Sub or Function in question.

Execute

The calling convention is:
  ScriptControl.Execute "statement text"				
This method allows you to call any intrinsic statement or Sub routine. Youcan also use it to call functions, but the return result is dropped.

Module Method

The calling convention is:
   Result = ScriptControl.Modules(modulename).functionname(arg1, arg2, ...)   ScriptControl.Modules(modulename).subname arg1, arg2, ...				

The default module is given in the GlobalModule constant, such as:
   Result = ScriptControl.Modules(GlobalModule).MyFunction(5)   ScriptControl.Modules(GlobalModule).MySub 5, "A"				

For more information on ScriptControl modules, please see the followingarticle in the Microsoft Knowledge Base:
184745 : How To Use Script Control Modules and Procedures Collections

Example

  1. In Visual Basic, create a new project. Form1 is created by default.
  2. Click Components on the Project menu, and then select the "Microsoft Script Control 1.0" check box.
  3. Add the Script control (ScriptControl1), a text box (Text1), and a command button (Command1) to a form. Set the MultiLine property of the text box to True.
  4. Add the following code to 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. Run Form1, and open the Debug window.
  6. Type the following script in the text box:
          Sub Hello(YourName)        MsgBox "Hello " & YourName      End Sub      Function AddTwo(X1, X2)        AddTwo = X1 + X2      End Function						
  7. Click the CommandButton.

    NOTE: The following two statements do not produce an output because the function return is lost and the code does not output the result through any other means, such as a global variable or message box:
          .Run "AddTwo", 4, 6      .ExecuteStatement "AddTwo 9,18"						
REFERENCES
For information about obtaining the Script control, please see thefollowing article in the Microsoft Knowledge Base:
184739 : INFO: Where to Obtain the Script Control

(c) Microsoft Corporation 1998, All Rights Reserved.
Contributions by Malcolm Stewart, Microsoft Corporation
kbVBA500 kbVBp500 kbNoKeyWord kbVBp600 kbScript kbCtrl
Properties

Article ID: 184740 - Last Review: 12/05/2015 08:36:35 - Revision: 4.2

Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Visual Basic 6.0 Enterprise Edition, Microsoft Visual Basic 4.0 Standard Edition, Microsoft Visual Basic 4.0 Professional Edition, Microsoft Visual Basic 4.0 32-Bit Enterprise Edition, Microsoft Visual Basic for Applications 5.0

  • kbnosurvey kbarchive kbhowto KB184740
Feedback