Mas de ScriptControl

Iniciado por mdg, 28 Octubre 2007, 05:29 AM

0 Miembros y 1 Visitante están viendo este tema.

mdg

Buenas amigos, yo nuevamente con otro inconveniente.

La cuestion es que estoy trabajando con el el control este y me presenta una dificulatad, primero les pego el procedimiento como lo uso:

Dim o_Script As MSScriptControl.ScriptControl

Private Sub Form_Load()

' Inicializa la variable para usar el ScriptControl
    Set o_Script = New MSScriptControl.ScriptControl
   
    ' Establece como lenguaje VBScript
     o_Script.Language = "VBScript"
     o_Script.AddObject "Form1", Form1
       
End Sub

Ahora tengo unas funciones pongo dos:

Public Function suma(a, b)
suma = a + b
End Function

Public Function resta(a, b)
resta = a - b
End Function


Private Sub Command2_Click()

cantidad = o_Script.Eval(me.text1.text)

msgbox(cantidad)

end sub

ahora para ue el eval me tire el resultado de Suma(10,10) o sea msgbox(20), tengo que escribir en el text1: Form1.suma(10,10), es ahi donde tengo el problema, por lo que mi consulta es: existe alguna forma de evitar tener que especificar el nombre de la clase seguido del el nombre de la funcion? y solo pasar el nombre de la funcion para que evalue?, no se si se entiende, es que solo puse dos funciones sencillas pero tengo muchas y que necesito que se puedan evaluar mas prolijamente desde varios formularios sin tener ue poner nombreform.funcion..., o  al menos poder llamar a dichas funciones desde un solo formulario pero sin tener que pasar el nombre del form, de antemano gracias por su ayuda.