Fermeture de form étrange

Version imprimable

Bonjour,

Voilà j'ai un formulaire frmLstRepertoire contenant un datagridview, lorsque l'utilisateur double click, j'ouvre un formulaire frmAjoModRepParticulier pour modifier un enregistrement:
Code:

1 2 3 4 5 ' Instancier le formulaire et l'ouvrir Dim frmAjoMod As Form frmAjoMod = New frmAjoModRepParticulier(frmAjoModRepParticulier.lstTypeOuverture.ModeModifier, FctRetourneID) frmAjoMod.ShowDialog()
frmAjoModRepParticulier.lstTypeOuverture.ModeModifier et FctRetourneID me sert juste d'arguments dans le formulaire (mode modification d'un enregistrement, Id de l'enregistrement à modifier)

Jusque là tout va bien. Par contre, lorsque je ferme le formulaire frmAjoModRepParticulier:
Code:

1 2 Me.Close
:evilred: L'application ferme les deux formulaires frmLstRepertoire et frmAjoModRepParticulier.... :evilred:

Ce que je ne comprends pas, c'est que j'ai un autre formulaire frmLstVehicule qui ouvre un formulaire frmAjoModVehicule de la même manière que le code précédent. La fermeture est également réalisée de la même manière.... Le formulaire frmAjoModVehicule se ferme bien et l'autre frmLstVehicule reste ouvert.... :arf:...

Pourquoi ?:(

Merci

Gwendal

04/04/2007, 11h18
Tnopy

Peut être qu'un

Code:

Call frmAjoMod.Close()

Serait plus judicieux ?
04/04/2007, 11h29
Lunelame

Est-tu sur de faire un appel au second formulaire en showdialog() ou fait un appel en Show() ?

D'autre part, je te déconseille de faire ce que tu fait. Lors de la fermeture de ton premier formulaire, dans l'événement de fermeture, appel la fermeture de ton second formulaire.

@ +
04/04/2007, 22h17
Gdal
Salut,

On doit pas se comprendre.

J'ai un formulaire FrmA qui ouvre un autre formulaire FrmB, comme ceci
Code:

1 2 3 4 Dim frmAjoMod As Form frmAjoMod = New FrmB() frmAjoMod.ShowDialog()
Le formulaire FrmB est fermé lorsque l'utilisateur clique sur le bouton
Code:

1 2 Me.Close()
Seulement, les 2 formulaires se ferment :arf:

Je m'arrache les cheveux parce que j'ai un formulaire FrmC qui ouvre un formulaire FrmD
Code:

1 2 3 4 Dim frmAjoMod As Form frmAjoMod = New FrmD() frmAjoMod.ShowDialog()
Le formulaire FrmD est fermé lorsque l'utilisateur clique sur le bouton
Code:

1 2 Me.Close()
Et là seul le formulaire FrmD se ferme normalement et c'est le résultat logique et c'est celui que je souhaite avoir.... J'ai fait un essai en faisant ouvrir au formulaire A le formulaire D, et là le deux formulaires se ferment :arf: :evilred:

Pourquoi, et surtout comment résoudre le problème ?

Citation:

D'autre part, je te déconseille de faire ce que tu fait. Lors de la fermeture de ton premier formulaire, dans l'événement de fermeture, appel la fermeture de ton second formulaire.

J'ai pas tout compris :?

Merci

Gwendal
05/04/2007, 00h46
Kelpan
C'est pas très clair ...

Si tu appelles ton formulaire avec Showdialog, ce n'est pas la méthode Close qu'il faut appeler mais plutot :
Code:

1 2 Me.DialogResult = DialogResult.OK ... ou Cancel
En supposant que tu appelles ton formulaire via la méthode ShowDialog et que le bouton de fermeture du formulaire B se trouve bien dans le formulaire B, la seule explication est que tu as obligatoirement une méthode après la méthode ShowDialog qui affiche ton formulaire B qui déclenche le fermeture du formulaire A.
Code:

1 2 3 Dim frmAjoMod As Form frmAjoMod = New FrmB() frmAjoMod.ShowDialog()
Ce code me laisse perplexe ...
Ce code se trouve-il dans le formulaire A ?

frmAjoMod ne serait-elle pas la variable qui te sert à instancier ton formulaire A, des fois ?

:arf: :arf: :arf:

:aie: :aie: Pourquoi j'ai pas suivi le pas à pas plutôt !!:aie: :aie:

Code:

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
 
Private Sub dgvBase_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles EditerToolStripButton.Click, dgvBase.DoubleClick
 
        Try
 
            Select Case strTypeOuverture
 
                Case lstTypeOuverture.AjouterModifierRepertoire
 
                    Select Case strTypeRepertoire
 
                        Case lstTypeRepertoire.Particulier
 
                            ' Instancier le formulaire et l'ouvrir
                            Dim frmAjoMod As Form
                            frmAjoMod = New frmAjoModRepParticulier(frmAjoModRepParticulier.lstTypeOuverture.ModeModifier, FctRetourneID)
                            frmAjoMod.Owner = Me
                            frmAjoMod.ShowDialog()
 
                        Case lstTypeRepertoire.Societe
 
                            ' Instancier le formulaire et l'ouvrir
                            Dim frmAjoMod As Form
                            frmAjoMod = New frmAjoModRepSociete(frmAjoModRepSociete.lstTypeOuverture.ModeModifier, FctRetourneID)
                            frmAjoMod.Owner = Me
                            frmAjoMod.ShowDialog()
 
                    End Select
 
                Case lstTypeOuverture.SelectionDansRepertoire
 
                    ' Retourne dans le formulaire ouvrant, l'Id de la ligne sélectionnée
                    ' afin qu'il puisse charger une instance de la classe répertoire.
                    Dim frmOuvrant As frmAjoModVehicule
                    frmOuvrant = CType(Me.Owner, frmAjoModVehicule)
                    frmOuvrant.ChargerClFrmRepertoire(FctRetourneID)
 
            End Select
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, ex.Source, MessageBoxButtons.OK, MessageBoxIcon.Stop)
 
        Finally
            ' Fermer le formulaire
            'Me.Close()
 
        End Try
 
    End Sub

La petite ligne

Code:

1
2
3
 
            ' Fermer le formulaire
            Me.Close()

Faudrait regarder plus loin que le bout de son nez !

Voilà désolé pour le dérangement....

Gwendal