MultipleFileSystemWatcher während Event keine lokalen Variablen zur Verfügung?

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Deathmean.

    MultipleFileSystemWatcher während Event keine lokalen Variablen zur Verfügung?

    Hi,
    ich hab mir mit Hilfe von [VB 2008] MultipleFileSystemWatcher eine Klasse MultipleFileSystemWatcher gebastelt:

    VB.NET-Quellcode

    1. Imports System.IO
    2. Imports System.ComponentModel
    3. Public Class MultipleFileSystemWatcher
    5. Public Event Created As EventHandler(Of FileSystemEventArgs)
    6. Private lWatcher As List(Of FileSystemWatcher)
    8. Public Sub New()
    9. lWatcher = New List(Of FileSystemWatcher)
    10. End Sub
    12. Public Sub New(ByVal Paths() As String)
    13. Me.New()
    15. For Each Path As String In Paths
    16. Me.AddPath(Path)
    17. Next
    18. End Sub
    20. Public Sub New(ByVal Paths() As String, ByVal Pattern As String)
    21. Me.New()
    23. For Each Path As String In Paths
    24. Me.AddPath(Path, Pattern)
    25. Next
    26. End Sub
    28. Public Sub AddPath(ByVal Path As String)
    29. Me.AddPath(Path, "*.*")
    30. End Sub
    32. Public Sub AddPath(ByVal Path As String, ByVal Pattern As String)
    33. lWatcher.Add(NewWatcher(Path, Pattern))
    34. End Sub
    36. Public Sub RemovePath(ByVal Path As String)
    37. For Each fsw As FileSystemWatcher In lWatcher
    38. If fsw.Path = Path Then
    39. lWatcher.Remove(fsw)
    40. End If
    41. Next
    42. End Sub
    44. Public Sub RemoveAll()
    45. lWatcher.Clear()
    46. End Sub
    48. Private Function NewWatcher(ByVal Path As String, ByVal Pattern As String) As FileSystemWatcher
    49. Dim fsw As New FileSystemWatcher(Path, Pattern)
    50. AddHandler fsw.Created, AddressOf fswCreated
    52. fsw.EnableRaisingEvents = True
    54. Return fsw
    55. End Function
    57. Private Sub fswCreated(ByVal sender As Object, ByVal e As FileSystemEventArgs)
    58. OnEvent(sender, e, CreatedEvent)
    59. End Sub
    61. Private Sub OnEvent(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs, ByVal [event] As System.Delegate)
    62. Form1.mfsw_ausgelöst(e.FullPath)
    63. End Sub
    64. End Class


    In meinem Hauptcode sieht es dann so aus:

    VB.NET-Quellcode

    1. Private WithEvents mfsw As New MultipleFileSystemWatcher
    2. Dim alle_von As New List(Of String)
    3. Dim alle_nach As New List(Of String)
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. alle_von.Add("test")
    7. alle_nach.Add("test2")
    8. End Sub
    10. Public Sub mfsw_ausgelöst(ByVal pfad As String)
    11. MsgBox(alle_von(0))
    12. End Sub


    Aber solange ich in dieser Sub bin sind alle lokalen Variablen leer. Wenn ich da nach das z.B. mit einem Button teste steht wieder was drinne.

    Wo ist der Fehler?

    Deathmean schrieb:

    VB.NET-Quellcode

    1. Private Sub OnEvent(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs, ByVal [event] As System.Delegate) Form1.mfsw_ausgelöst(e.FullPath) End Sub
    Das geht vor die Hose.
    Du benötigst eine Instanz von Form1:

    VB.NET-Quellcode

    1. Dim frm As New Form1
    2. ' oder
    3. CALL_TO_CLASS(Me)
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    So wie ich mich an meinen Code erinnern kann steht im OnEvent Sub was anderes drin als bei dir.

    Wenn du etwas an der Klasse änderst und es dann nicht mehr funktioniert darfst du dich nicht Wundern. Die Klasse ist so wie sie ist voll funktionsfähig und man sollte nur drim rumfummeln wenn man auch weiß was man tut.

    Mit Events hast du wohl auch noch nicht gearbeitet. Also stelle die Klasse mal wieder so her wie im Original und dann mache dein FormCode

    VB.NET-Quellcode

    1. Private WithEvents mfsw As New MultipleFileSystemWatcher
    2. Dim alle_von As New List(Of String)
    3. Dim alle_nach As New List(Of String)
    5. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. alle_von.Add("test")
    7. alle_nach.Add("test2")
    8. End Sub
    10. Public Sub mfsw_ausgelöst(ByVal pfad As String) mfsw.Created
    11. MsgBox(alle_von(0))
    12. End Sub