Problèmes avec les forms en vb.net

Version imprimable

Bonjour/Bonsoir,

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

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:

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

20/11/2009, 13h03
charouel

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

Merci

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

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:

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

20/11/2009, 14h12
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
20/11/2009, 14h33
Au2laDeNosReves

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

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

MenuPrincipal :

Code:

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:

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:

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

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:

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:

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é.

20/11/2009, 15h58
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