Discussion :

[stracoma]

Bonsoir à tous. J'ai besoin de votre aide.
Je suis sous VB 2010
J'ai crée la fenêtre principale Form1 où j'ai mis un bouton, le clic de ce dernier fait apparaître une 2ème fenêtre Form2.
Je veux qu'à l’apparition de Form2, le Form1 devient invisible.
Comment s'y prendre?
Merci

[rv26t]

Bonjour,

Code :

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

1
2
3
        Form1.Visible = False ' Me.Visible = False 
        Dim f As Form2 = New Form2
        f.Show()

Et à la fermeture de Form2 (dans form2) rendre form1 visible.

Code :

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

1
2
3
    Private Sub form2_FormClosed(sender As System.Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        Form1.Visible = True
    End Sub

Mais cela lie les 2 fenêtres. Tu ne peux pas utiliser form2 avec une autre fenêtre.

_________________________________
On peut aussi ouvrir form2 en modal (bloquant pour form1 tant que la fenêtre form2 est ouverte)

Code :

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

1
2
3
4
        Form1.Visible = False
        Dim f As Form2 = New Form2
        f.ShowDialog() ' ouvre form2 et attend la fermeture de form2 avant de continuer
        Form1.Visible = True

Ainsi à la fermeture de form2 le code continu, et rend form1 de nouveau visible.

_________________________________
[Edit]
Afin de compléter un peu le premier cas de figure, pour rendre form2 indépendant, tu peux surcharger son constructeur pour qu'il reçoive une fenêtre en paramètre et rendre la fenêtre appelante visible sur la fermeture de form2.

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 _f As Form
 
    Sub New(f As Form)
        InitializeComponent()
        _f = f
    End Sub
 
    Private Sub form2_FormClosed(sender As System.Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        _f.Visible = True
    End Sub

tu pourrais même rendre form1 invisible dans le new.

et dans form1

Code :

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

1
2
3
        Form1.Visible = False
        Dim f As Form2 = New Form2(Form1)
        f.Show()

[stracoma]

Merci rv26t, mais dès le 1er code je suis coincé (très débutant)
Je détaille. Voilà ma 1ère fenêtre

ma 2ème fenêtre

Normalement, avec ce code:

Code :

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

1
2
3
Private Sub BT_Europe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Europe.Click
        Form2.Show()
    End Sub

Form2 apparaît, mais Form1 reste visible
mais avec votre 1er code:

Code :

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

1
2
3
4
5
  Private Sub BT_Europe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Europe.Click
        Form1.Visible = False ' Me.Visible = False 
        Dim f As Form2 = New Form2
        f.Show()
    End Sub

ça donne une erreur

Pouvez-vous m'aider? merci

[rv26t]

Le message d'erreur indique d'utiliser Me à la place. Ainsi il utilise l'instance courante.

Code :

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

1
2
3
4
5
  Private Sub BT_Europe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Europe.Click
        Me.Visible = False 
        Dim f As Form2 = New Form2
        f.Show()
    End Sub

Comment créez-vous Form1 ?

[stracoma]

Il y a toujours erreur (je travaille dans visual 2010)

Code :

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

1
2
3
4
5
 Private Sub BT_Europe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Europe.Click
        Me.Form1.Visible = False ' Me.Visible = False 
        Dim f As Form2 = New Form2
        f.Show()
    End Sub

Erreur:

[wallace1]

Salut stracoma,

rv26t t'explique depuis le début que lorsque tu souhaites faire référence à "Form1" dans "Form1" qu'il te faille utiliser "Me" :
Il y a juste à mettre le commentaire à la place et ça fonctionne .... c'est magique :

Code :

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

1
2
3
4
5
6
 
 Private Sub BT_Europe_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Europe.Click
        Me.Visible = False Me ' Form1.Visible = False 
        Dim f As Form2 = New Form2
        f.Show()
    End Sub

A+

[rv26t]

Tiré de MSDN ; Me : Permet de faire référence à l'instance spécifique d'une classe dans laquelle le code est en cours d'exécution.

Regardez la ligne de code que je vous propose (post4)

Code :

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

        Me.Visible = False

Regardez la ligne que vous avez écrit (post5)

Code :

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

        Me.Form1.Visible = False

Il y a une différence.
Indice : Wallace1 vous indique aussi le problème.


Comment créez-vous Form1 ? Pour la suite cela s'avèrera utile.