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.
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 de aromman
1