Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

vasco16

Menus sobrepostos

Mensagens Recomendadas

vasco16    0
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:

fghtuloy.png

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Soulsick    1
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.  :-[

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vasco16    0
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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vasco16    0
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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vasco16    0
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?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
vasco16    0
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:)

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


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade