Asi invoco al form:
Código:
En el form:Dim frmAdmTipo As frmAdmTipo = frmAdmTipo.Instance frmAdmTipo.MdiParent = Me frmAdmTipo.Show()
Código:
No se como ahora enviarle los parametros tabla y tipo.Public Class frmAdmTipo Public _Tipo As String = Nothing Public _Tabla As String = Nothing Public _CodigoTipo As Integer = Nothing 'Variable pública. Private Shared ChildInstance As frmAdmTipo = Nothing 'controla que sólo exista una instancia del formulario. Public Shared Function Instance() As frmAdmTipo If ChildInstance Is Nothing OrElse ChildInstance.IsDisposed = True Then ChildInstance = New frmAdmTipo End If ChildInstance.BringToFront() Return ChildInstance End Function Public Sub New(Optional ByVal Tipo As String = Nothing, Optional ByVal Tabla As String = Nothing) InitializeComponent() _Tipo = Tipo _Tabla = Tabla Me.Text = " Administración - " & _Tipo Me.dgvTipo.Columns.Item(1).HeaderText = _Tipo End Sub
Alguna sugerencia por favor, gracias.