Visual Basic.NET - Formularios - Reutilizacion.

   
Vista:

Formularios - Reutilizacion.

Publicado por Andrés (2 intervenciones) el 18/01/2010 01:20:42
Hola.
Estoy volviendo a programar despues de mucho tiempo por lo que tal vez este preguntando alguna pavada. Igual y desde ya muchas gracias, aca va mi pregunta.

Estoy armandome un programita para mi en vb.net en el que quiero tener un listado de Clientes y uno de proveedores.
Como en principio el form que muestre la lista va a ser el mismo quiero poder reutilizarlo.
entonces cree un formulario FRMVISTA al que llamo desde el menu como

Dim frmClientes As New frmVista
frmClientes.ShowDialog()

o como

Dim frmProveedores As New frmVista
frmProveedores.ShowDialog()

La pregunta es como puedo saber cuando estoy escribiendo codigo en la clase frmVista si llegue alli como frmClientes o frmProveedores ??

Espero se entienda la pregunta.
Desde ya muchas Gracias, Andrés.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Formularios - Reutilizacion.

Publicado por kdlc (69 intervenciones) el 19/01/2010 23:26:45
'FORMULARIO 1 - ESTE FORMULARIO TIENE 2 BOTONES (buttons)
Public Class Form1

Enum FormaTipo
Clientes = 1
Proveedores = 2
End Enum

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim frmClientes As New Form2(FormaTipo.Clientes)
frmClientes.ShowDialog()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim frmClientes As New Form2(FormaTipo.Proveedores)
frmClientes.ShowDialog()
End Sub

End Class

'FORMULARIO 2 - PLANTILLA
Public Class Form2
Private mFormaTipo As Integer = 0

'capturamos el tipo de forma basado en lo que nos ha entregado el programador (1 = clientes, 2 = proveedores)
Public Sub New(ByVal FormaTipo As Integer)
'variable de modulo para atrapar el tipo de forma que el usuario a creado.
mFormaTipo = FormaTipo

' This call is required by the Windows Form Designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'ponemos el tipo de forma creada basado en mFormaTipo
Select Case mFormaTipo
Case 1
Me.Text = "Clientes"
Case 2
Me.Text = "Proveedores"
Case Else
Me.Text = "I don't know"
End Select
End Sub
End Class

Suerte!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar