elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Mas de ScriptControl
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Mas de ScriptControl  (Leído 928 veces)
mdg

Desconectado Desconectado

Mensajes: 73


Ver Perfil
Mas de ScriptControl
« en: 28 Octubre 2007, 05:29 am »

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.


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines