Salut, je note une mauvaise utilisation des with, voici un code plus simple (je ne rentrerai pas dans les détails plus techniques). Bonne prog !
Public Class Form1
Inherits System.Windows.Forms.Form
Public MDIFilleActive As Form2
Private Sub mnuNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)handles mnuNew.Click
MDIFilleActive = New Form2()
with MDIFilleActive
.MdiParent = Me
.Show()
end with
StatusBar1.Text = "NetJoao"
End Sub
Dans la feuille ENFANT :
Public Class Form2
Inherits System.Windows.Forms.Form
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
MdiParent.f.StatusBar1.Text = "NetJoao -- Réussi !!!"
End sub
L'homme était,est et sera un éternel apprenti