[VB.NET] Aprire un Form "MDI Child" da un altro Child

[tony83]

la cosa brutta che per debug ho provato a fare questo nel form di apertura x debug:

            Dim frmNuovaSpesaChild As New frmNuovaSpesa()
            frmNuovaSpesaChild.MdiParent = Me.MdiParent
            If Me.IsMdiChild = True Then
                MessageBox.Show("Me.IsMdiChild = True")
            End If
            If frmNuovaSpesaChild.IsMdiChild = True Then
                MessageBox.Show("frmNuovaSpesaChild.IsMdiChild = True ")
            End If 
            frmNuovaSpesaChild.Show()
            FormNuovaSpesa.CustomerForm = frmNuovaSpesaChild
            FormNuovaSpesa.CustomerForm.int_idStabile = CInt(txtId_stabile.Text)
            Call recuperoIdSocieta()
        Else
            FormNuovaSpesa.CustomerForm.Show()
            FormNuovaSpesa.CustomerForm.int_idStabile = CInt(txtId_stabile.Text)
            Call recuperoIdSocieta()
        End If

entrambi non esegueno le messagebox quindi non sono child di nessuno!!!

[tony83]

Ho aperto un progetto di prova solo per fare queste prove sono riuscito a trovare la soluzione cosi:

nel 1° form (padre)

        If ClasseForm2.CustomerForm Is Nothing Then
            Dim frm2Child As New Form2()
            frm2Child.MdiParent = Me    
         frm2Child.Show()
            ClasseForm2.CustomerForm = frm2Child
        Else
            ClasseForm2.CustomerForm.Show()
        End If

nel 2° form (child)

	If ClasseForm3.CustomerForm Is Nothing Then
            Dim frm3Child As New Form3()
            frm3Child.MdiParent = Me.ParentForm 
            frm3Child.Show()
            ClasseForm3.CustomerForm = frm3Child
        Else
            ClasseForm3.CustomerForm.Show()
        End If

Modulo:

Public Class ClasseForm2
        Private Shared m_CustomerForm As Form2
        Public Shared Property CustomerForm() As Form2
            Get
                Return m_CustomerForm
            End Get
            Set(ByVal Value As Form2)
                m_CustomerForm = Value
            End Set
        End Property
    End Class

    Public Class ClasseForm3
        Private Shared m_CustomerForm As Form3
        Public Shared Property CustomerForm() As Form3
            Get
                Return m_CustomerForm
            End Get
            Set(ByVal Value As Form3)
                m_CustomerForm = Value
            End Set
        End Property
    End Class

[tony83]

devo però aggiungere i 2 form in un pannello contenitore che si trova sul form padre come si fa?

[alka]

Le discussioni non sono il luogo in cui riportare le proprie elucubrazioni per modificare poi la domanda originale. Non ci capisce una mazza, e non è la prima volta che ti viene detto.

[tony83]

Originariamente inviato da alka
Le discussioni non sono il luogo in cui riportare le proprie elucubrazioni per modificare poi la domanda originale. Non ci capisce una mazza, e non è la prima volta che ti viene detto.

Forse sono stato frainteso ma ho gia fatto 250.000 milioni di prove:
form1:

        If ClasseForm2.CustomerForm Is Nothing Then
            frm2Child.MdiParent = Me
            Panel1.Controls.Add(frm2Child)
            frm2Child.Show()
            ClasseForm2.CustomerForm = frm2Child
            MessageBox.Show("Il Form è un Child? " & frm2Child.IsMdiChild)
            MessageBox.Show("Il Form è nel contenitore? " & frm1.Panel1.Contains(frm2Child))
        Else
            ClasseForm2.CustomerForm.Show()
        End If

form2:

If ClasseForm3.CustomerForm Is Nothing Then
            frm3Child.MdiParent = Me.ParentForm
            frm1.Panel1.Controls.Add(frm3Child)             
            frm3Child.Show()
            ClasseForm3.CustomerForm = frm3Child
            MessageBox.Show("Il Form è un Child? " & frm3Child.IsMdiChild)
            MessageBox.Show("Il Form è nel contenitore? " & frm1.Panel1.Contains(frm3Child))
Else
            ClasseForm3.CustomerForm.Show()
End If

e non funge! il form non se vede

[alka]

Originariamente inviato da tony83
Forse sono stato frainteso ma ho gia fatto 250.000 milioni di prove

Sì, una ogni 10 minuti, e le hai postate tutte.

Originariamente inviato da tony83
MessageBox.Show("Il Form è nel contenitore? " & frm1.Panel1.Contains(frm2Child))
[...]
e non funge! il form non se vede

Una Form in un Panel?????

[tony83]

Originariamente inviato da alka
Sì, una ogni 10 minuti, e le hai postate tutte.


Una Form in un Panel?????

:quote:

Anche tu hai ragione...

Ok cancella tutto... Resettiamo.. Cambio la domanda!

Devo creare un Form mdi principale (che sarebbe il meu), però questo menu a sinistra contiene una listview e sopra una toolbar.. Quello che devo fare io è attraverso i pulsanti della toolbar oppure il menu sopra richiamare altri form child che a loro volta richiamano altri form child! Il problema che questi form oltre ad essere mdi devono essere all'interno di uno spazio ben definito e questo spazio sarebbe la parte rimasta non occupata dalla listview e dalla toolbar..

In pratica non solo devono essere mdi ma cmq non deve sovrapporsi allla toolbar sopra e alla listview a fianco.. Devono rimanere in quello spazio li... Ecco perchè l'esistenza di un pannello, i form vengono agganciati li, e non si possono muovere oltre quello spazio!!!

cosa mi consigli? GRazie ciao

[alka]

Originariamente inviato da tony83
Devo creare un Form mdi principale (che sarebbe il meu) [...]

Se quello che stai cercando di fare, semplicemente (si fa per dire), è un'interfaccia "a-la-Outlook", guarda nelle discussioni in rilievo e sul mio blog: c'è un esempio che fa al caso tuo, che coinvolge appunto gli UserControl (così come ti avevo detto all'inizio).

[tony83]

Originariamente inviato da alka
Se quello che stai cercando di fare, semplicemente (si fa per dire), è un'interfaccia "a-la-Outlook", guarda nelle discussioni in rilievo e sul mio blog: c'è un esempio che fa al caso tuo, che coinvolge appunto gli UserControl (così come ti avevo detto all'inizio).

Perfetto!!! controllerò li! ti ringrazio x tutto!

[tony83]

Scusami non riesco a trovare l'articolo per la gestione appunto degli UserControl per interfaccia "a-la-Outlook" ??