Comunicacion entre formularios a traves de Interfaces .Net

A veces en nuestros programas necesitamos pasar información entre diferentes clases de nuestro proyecto, este ejemplo va dirigido a la comunicación entre formularios, es decir que variables, arrays, tablas, etc pasen de un form a otro mediante el uso de Interfaces, creandolas e implementandolas según la necesidad del momento.

¿Para que necesitaríamos algo así?

Las necesidades de realizar esto son muchas y muy diversas, en este momento se me viene a la mente una muy común para mi a la hora de desarrollar y es cuando estamos en un formulario de ABM y queremos hacer un Alta nueva, por ejemplo un cliente, la ciudad podemos elejirla llamando a un formulario nuevo (llamado por ejemplo ciudades), luego de elegirla mediante doble clic u otro evento el form ciudades se cierra y se regresa al ABM con la ciudad ya seleccionada.

El ejemplo va a estar realizado en Visual Basic .Net y consta de la comunicación entre 2 formularios frmABMClientes y frmCiudades

A continuación la forma de definirlas:

Interface I

1. 'Definicion de los metodos que va a contener la interface
2. '    Sub PasaString(ByVal text As String)
3. '    Sub PasaDataSet(ByVal text As String)
4. 
   
5. End Interface
6. 
   
7. 'Devolución de la informacion
8. 
   
9. 'Dim _formInterface As IForm = CType(Me.Owner, IForm)
10. '_formInterface.PasaString(TextBox1.Text)
11. '
12. '
13. 'Implementacion en el formulario que recibe la informacion
14. 'Implements IForm
15. 'Public Sub CambiarTextoEnTexBox1(ByVal text As String) Implements IForm.PasaString
16. '    TextBox1.Text = text
17. 'End Sub
18. 'Public Sub sbrActualizarCiudades(ByVal text As String) Implements IForm.PasaDataSet
19. '    TextBox1.Text = text
20. 'End Sub
21. '
22. 'Llamada al formulario del cual se necesita sacar informacion
23. 'La llamada se hace desde el que la va  arecibir posteriormente
24. 'Entre parentesis se establece el Owner del formulario que se esta abriendo
25. 'Dim _form2 As New Form2
26. '_form2.Show(Me)

Ejemplo de interface

1. Public Interface ComunicacionCiudadesI
2. 
   
3. 'Definicion de los metodos que va a contener la interface
4. Sub ComunicaString(ByVal Texto As String, ByVal id As String)
5. Sub ComunicaDataSet(ByVal DataSet As DataSet)
6. Sub ComunicaListaString(ByVal Lista As List(Of String))
7. 
   
8. End Interface

Implementacion en el form transmisor

1. If DevolverSeleccion = True Then 'Si hay que retornar
2. Dim _formInterface As ComunicacionCiudadesI = _
3. TryCast(Me.Owner, ComunicacionCiudadesI)
4. If (Me.Owner IsNot Nothing) Then
5. 
   
6. If (Me.Owner.GetType Is GetType(frmABMClientes)) Then
7. 'Si han llamado desde el Formulario de tipo frmABMClientes
8. 
   
9. 'Devolución de la informacion
10. 'Envia el listado de ciudades actualizado
11. Dim Ciudades As New CiudadesBO
12. _formInterface.ComunicaDataSet(Ciudades.SelectAll())
13. 'Envia la ciudad seleccionada
14. _formInterface.ComunicaString( _
15. dgvCiudades.Item("NOMBRE", dgvCiudades.CurrentRow.Index).Value(), _
16. dgvCiudades.Item("ID", dgvCiudades.CurrentRow.Index).Value())
17. 
    
18. End If
19. End If
20. 
    
21. End If

En el form receptor

1. Public Class frmABMClientes
2. 
   
3. 'Implementacion en el formulario que recibe la informacion
4. Implements ComunicacionCiudadesI
5. 
   
6.  
7. 
   
8. #Region "Implementacion de Interfaces - ComunicacionCiudadesI Members"
9. 'Implementacion de todos los subs de la interface que se hereda
10. 'Se usen o no hay que implementarlos igual
11. Public Sub sbrActualizarCiudades(ByVal DataSet As DataSet) Implements ComunicacionCiudadesI.ComunicaDataSet
12. 
    
13. '    Asigna el DataSource al combobox
14. txtCiudad.DataSource = DataSet.Tables(0)
15. txtCiudad.DisplayMember = "NOMBRE"
16. txtCiudad.ValueMember = "ID"
17. 
    
18. End Sub
19. 
    
20. Public Sub sbrSeleccionaCiudad(ByVal texto As String, _
21. ByVal codigo As String) Implements ComunicacionCiudadesI.ComunicaString
22. 
    
23. txtCiudad.Text = texto
24. txtCiudad.SelectedValue = codigo
25. 
    
26. End Sub
27. 
    
28. Public Sub sbrRecibeListaCiudades(ByVal Lista As List(Of String)) Implements ComunicacionCiudadesI.ComunicaListaString
29. End Sub
30. 
    
31. #End Region