Como chamar funções utilizando o controlo de script

• Eval: Avalia uma expressão de texto.
• Execução: Executa uma sub ou Function com nome.
• Executar: Executa uma instrução de script.
• Como um método de um objecto módulo.

Voltar ao topo

Eval

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

				

Voltar ao topo

Executar

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

				

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

				

Voltar ao topo

Executar

  ScriptControl.Execute "statement text"

				

Voltar ao topo

Método de módulo

   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"
				

Voltar ao topo

Exemplo

1. No Visual Basic, crie um novo projecto. É criado o Form1 por predefinição.
2. Clique em ' componentes ' no menu Project e, em seguida, seleccione a caixa de verificação "Controlo de scripts da Microsoft 1.0".
3. Adicione o controlo de script (ScriptControl1), uma caixa de texto (Texto1) e um botão de comando (Command1) a um formulário. Defina a propriedade MultiLine da caixa de texto como TRUE.
4. Adicione o seguinte código ao 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. Execute o Form1 e abrir a janela Depurar.
6. Escreva o seguinte script na caixa de texto:

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

7. Clique no CommandButton.
   
   NOTA: As duas instruções seguintes não produzem um resultado porque a função de retorno é perdida e o código não exportar o resultado através de outros meios, tais como a uma caixa de mensagem ou de variável global:

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

Voltar ao topo