ScriptControl

Sigue el problema: Haciendo alias del scriptcontrol no me hace ni caso. Aquí te va un ejemplo:
Dim coleccion As New Tests 'Tests es una clase en un modulo
Dim testeando As New Test 'Test es otra clase de otro modulo
Sc.AddObject "Tests", coleccion, True
For i = 0 To 3
If cualquiera(i) <> "" Then
Sc.AddObject cualquiera(i), testeando, True
End If
Next i
'En cualquiera(i) esta los elementos de la clase
Dim dime, otro
Set dime = Sc.CodeObject 'obtenia el modulo
Set otro = Sc.CodeObject 'obtenia el modulo
Sc.AddCode probarfso
Dime.chasisa 'Llamaba al modulo Chasisa
otro.mkera 'Llamaba al modulo Mkera
Haciendo así solo me pilla el modulo mkera y pasa del chasisa! Yo lo quiero hacer con aun más módulos... Si sabes como ayudarme ahora te lo agradecería.

1 Respuesta

Respuesta
1
Tienes que agregarle el nombre de la librería (o modulo como lo llamas) y vas a ver que anda bien.
Dim coleccion As New Modulo1.Tests 'Tests es una clase en un modulo
Dim testeando As New Modulo2.Test 'Test es otra clase de otro modulo
Sc.AddObject "Tests", coleccion, True
For i = 0 To 3
If cualquiera(i) <> "" Then
Sc.AddObject cualquiera(i), testeando, True
End If
Next i
'En cualquiera(i) esta los elementos de la clase
Dim dime, otro
Set dime = Sc.CodeObject 'obtenia el modulo
Set otro = Sc.CodeObject 'obtenia el modulo
Sc. AddCode probarfso
Dime. Chasisa 'Llamaba al modulo Chasisa
Otro. Mkera 'Llamaba al modulo Mkera

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas