30/01/2004, 10:44
|
| | | Fecha de Ingreso: noviembre-2003 Ubicación: Córdoba
Mensajes: 10
Antigüedad: 21 años, 3 meses Puntos: 0 | |
| Bueno, dale.
Esta es una función genérica que puede modificar el estado de muchos objetos de diferentes tipos.
Paso dichos objetos como parámetro y el nombre del procedimiento de cada objeto que modifica los estados.
Public Sub CrearObjeto (ByVal TipodeObjeto As Type, ByVal MiProcedimiento As String)
'creo el objeto adecuado
Dim obj As Object = Activator.CreateInstance(TipodeObjeto)
'si conozco el nombre del prodecimiento lo llamo
obj.ModificarEstados()
'SI no conozco el nombre del prodecimiento, uso el parámetro
obj.MiProcedimiento ()
End Sub
El obj.MiProcedimiento, obviamente no anda, porque MiProcedimiento es String y lo toma como tal.
En realidad MiProcedimiento deberia ser de tipo Procedimiento a algo así.
Espero se entienda, gracias. |