Llamar funciones
Publicado por jesus (22 intervenciones) el 30/03/2011 16:44:01
Hola.
En el menu de un proyecto, tengo el siguiente codigo:
Set Medi1 = CreateObject("SIGAmarcajes.ClassMarcas")
Lr = Medi1.Funcion1(1, Usua, Niv, Perf, Passa)
Lo que me gustaria es hacer lo siguiente:
For N1 =1 to 10
Set Medi1 = CreateObject(Menus2(Index))
Lr = Medi1.Menus3(Index)
Next N1
Al ejecutar el codigo, me devuelve el error "El objeto no admite esta propiedad o metodo.
Donde:
menus2(Index) se corresponde con "marcajes.ClassMarcas"
menus3(Index) se corresponde con "Funcion1(1, Usua, Niv, Perf, Passa)"
con el ejemplo, lo que consigo es que en funcion de la opcion pulsada, llamaria a una funcion de una dll o a otra, pasando los datos de forma dinamica.
En el menu de un proyecto, tengo el siguiente codigo:
Set Medi1 = CreateObject("SIGAmarcajes.ClassMarcas")
Lr = Medi1.Funcion1(1, Usua, Niv, Perf, Passa)
Lo que me gustaria es hacer lo siguiente:
For N1 =1 to 10
Set Medi1 = CreateObject(Menus2(Index))
Lr = Medi1.Menus3(Index)
Next N1
Al ejecutar el codigo, me devuelve el error "El objeto no admite esta propiedad o metodo.
Donde:
menus2(Index) se corresponde con "marcajes.ClassMarcas"
menus3(Index) se corresponde con "Funcion1(1, Usua, Niv, Perf, Passa)"
con el ejemplo, lo que consigo es que en funcion de la opcion pulsada, llamaria a una funcion de una dll o a otra, pasando los datos de forma dinamica.
Valora esta pregunta


0