Discussion :

[Au2laDeNosReves]

Bonjour/Bonsoir,

Voilà j'ai un soucis, je vous montre d'abord un tableau hiérarchique de mes forms :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Authentification
	=>MenuPrincipal
		=> Planning
			=> AddEventPlanning
		=> GestionInventaire
			=> AjoutObjetGestionInventaire
				=> AjoutCodeObjetInventaire
			=> ModifContenuObjetInventaire

Bien sur j'ai changé les noms plus avoir un aperçu global du programme

Hors voici mon problème comme le Menu principal après avoir appuyé sur un bouton ne voulait pas afficher la forme j'ai fais ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Public Class MenuPrincipal
    Public FormPlanningBeLoad As New PlanningBE
    Private Sub PlanningBE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanningBE.Click
        Dim FormPlanningBE As New PlanningBE
        FormPlanningBeLoad = FormPlanningBE
        Me.Hide()
        FormPlanningBE.ShowDialog()
    End Sub
End Class

Se qui me permet d'ouvrir une form et de la référencer pour revenir en arrière quand je ferme cette form.

Le seul soucis c'est que au bout d'un certain nombre de form ouvert il me les ouvres en doublon.

Sachant que si je lance l'application directement sans passer par le menu principal donc Planning ou le GestionInventaire ils fonctionnent à la perfection.

J'aurais donc voulu avoir vos conseils par rapport à votre expérience s'il vous plait.

Merci

[charouel]

tu peut metre
Me.visible= False au lieu de Me.Hide

[Au2laDeNosReves]

Merci

Le problème qui se pose en faite c'est que je dois utiliser

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    Private Sub PlanningBE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanningBE.Click
        Dim FormPlanning As New Planning
        FormPlanningLoad = FormPlanning
        Me.Visible = False
        FormPlanning.ShowDialog()
    End Sub

Au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
    Private Sub PlanningBE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanningBE.Click
        Me.Visible = False
        Planning.Show
    End Sub

Je dois créer une nouvelle form a chaque fois au lieu d'utiliser simplement celle déjà existant car le MenuPrincipal ne veux pas l'ouvrir sinon (Car je n'ai pas besoin d'ouvrir plusieurs fois une même forme.)

C'est cela qui m'ennuie

[charouel]

Si tu veux que votre programme soit dans la même forme tu peut utiliser les contrôle user ou les panal et pour afficher ou disparaitre une tel panal ou contrôle user tu peut jouer avec la visibilité $
panal1.visible=true
panal2.visible=false
ici l'interface du panal1 s'affiche et vis vers ca

[Au2laDeNosReves]

Cela ne change rien il cache le menu principal mais ne veux pas afficher les autres forms je ne comprend pas trop pourquoi

[Au2laDeNosReves]

Voici se que je dois faire se que je trouve pas pratique du tout

MenuPrincipal :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    Public FormPrincipal As New Form
 
    Private Sub PlanningBE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlanningBE.Click
        Dim PlanningBE As New PlanningBE
        FormPrincipal = PlanningBE
        Me.Hide()
        PlanningBE.ShowDialog()
    End Sub

PlanningBE :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public FormPlanningBE_LOAD As Form
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim FormAddCmdPlanBE As New AddCmdPlanBE
        FormPlanningBE_LOAD = FormAddCmdPlanBE
        Me.Enabled = False
        FormAddCmdPlanBE.Show()
        FormAddCmdPlanBE.BSearchCommande.Visible = True
        FormAddCmdPlanBE.GBInfo.Visible = False
        FormAddCmdPlanBE.AddCPBESUPP.Visible = False
        FormAddCmdPlanBE.ChBoxBis.Enabled = True
        FormAddCmdPlanBE.Flush()
    End Sub

AddCmdPlandBE :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    Private Sub AddCmdPlanBe_Closing(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closing
        MenuPrincipal.FormPrincipal.Enabled = True
        MenuPrincipal.FormPrincipal.Show()
    End Sub

Je pense qu'il doit y avoir plus simple au lieu de créer une nouvelle form à chaque fois

[mordrhim]

Bonjour,

Si j'ai bien compris tu veux pouvoir ouvrir des formulaires de manière hiérarchiques. Lorsqu'un formulaire "Fils" s'ouvre, le formulaire "parent" doit se masquer. c'est cela ?

Je travaille actuellement sur un projet qui réagit de cette manière et n'ai pas de problèmes.

Voici un exemple de code.
Premier formulaire (racine) Form1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Hide()
        Form2.ShowDialog()
        Me.Show()
    End Sub
End Class

Le clic sur le bouton ouvre un formulaire Form2 tout en marsquant le formulaire 1, c'est à dire la fenêtre mais aussi son icône dans la barre des taches.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Public Class Form2
    Private cpt As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tb As TextBox = New TextBox
        Me.Controls.Add(tb)
        tb.Location = New System.Drawing.Point(10, cpt * 25 + 5)
        tb.Size = New System.Drawing.Size(50, 20)
        tb.Name = "t" & cpt
        cpt += 1
        tb.Text = cpt
    End Sub
End Class

Le clic sur le bouton du formulaire 2 ajoute des textBox.

Lorsque je ferme le formulaire 2, le formulaire 1 apparait à nouveau. Si je clique sur le bouton une nouvelle fois, il se masque et affiche le formulaire 2 dans l'état oû il était avant sa fermeture.

En espérant t'avoir aidé, n'hésite pas à préciser ton besoin si j'ai répondu à côté.

[charouel]

Alors la Utilise le SplitContainer veaux mieux pour mettre le menu dans le panel1 et les autre panels dans le panel2 sans utiliser une gestion pour le menu