Re: Puede Una Clase Saber Quien La Instancio?
jsbsan si a esa forma la utilizaba anteriormente en mis primeros pasos... es que vengo de php con cakephp
pero igual es muy tedioso y como ya comente menos se comunican entre si los procesos, objetos, clases lo que sea es mejor, al menos para mi.
para obtener la instancia de un objeto no uso procedimientos le hago así...
'' ## Descripcion ##
''
'' Obtengo la instancia de lo que quiero controlar
Public Sub GetObj(sNombre As String) As Object
Dim oObj As Object
'------------------------cacho el objeto deseado
oObj = Classes[sNombre].Instance
'------------------------Lo controlo
'oObj.caption = ""
Return oObj
End
Para restringir las instancias lo hice así como dije el padre se le pasa cuando se crea la clase así solo las clases permitidas pueden instancia a esa.
''esta es la clase control(CControl)
Public Sub ShowSpider()
Dim $frmDeclaracion As New FrmDeclaracion(Me)
$frmDeclaracion.Show
End
'en este caso es un form (FrmDeclaracion)pero sirve tambien para una clase
Public Sub _new(clsParent As CControl) ''solo CControl puede instanciar
Dim sMiNombre As String
'------------------------Obtengo el nombre de la clase
sMiNombre = Classes["FrmDeclaracion"].Name
- - - - - - - - - - - - - - - - - - - - - - - La cantidad de veces que esta instanciado
If Classes[sMiNombre].Count = 10 Then ProDestruye()
........
End
Lo dejo aquí por si a alguien le hace falta.
y le pondré solucionado.... Éxitos