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