Discussion :

[omarfla]

Bonjour tout le monde,
Je suis un débutant en monde .NET; pour cela j'ai un problème lors de création d'une instance frmClt As New frmClient ds 1 bouton qui affiche ma feuille frmClient, cependant à chaque clique ma feuille se dipluque !!

Code :

Code :

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

1
2
3
4
5
6
7
8
Private Sub cmdClient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClient.Click                
 
        Dim frmClt as New frmClient
 
        frmClt.MdiParent = Me
        frmClt.Show()
 
End Sub

Y a-t-il une solution pour éviter ça ?

Merci.


Balise [code] rajoutée par Morpheus
Merci d'y penser vous-même à l'avenir

[Thomas Lebrun]

Je te proposes une solution (en C#) : à toi de l'adapter:

Code :

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

1
2
 
frmClient frmClt;

et dans l'envent Click de ton bouton:

Code :

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

1
2
3
4
5
6
 
if ( frmClt == null )
{
       frmClt = new frmClient();
       frmClt.Show();
}

A tester

[omarfla]

Merci pour l'intervention. Voici ainsi le code en VB .NET pour les gens qui peuvent se rencontrer ce problème.

Private Sub cmdClient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClient.Click

Dim frmClt As New frmClient

If frmClt Is Nothing Then
frmClt = New frmClient
frmClt.MdiParent = Me
frmClt.Show()
End If

End Sub

[ld9474]

Ca marche avec ce code? Tu as plusieurs petits soucis:
- Ta variable de type frmClient a une portée locale donc des que la méthode aura fini de s'executer, tu n'accederas plus à sa valeur.
- D'autre part, tu instancie ta variable frmClt avant ton if donc ta variable ne vaut jamais Nothing.
Je ferai plus comme ca:

Code :

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

1
2
3
4
5
6
7
8
9
 
private frmClt As frmClient 
--- Début de ta méthode
If frmClt Is Nothing Then 
frmClt = New frmClient 
frmClt.MdiParent = Me 
frmClt.Show() 
End If 
---- Fin de ta méthode

[omarfla]

1- Pour mon projet, biensur j'ai mit la variable comme étant Public.
2- Par défaut, et avant l'instanciation la valeur de frmClt vaut Nothing puisque on a pas encore crée notre objet, pourtant après qu'on l'instancie sa valeur diffère Nothing. Mais c'est très important d'affecter la valeur Nothing à notre objet frmClt dans l'évenement Closed de frmClient.

Ainsi :

Private Sub frmClient_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed

frmClt = Nothing

End Sub