Discussion :

[Guyome41]

Bonjour, j'ai une erreur qui apparait à un certain moment dans mon application :
Erreur lors d'un handle de fenêtre

L'application est un simple jeu de lettre mélangé dont il faut retrouver le mot. A chaque nouveau jeu, l'application choisi un mot au hasard et créé dynamiquement des labels (le nombre de label correspond au nombre de lettre du mot).

Voila comment je créé et supprime les composants :

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
        For a = 0 To lstl.Count - 1
            lstl(a).lbl.Dispose()
            Me.Controls.Remove(lstl(a).lbl)
        Next
 
        lstl.Clear()
 
        Dim r As New Random
        Dim m As String = bdd(r.Next(0, bdd.Count - 1))
        Dim i As Int16 = 0
        Dim n As Int16 = m.Count
 
        mot = m
        While m.Count <> 0
            Dim nb As Int16 = r.Next(0, m.Count - 1)
 
            lstl.Add(New lettre With {.number = i, .frm = Me})
            lstl(i).lbl.Text = m(nb)
            lstl(i).add(n)
 
            m = m.Remove(nb, 1)
            i = i + 1
        End While

La class lettre :

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
Public Class lettre
    Public number As Int16
    Public texte As String = ""
    Public frm As New Form1
 
    Public lbl As New Label With {
        .AutoSize = False, .Size = New Size(50, 50), .ForeColor = Color.White,
        .BackColor = Color.CadetBlue, .BorderStyle = BorderStyle.FixedSingle,
        .TextAlign = ContentAlignment.MiddleCenter, .Font = New Font("Consolas", 16)
    }
 
    Public Sub add(ByVal n As Integer)
        Dim x As Int16 = ((750 - (n * 60)) / 2) + (60 * number)
        lbl.Location = New Point(x, 130)
        frm.Controls.Add(lbl)
    End Sub
End Class

D'après mes recherches l'erreur proviens d'un trop grand nombre de composants créé mais je supprime toutes mes labels à chaque nouveau jeu.

Merci d'avance.

[rv26t]

Bonjour,

J'ai pas tout détaillé, mais à chaque création d'une instance de lettre tu crés une nouvelle instance de form1, même si à la suite tu affectes la même instance form1 à la variable .frm de l'instance de cette nouvelle lettre.
Donc à un moment il y a trop de fenêtre form1 crées (et qui ne sont plus référencées directement par une variable de ton programme, mais toujours présente en mémoire).

[Guyome41]

Ah oui merci je viens de voir :

Code :

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

Public frm As New Form1

Je devrais simplement mettre :

Code :

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

Public frm As Form1

Je vérifier quand j'aurai le code sous la main.
Merci

[rv26t]

Je pense que cela devrait effectivement répondre à votre question.

Sinon j'aurai plutôt effectué les suppressions de label ainsi.

Code :

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

1
2
3
4
        For a As Integer = 0 To lstl.Count - 1
            Me.Controls.Remove(lstl(a).lbl)
            lstl(a).lbl.Dispose()
        Next

Un dernier détail, j'aurai mis la déclaration de nb en dehors de la boucle.

Code :

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

1
2
3
        Dim nb As Int16
        While m.Count <> 0
            nb = r.Next(0, m.Count - 1)

[Guyome41]

Merci, je résoud le poste.