[VB.NET] MainMenu qui ouvre des forms...

**Pleymo** · 05/10/2005, 03h07

Bonjour,

J'ai un MainMenu avec plusieurs choix. Chacun de ses choix correspondent à une form que j'ai préalablement ajouter a mon projet.

Je désire que quand je clic sur un choix de mon menu la bonne form sois afficher.

sauf que quand je clic... ma form saffiche bien mais cest une de plus qui souvre et non celle du depart qui es actualiser sur la bonne form choisi...

Aurais-je oublier un details?

Code :

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

1
2
3
4
Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Dim AffChambres As New AffChambres
        AffChambres.Show()
    End Sub

Merci à tous!!

**Pleymo** · 05/10/2005, 03h58

j'aurais p-e une solution mais je sais pas s'il y en aura une de plus simple que de faire a chaque fois que j'ouvre une form faire un

Code :

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

me.hide()

qu'en pensez vous?

merci!

**Pleymo** · 05/10/2005, 05h01

je ne crois pas que c'est la meilleure méthode car quand je clic par exemple sur le "X" mon prog roule encore à cause qu'il y a des form de caché....

je crois donc que je doit avoir une autre solution que celle ci...

merci!

**guillaume1998** · 05/10/2005, 09h08

tout en haut dans les declarations :

Code :

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

Dim FormOuverte As New TaForm

dans le bouton qui l'ouvre:

Code :

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

1
2
3
4
5
6
If FormOuverte.IsHandleCreated = True Then
            FormOuverte.Show()
        Else
           FormOuverte.Show()
        End If
        FormOuverte.Focus()

dans l'evenement form_closing de FormOuverte:

Code :

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

1
2
3
Private Sub FormOuverte_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.Hide()
    End Sub

Perso j'utilise ce code dans une appli pour une fenetre de log et sa marche bien.Sauf que l'evement me.hide je l'ai pas mit dans form_closing mais dans un boutton.

**Pleymo** · 05/10/2005, 18h16

merci mais quelques question..

quand tu dit

dans le bouton qui l'ouvre:

Code :

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

1
2
3
4
5
6
If FormOuverte.IsHandleCreated = True Then 
            FormOuverte.Show() 
        Else 
           FormOuverte.Show() 
        End If 
        FormOuverte.Focus()

pkoi dans un ou lautre des cas tu fais un "formouverte.show" quand meme est ce que ce ne serai pas redondant par hasard?

et puis le "formouverte.focus"...??? a quoi ca sert exactement...?

merci beaucoup!

**guillaume1998** · 05/10/2005, 18h42

oue effectivement il sert a rien le if mais bon c'etait pour ajouter des truc apres c'est pour sa ^^

sinon formouverte.focus sa sert a donner le focus a la fenetre donc a l'afficher devant les autres

**neguib** · 05/10/2005, 18h48

Je verrai plutôt

Code :

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

1
2
3
 
Private WithEvents maForm1 As Form1
'...etc...

Code :

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

1
2
3
4
 
If Me.maForm1 Is Nothing Then  Me.maForm1 = New Form1()
Me.maForm1.Show()
Me.maForm1.Focus()

**guillaume1998** · 05/10/2005, 20h07

Envoyé par neguib

Je verrai plutôt

Code :

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

1
2
3
 
Private WithEvents maForm1 As Form1
'...etc...

Code :

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

1
2
3
4
 
If Me.maForm1 Is Nothing Then  Me.maForm1 = New Form1()
Me.maForm1.Show()
Me.maForm1.Focus()

chuis desesperer que t'ai toujours solution a tous

Je sais pas comment tu fait loool.

**neguib** · 05/10/2005, 20h46

Envoyé par guillaume1998

chuis desesperer que t'ai toujours solution a tous

Je sais pas comment tu fait loool.

dis-toi que si j'ai de l'expérience, c'est que j'ai dû commettre beaucoup d'erreurs et résolu de nombreux soucis

**Pleymo** · 06/10/2005, 07h09

rebonjour

je veux pas casser votre fun tout les 2 sauf que votre code bien moi ca me crée une nouvelle fenetre et mon autre d'avant reste visible en arriere.. ce que je ne veut pas! lol

dans lfond ca revien exactement a ce que je fesais au debut sauf en paraissant plus "cool" héhé

maintenant je voudrais que mon autre form que jai en dessous ferme quand lautre souvre...

merci!

**Pleymo** · 06/10/2005, 16h48

dans lfond... faudrais juste que je trouve comment lorsque on clic sur le "X" trouver lévénement qui es déclencher... pcq ma vous dire ben franchment....

Code :

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

1
2
Private Sub FormOuverte_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing 
    End Sub

...ca marche pas pentoute!

mon prog reconnais meme pas

System.Windows.Forms.FormClosingEventArgs

Mais

Private Sub FormOuverte_FormClosing

est ce que cest quand lon clic sur le "X" de la form.

merci beaucoup!

**guillaume1998** · 06/10/2005, 17h36

Ben normalement Private Sub FormOuverte_FormClosing c'est lorsque lutilisateur a cliker sur femer

**Pleymo** · 06/10/2005, 17h50

ok...

mais en 2k pour linstant ya rien qui fonctionne! lol

comme je disais plus haut.. il detecte meme pas le

Code :

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

System.Windows.Forms.FormClosingEventArgs

...et je vourais savoir aussi lorsque je vais etre en mesure de trouver la bonne formule... y a til un moyen de dire que lorsque le programme ferme... toute les forms ferme aussi...

au lieu de juste dire me.close faire un genre de AllForms.close lol cest ironique mais je crois que vous comprennez ce que je veux!

merci!

**guillaume1998** · 06/10/2005, 20h01

Tu travaille sous quel framework et avec quel ide???

Normalement quand le programme ferme tout ce ferme automatiquement.

Ya deux possibiliter :

Code :

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

End

Code :

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

Application.Exit()

edit : essaye sa

Code :

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

1
2
3
Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
 
    End Sub

**Pleymo** · 06/10/2005, 22h24

jutilise la version du framework 1.1.4322 SP1
jutilise VS.NET 2003 Enterprise Architect

ouin c ca jme disais me semble que ca ferme le prog mais i veut rien savoir meme si je met application.exit dedans

Code :

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

1
2
3
Private Sub AffChambres_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Application.Exit()
    End Sub

si je garde votre code bizarre...

Code :

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

1
2
3
If Me.AffReserve Is Nothing Then Me.AffReserve = New AffReserve
        Me.AffReserve.Show()
        Me.AffReserve.Focus()

ca m'ouvre une nouvelle form et celle davant reste en arriere plan.. ce que je ne veu pas... je veux en fait que ma form de depart soit actualiser avec celle que je desire...

si je garde ma version

Code :

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

1
2
3
Dim AffReserve As New AffReserve
Me.Close()
AffReserve.Show()

ma form davant se cache et lorsque je clic sur le bouton "X" en haut a droite de ma fenetre qui sest ouverte et bien mon prog roule encore puisque ma forme du depart es hide...

c vraiment dla merde! jcomprend pas pkoi ca me fai ca!!!

jespere que quelqu'un trouvera une solution a mon probleme!!
... je suis convaincu que oui!

merci!

**guillaume1998** · 07/10/2005, 08h16

C'est bon je viens de tester tout et j'ai enfin trouver la solution ^^.C'est sur que sa marche la:

Dans les declarations de la form qui ouvre la seconde form

Code :

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

Dim f2 As New Form2

Dans un boutton ou autre

Code :

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

1
2
 f2.Show()
        f2.Focus()

Dans la form a ouvrir:

Code :

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

1
2
3
4
Private Sub Form2_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Me.Hide()
        e.Cancel = True
    End Sub

Je viens de tester tout marche si ty arrive toujours pas je tenverrai la source.

**guillaume1998** · 07/10/2005, 16h20

alors ty arrive?

**Pleymo** · 08/10/2005, 20h39

salut

merci pour ton aide et ton bon vouloir de réussir à trouver mon trouble.. mais.... cela ne veut toujours pas fonctionner... je ne sais pas si cest moi qui est "noob" ou ben trop "vegde" héhé .

..ou juste mauvais... rofl!

p-e de ton coté ca fonctionne tres bien mais p-e aussi que tu voit pas le bug dont je parle.. si tu veu bien menvoyer ta source jaimerais bien ca...

jattends de tes news!

merci!

**neguib** · 08/10/2005, 21h49

il serait mieux que ce soit Toi qui nous eclaire sur ton code commenté et nous l'envoie

**Pleymo** · 09/10/2005, 03h04

javoue que ca serai mieux!

voici mon code que jai

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Public Class AffChambres
    Inherits System.Windows.Forms.Form
 
    Private WithEvents AffReserve As New AffReserve
 
'Afficher la date dans le label
    Private Sub AffChambres_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DateDuJour As DateTime
        DateDuJour = Now.ToLongDateString
        lb_date.Text = DateDuJour
 
        cbx_chambre.Enabled = False
        rb_toutes.Checked = True
    End Sub
 
    Private Sub rb_une_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb_une.CheckedChanged
        cbx_chambre.Enabled = True
    End Sub
 
    Private Sub rb_toutes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rb_toutes.CheckedChanged
        cbx_chambre.Enabled = False
    End Sub
 
    'Fermeture du programme par le menu
    Private Sub MenuItem8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem8.Click
        Me.Close()
    End Sub
 
    'Afficher l'heure
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        lb_time.Text = TimeOfDay
    End Sub
 
    'Mon code : cachera la form et ouvrira la nouvelle, si clic sur le X... le prog roule encore
    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click
        Dim AffChambres As New AffChambres
        Me.Hide()
        AffChambres.Show()
    End Sub
 
    'Votre code : laisse la form ouverte a l'arriere puis ouvre une nouvelle form à l'avant
    Private Sub MenuItem12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem12.Click
        AffReserve.Show()
        AffReserve.Focus()
    End Sub
 
    'Lors de la fermeture, cacher la présente form
    Private Sub AffChambres_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        Me.Hide()
        e.Cancel = True
    End Sub
End Class

mes 2 menus ouvre soit par mon code la meme form au depart (affchambres) et par votre code une autre form quelconque (affreserve)

voici une partie du code généré utile :

Code :

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

1
2
3
4
5
6
7
8
9
'MenuItem7
'
Me.MenuItem7.Index = 0
Me.MenuItem7.Text = "Affichage des chambres"
'
'MenuItem12
'
Me.MenuItem12.Index = 1
Me.MenuItem12.Text = "Affichage des réservations"