Problema con envio de datos

[Dantalian]

Hola señores
Describiré mi problema paso a paso. Estoy creando una aplicación, uno de los formularios es el encargado de controlar los datos de los proveedores, estos datos los manejo mediante un datagrid. He estado creando un código que me permita modificar los datos de una fila seleccionada previamente en el datagrid. El código que he implementado captura los datos del datagrid y los lleva a otro formulario donde se llevara a cabo la edición. Ahi surge mi problema. Cuando hago clic al boton "editar" desde el formulario "proveedores" (este formulario es un formulario hijo), se me abre nuevamente el formulario proveedores pero ya como formulario padre, es decir, se expande en toda la pantalla, y cuando cierro este formulario se me muestra el formulario "editar proveedor" con los datos capturados. Mi código funciona pero no puedo eliminar esa anomalia de que se muestre el formulario "proveedores" como padre. El código que estoy empleando es el siguiente:

Botón editar en el formulario "proveedor":

Código PHP:

  Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Dim frmeditarProveedor As New frmEditarProveedor
        If grdProveedor.RowCount <= 0 Then
            MsgBox("Debe seleccionar un registro ...", MsgBoxStyle.Critical + _
                   MsgBoxStyle.OkOnly)
        Else
            frmeditarProveedor.ShowDialog()
        End If
    End Sub 
   

Los datos del datagrid los envio mediante funciones de este tipo:

Código PHP:

  Public Function getCodPro() As String
        Return grdProveedor.CurrentRow().Cells(0).Value.ToString()
    End Function 
   

Y el código con el recibo los datos en el formulario "editar proveedor":

Código PHP:

  Private Sub llenarProveedores()
 
        Dim xfrmImportarProveedor As New frmProveedor()
        Dim rpta As DialogResult = xfrmImportarProveedor.ShowDialog()
 
        txtCod.Text = xfrmImportarProveedor.getCodPro()
        txtNom.Text = xfrmImportarProveedor.getNomPro()
        txtDir.Text = xfrmImportarProveedor.getDirPro()
        txtTel.Text = xfrmImportarProveedor.getTelPro()
        txtCel.Text = xfrmImportarProveedor.getCelPro()
        txtFax.Text = xfrmImportarProveedor.getFaxPro()
        txtRPM.Text = xfrmImportarProveedor.getRPMPro()
        txtNex.Text = xfrmImportarProveedor.getNexPro()
        txtEma.Text = xfrmImportarProveedor.getEmaPro()
        txtPag.Text = xfrmImportarProveedor.getPagPro()
 
    End Sub 
   

Esta función la aplico al evento Load del formulario "editar proveedor". He descubierto que si elimino la línea

Código PHP:

  Dim rpta As DialogResult = xfrmImportarProveedor.ShowDialog() 
   

Ya no aparece el formulario proveedor maximizado, pero tampoco se llenan los TextBoxs en el formulario editar proveedores. ¿Que está mal en mi código? Ayudenme por favor.

[Trulala de cordoba]

Realmente pueden ser muchas cosas, proba cambiar el orden:

Dim xfrmImportarProveedor As New frmProveedor()
Dim rpta As DialogResult = xfrmImportarProveedor.ShowDialog()

txtCod.Text = xfrmImportarProveedor.getCodPro()


pone así:

Dim xfrmImportarProveedor As New frmProveedor()


txtCod.Text = "Esto es una pruebla"

xfrmImportarProveedor.Show()



Fijate si funciona, a lo mejor no te vienen bien los datos en las propiedades y además primero me parece que debes llenar los texbox y luego mostrar el form

saludos

[Dantalian]

Hola Truala de Cordoba, Ya había intentado lo que me has sugerido, y funciona como si hubiese borrado la línea

Dim rpta As DialogResult = xfrmImportarProveedor.ShowDialog()

Es decir, el formulario modificar proveedores aparece vacío.

[Dantalian]

Hola de nuevo señores.
Ya pude solucionar mi problema, para ello tuve que elaborar nuevos métodos. Los expondre a continuación por si en algún futuro a otra persona se le presenta este mismo problema.

Evento clic del boton que envia los datos de la fila seleccionada al formulario editar proveedor (formulario "proveedor")

Código PHP:

  Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
 
        Dim form_actual As New frmEditarProveedor()
        form_actual.labelkeyid = getCodPro.Trim
        form_actual.labelkeynom = getNomPro.Trim()
        .
        .
        .
 
        form_actual.Show()
    End Sub 
   

Evento Load del formulario "editar proveedor"

Código PHP:

  Private Sub frmEditarProveedor_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txtCod.Text = Me.labelkeyid
        txtNom.Text = Me.labelkeynom
       .
       .
       .
 
    End Sub 
   

Declaro Strings (formulario "editar proveedor")

Código PHP:

  Private _keyid As String
Private _keynom As String
 .
 .
 . 
   

Declaro las funciones que llenaran los textBox con los datos enviados desde el formulario "proveedor" (formulario "editar proveedor")

Código PHP:

   
Public Property labelkeyid() As String
        Get
            Return _keyid
        End Get
        Set(ByVal value As String)
            mLabelText = value
            _keyid = mLabelText
        End Set
    End Property
 
    Public Property labelkeynom() As String
        Get
            Return _keynom
        End Get
        Set(ByVal value As String)
            mLabelText = value
            _keynom = mLabelText
        End Set
    End Property
.
.
.