Discussion :

[dacid]

Bonjour @ tous,

Je m'évertue depuis un moment à faire du // de façon toute bête:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
...
Dim tArts = Task.Factory.StartNew(Sub()
                                              Arts.GetAll()
                                              setMsg($"Articles chargés: {tblArticles.msgErr}")
                                          End Sub)
..
 
    Sub setMsg(str As String)
...
        If (txtInfos.InvokeRequired) Then txtInfos.BeginInvoke(New setControlStr(AddressOf ctrlAddText), txtInfos, $"{str}{Environment.NewLine}", 1) Else txtInfos.AppendText($"{str}{Environment.NewLine}") ' Gérer les accès concurrentiels.
    End Sub

J'utilise setMsg(...) un peu partout dans mon formulaire.
Des fois dans un Task, des fois non.
Et par moment (c'est aléatoire), il me met ce message d'erreur sur txtInfos.AppendText($"{str}{Environment.NewLine}" :

Code :

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

Impossible d'accéder à un objet supprimé. Nom de l'objet : 'TextBox'

C'est incompréhensible, je n'arrive pas à trouver un cas de figure similaire sur la toile.

Avez vous une idée ?

[François DORIN]

On dirait que la méthode Dispose() de ta TextBox a été appelé. Peux-tu vérifier la prochaine que cela se produit ce que te retourne TextBox.IsDisposed() ?

[dacid]

(re)Salut Dorinf,

Comme tu vois, on dirait qu'une entité divine (le grand hifboul, surement ) ne veux pas que je le fasse ce fichu formulaire, hi.

Ok, je teste ça à prochaine exception, merci pour la piste.

Bon WE !

[dacid]

Salut Dorinf,

En effet, le IsDisposed est à true.
Mais à y penser, c'est moi qui déraille.
En fait, je lance un traitement long en //, et à la fin, j'affiche un message.
Or, le souci apparait lorsque je ferme la fenêtre avant que le traitement ne soit fini.
Le bug est donc logique, il cherche à afficher un message dans un control de la fenêtre alors qu'elle est fermée, donc le control libéré.
du coup, je fais :

Code :

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

1
2
3
4
5
        If (txtInfos.InvokeRequired) Then ' Gérer les accès concurentiels.
            txtInfos.BeginInvoke(New setControlStr(AddressOf ctrlAddText), txtInfos, $"{str}{Environment.NewLine}", 1)
        ElseIf (Not txtInfos.IsDisposed) Then
            txtInfos.AppendText($"{str}{Environment.NewLine}")
        End If

Merci pour ta participation.

[François DORIN]

mais de rien