Application MDI (VB.Net)Résolu

Question

Je suis sur un projet avec un feuille MDI et feuilles Childs.
Sur ma feuille MDI, j'ai un statusbar avec 3 panels.
J'aimerais lorsque je ferme un formulaire enfant modifier le texte du panel 1 par exemple.
Comment dois-je faire ?

NetJoao · Accepted Answer

J'ai enfin trouv&#233; !!!! houra !!!
Merci beaucoup pour ton aide, &#231;a m'a &#233;clair&#233;...
D&#233;tail de ma solution (&#231;a peut &#234;tre utile pour d'autre et &#231;a vient en compl&#233;ment de tes explications):

Dans la feuille MDI :


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()
   MDIFilleActive.MdiParent = 
Me
   MDIFilleActive.Show()

   With 
Me
            .StatusBar1.Text = "NetJoao"

   End 
With
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

         Dim f 
As Form1

         With 
Me
                  f = .MdiParent
                  f.StatusBar1.Text = "NetJoao -- R&#233;ussi !!!"

          End 
With
End s
ub

Encore merci pour ton aide scortex84.

scortex84 · Answer

Hello,

tu passes en parametre ta feuille MDI aux feuilles filles, ou alors tu d&#233;clares une variable public du type : monformMDI as new maformMDI

Sur le close des feuilles mdi, tu fais monformMDI.panel1.text = "Coucou" (je ne sais pas si panel a une propriete texte...)

Bon courage !

Seb.

NetJoao · Answer

Salut,
Merci de t'intéresser à mon problème.
Mais ta réponse ne me convient pas car tu me dis de modifier le panel (il y a une propriété text) à l'évènement close de la feuille MDI. Je ne souhaite pas fermer ma feuille MDI ! 
J'ai ma feuille MDI et dans cette feuille MDI plusieur feuille enfant d'ouverte, je veux sur activation d'une feuille enfant, Modifier mon statusbar.
Comment faire ?
Merci de ton aide...

scortex84 · Answer

Pardon, petit erreur. Pas sur le close de la MDI mais sur le close de ma feuille fille !!! Ou sur l'evenement que tu veux !!! Activate, ou autre.

Voilou en tout cas &#231;a fonctionne !

Bon courage,

Seb.

scortex84 · Answer

Hello,

C'est ce que je t'expliquais, tu t par contre un peu compliqu&#233; la vie... Mais bon, l'essentiel est que cela marche et que tu sois content !

Seb.

NetJoao · Answer

Salut,
Je suis ouvert à une solution plus simple, si tu veux bien ?
NetJoao.

psycho81 · Answer

Salut, je note une mauvaise utilisation des with, voici un code plus simple (je ne rentrerai pas dans les d&#233;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&#233;ussi !!!"

      End s
ub

L'homme &#233;tait,est et sera un &#233;ternel apprenti

psycho81 · Answer

oups ! petite erreur minime !

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.StatusBar1.Text = "NetJoao -- R&#233;ussi !!!" 'le ".f" &#233;tait en trop
      End
 s
ub

L'homme &#233;tait,est et sera un &#233;ternel apprenti

NetJoao · Answer

Salut,
Je suis d'accord avec toi pour le with dans la feuille MDI.
Par contre ton code ne marchera pas dans la feuille enfant. Tu es obligé de déclarer une variable ("f") qui instancie le Form1, sans ça tu n'auras pas la main sur le "StatusBar1" !
J'ai testé ton code dans mon appli. il marche pas !

psycho81 · Answer

J'avoue l'avoir fait &#224; l'oeil, j'ai pas visual studio sous la main. Cependant ne serait pas un truc d'option explicite qui est configur&#233; sur ON ? perso je l'enleve car je trouve ce mode trop contraignant sans aucune tol&#233;rance &#224; l'inconnu et ... &#224; l'erreur (pour certain cette tol&#233;rance &#224; l'erreur est une calamit&#233;, personnelement je la trouve d'une utilit&#233; essentielle dans l'utilisation des HashTable pour stoker des objet de type diff&#233;rents indetermin&#233;) . Cependant je comprends tout &#224; fait que ce code g&#233;n&#232;re une erreur car on travaille sur un System.Windows.forms.form (qui ne contient pas par d&#233;faut de StatusBar1, bien sur ...) . Je me dit donc qu'en le Ctypant ca donnerai ca:

CType(MdiParent,Form1).StatusBar1.Text = "NetJoao -- R&#233;ussi !!!"

ou si on en a une utilisation r&#233;p&#233;t&#233; ca donnerai ca

With Ctype(MdiParent,Form1)

   .StatusBar1.Text = "bla bla"
   .AutreObjet.AutrePropriete = Valeur

End With

Enfin je dis ca sans tester, juste par intuition ... Dans l'histoire on &#233;conomiserai une definition de pointeur (je sais, ca fait gros radin ... mais j'entrevois ca dans une utilisation massive)

Vali vala ... Bonne prog !

L'homme &#233;tait,est et sera un &#233;ternel apprenti

NetJoao · Answer

Merci pour ta participation et il est vrai que l'on apprends tout le temps et de tous....
Bonne prog. !

sktemoyala · Answer

Bonjour

Je voudrais créer une application en vb 2008 en utilisant les mdi forms mais je n'y arrive pas. Votre contribution me sera très utile

Merci

Application MDI (VB.Net)

12 réponses

Discussions similaires