• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

vasco16

Menus sobrepostos

9 mensagens neste tópico

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:

fghtuloy.png

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.  :-[

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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:)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora