Circle Reference

  • Thread starter Thread starter Alhambra Eidos Desarrollo
  • Start date Start date
A

Alhambra Eidos Desarrollo

Hi all,

I have two projects, and circle reference with them...

Cliente.Util.vbproj

For Each formularioAbierto As Form In
System.Windows.Forms.Application.OpenForms

If
formularioAbierto.GetType().Equals(GetType(GRUPOBACKUP.Administrador.frmMain)) Then

Dim frmMain As GRUPOBACKUP.Administrador.frmMain
frmMain = CType(formularioAbierto, GRUPOBACKUP.Administrador.frmMain)
frmMain.Conectado = False

End If
Next

Administrador.vbproj

Contains GRUPOBACKUP.Administrador.frmMain class
and use classes of Cliente.util.vbproj

Can I use Reflection for avoid circle reference for this code??

For Each formularioAbierto As Form In
System.Windows.Forms.Application.OpenForms

If
formularioAbierto.GetType().Equals(GetType(GRUPOBACKUP.Administrador.frmMain)) Then

Dim frmMain As GRUPOBACKUP.Administrador.frmMain
frmMain = CType(formularioAbierto, GRUPOBACKUP.Administrador.frmMain)
frmMain.Conectado = False

End If
Next


Thanks in advanced.
 
Alhambra said:
If
formularioAbierto.GetType().Equals(GetType(GRUPOBACKUP.Administrador.frmMain))
Then
Click to expand...

Shorter:
If typeof formularioAbierto is GRUPOBACKUP.Administrador.frmMain then

However, it is also true if formularioAbierto is a derived class.

Can I use Reflection for avoid circle reference for this code??
Click to expand...

Circular references are very dangerous! They can work temporarily, but, once
the chain is broken, you won't be able to compile any of the projects. The
ol' chicken and egg problem. You need A in order to build B, but you need B
in order to build A, so, what to build first?

You must always build layers, each build upon lower layers. If you wanted to
make a reference to a higher layer, you should be alerted. Then you have to
find a more abstract approach, i.e. supplying a base class or an Interface
in the lower layer that can be used in higher layers. Or the problem is an
indication that both projects must be melted together to one.

I can't say how to do this in your specific case because it's a design
question. Design is often a matter of taste.


Armin
 
Alhambra said:
I have two projects, and circle reference with them...
Click to expand...

Oh dear.
If
formularioAbierto.GetType().Equals(GetType(GRUPOBACKUP.Administrador.frmMain)) Then
Dim frmMain As GRUPOBACKUP.Administrador.frmMain
frmMain = CType(formularioAbierto, GRUPOBACKUP.Administrador.frmMain)
frmMain.Conectado = False
Click to expand...

If this is /all/ you need to do (set a property on the form), then
consider using an Interface:

Public Interface IConectado
Public Property Conectado() as Boolean
End Interface

Compile this into a Dll and reference it from /both/ projects.

In both projects, have the form (frmMain) implement this Interface, as in

Public Class frmMain
Inherits Form

Public Property Conectado() as Boolean _
Implements IConectado.ConectAdo
. . .
End Property

End Class

Then, your code becomes:

If formularioAbierto Is IConectado Then
Dim frm as IConectado _
= DirectCast( formularioAbierto, IConectado )
frm.Conectado = False
End If

HTH,
Phill W.
 
Back
Top