Vb.net WPFディスパッチャーデリゲートメモリリークのヘルプ

Question

私は解決しようとしている問題をテストするために、次のコードを使用しています。

Class MainWindow 
    Dim bw As BackgroundWorker = New BackgroundWorker() 

    Private Sub Window_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) 
     AddHandler bw.DoWork, AddressOf bw_DoWork 
     AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted 

     bw.RunWorkerAsync() 
    End Sub 

    Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) 
     For i As Integer = 0 To 250000 
      Dim d As New test_delegate(AddressOf test) 
      Dispatcher.Invoke(d, " SUPER SUPER SUPERSPERSUPERSUPERvSUPERSUPERSUPERSUPERv LONG Test") 
     Next 
    End Sub 

    Private Delegate Sub test_delegate(ByVal txt As String) 
    Private Sub test(ByVal txt As String) 
     txtTest.Text = txt 
    End Sub 
End Class 

アプリケーションのメモリがゆっくりではあるが顕著にリークします。

作成している各代理人をどのようにクリーンアップ（または処分）しますか？ d.disposeが存在しないため？

ありがとうございました！

Answer 1

私はあなたがグローバルスコープで新しいデリゲートを宣言し、必要に応じて起動した場合、それは、この問題を修正することを考え出し：

Class MainWindow 
    Dim bw As BackgroundWorker = New BackgroundWorker() 

    Private Sub Window_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) 
     AddHandler bw.DoWork, AddressOf bw_DoWork 
     AddHandler bw.RunWorkerCompleted, AddressOf bw_RunWorkerCompleted 

     bw.RunWorkerAsync() 
    End Sub 

    Private Sub bw_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) 
     For i As Integer = 0 To 250000 
      Dispatcher.Invoke(d, " SUPER SUPER SUPERSPERSUPERSUPERvSUPERSUPERSUPERSUPERv LONG Test") 
     Next 
    End Sub 

    Dim d As New test_delegate(AddressOf test) 
    Private Delegate Sub test_delegate(ByVal txt As String) 
    Private Sub test(ByVal txt As String) 
     txtTest.Text = txt 
    End Sub 
End Class