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)
| | | | |-+  AddObject
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: AddObject  (Leído 897 veces)
mdg

Desconectado Desconectado

Mensajes: 73


Ver Perfil
AddObject
« en: 22 Octubre 2007, 06:00 am »

Buenas amigos, ante todo muchas gracias por su ayuda.

La cuestion es que estuve investigando mucho acerca del Scriptcontrol y encontre la solucion con dicho contro a mis problemas, el problema es el siguiente:

A continuacion un trozo de codigo que descargue de la web y luego la consulta.

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   
    Command1.Caption = " Ejecutar código"
    Command2.Caption = " Limpiar textBox"
       End Sub

Private Sub Command1_Click()
   
    Dim Valor As Variant
   
    ' Le pasa a Eval el contendo de Text1
    On Error GoTo ErrSub:
    Valor = o_Script.Eval("form1." & Me.Text1)
   
    'visualiza el resultado
    MsgBox Valor, vbInformation
   

Exit Sub
'Error
ErrSub:
MsgBox Err.Description, vbCritical
Err.Clear

End Sub

La cuestion es que este codigo me perimite ejecutar cualquier codigo que se encuentre en el modulo de form1 modulo y lo que yo necesito es poder ejecutar en este formulario los codigos de otro mudulo general, es esto posible?, supongo que la cuestion esta en AddObject "Form1",creo que ahi debo especificar el nombre del modulo pero no tengo idea de como hacerlo, alguien sabe como hacerlo, no se si me llego a explicar pero gracias nuevamente.


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