Menus sobrepostos

[vasco16]

Boas pessoal para abrir um registo selecionado numa datagrid da minha aplicação tenho este código:

no menu a apresentar dados:

  
Sub mover(ByVal matricula As String)
        matriculatextbox.Text = matricula
        Me.Show()

    End Sub

e no menu a escolher dados (na datagrid):

 Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
        Dim matricula As String
        matricula = DataGridView1.Rows(e.RowIndex).Cells(0).Value
        compras.mover(matricula)
    End Sub

e o que acontece é, quando abro um registo o programa abre-me correctamente o formulario com os dados selecionados mas nao me abre dentro do form principal:

http://img411.imageshack.us/img411/7792/fghtuloy.png

é de referir que estou a trabalhar com mdiparent e mdichild..

[Soulsick]

Pelo que me apercebi do código que colocas-te, não estás a definir o form compras como child do form principal antes de o chamares.

experimenta colocar

compras.MdiParent = Me

antes do

compras.mover(matricula)

espero não me ter enganado ao interpretar o teu código.  ?

[vasco16]

Pelo que me apercebi do código que colocas-te, não estás a definir o form compras como child do form principal antes de o chamares.

experimenta colocar

compras.MdiParent = Me

antes do

compras.mover(matricula)

espero não me ter enganado ao interpretar o teu código.  ?

dá erro: O formulário que foi especificado como sendo MdiParent para este formulário não é um MdiContainer.

Nome do parâmetro: value

[vasco16]

e quando faço por exemplo:

Dim frmOpen As Form = My.Application.OpenForms("compras")

        If frmOpen IsNot Nothing Then

            frmOpen.Dispose()

        End If

        Dim frm As New compras

        frm.Name = "compras"

        frm.MdiParent = Me

        frm.Show()

ele nao me passa os dados.

[Weasel]

nem se meteres frm.matriculatextbox.Text = matricula

[vasco16]

Dim frmOpen As Form = My.Application.OpenForms("compras")

        If frmOpen IsNot Nothing Then

            frmOpen.Dispose()

        End If

        Dim frm As New compras

        frm.matriculatextbox.Text = matricula

        frm.MdiParent = Me

        frm.Show()

assim?

[vasco16]

Dim frmOpen As Form = My.Application.OpenForms("compras")

        If frmOpen IsNot Nothing Then

            frmOpen.Dispose()

        End If

        Dim frm As New compras

        frm.matriculatextbox.Text = matricula

        frm.MdiParent = Me

        frm.Show()

Sim dá obrigado:)

[vasco16]

afinal detectei que ele passa-me para o menu mas nao me mostra os dados

[vasco16]

alguma sugestão?