none
MDI Form chamar função do MDI Child RRS feed

  • Pergunta

  • Bom tenho um MDI Form e nele gostaria de colocar uma toolbar... como os botões de salvar, incluir e etc. Porém não consigo chamar a função do MDI Child, por exemplo quando clicar em Incluir ele teria que chamar no caso esta função do MDI Child

    Private Sub Cmd_Incl_Click()
       Limpa
       Incluir
       Cmd_Incl.Enabled = False
       Cmd_Salv.Enabled = True
       Cmd_Desf.Enabled = True
       Cmd_Dele.Enabled = False
       Cmd_Conc.Enabled = False
    End Sub


    Mais não estou conseguindo fazer isso...

    Agradeço a todos

    Att.

    Vinicius
    domingo, 17 de maio de 2009 02:26

Respostas

  • Vinicius,

    Tente fazer o seguinte quando abrir o mdi child no mdi pai:

    Dim form2 As New Form2()
    form2.MdiParent = Me
    form2.Show()


    Se você quiser chamar uma função do mdi pai no filho, sua função deverá ser publica e você poderá chamar desta forma no filho:

    Dim FormPai As Form1 = CType(MdiParent, Form1)
    FormPai.Funcao()


    Ou quando você quiser chamar uma função publica do filho através do mdi pai:

            'Passando o form filho ativo
    
            If MdiChildren.Length > 0 Then
                If TypeOf ActiveMdiChild Is Form2 Then
                    Dim FormFilho As Form2 = CType(ActiveMdiChild, Form2)
                    FormFilho.FuncaoFilho()
                End If
            End If
    
            'Ou passando o primeiro form filho
    
            If MdiChildren.Length > 0 Then
                If TypeOf MdiChildren(0) Is Form2 Then
                    Dim FormFilho As Form2 = CType(MdiChildren(0), Form2)
                    FormFilho.FuncaoFilho()
                End If
            End If


    Att,
    Paulo R. Pereira - Obs.: Se a resposta foi útil não se esqueça de marcar. Obrigado!
    domingo, 17 de maio de 2009 03:37