Vom FileSystemWatcher auf Control zugreifen (ThreadCross)

Public Class Form1

    Public Delegate Sub ChangeTextDelegate _

   (ByVal What As String)

    Private FSW As New FileSystemWatcher()

    'Hier werden die Eigenschaften für das

    'FileSystemWatcher Objekt festgelegt

    Private Sub Form1_Load(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles MyBase.Load

        FSW.Path = "D:\"

        FSW.NotifyFilter = NotifyFilters.DirectoryName

        FSW.IncludeSubdirectories = True

        AddHandler FSW.Renamed, AddressOf OnRenamed

        FSW.EnableRaisingEvents = True

    End Sub

    'Das ist das Event für den FileSystemWatcher (Renamed-Event)

    Private Sub OnRenamed(ByVal source As Object, _

    ByVal e As RenamedEventArgs) '(FSW Thread)

        'Hier wird über die Invoke Methode ein Zugriff von diesem

        'Thread auf dem Hauptthread erstellt

        Dim Tmp As ChangeTextDelegate = _

        New ChangeTextDelegate(AddressOf ChangeTextSub)

        Label1.Invoke(Tmp, New Object() {e.OldFullPath})

    End Sub

    'Das ist die Methode um die Eigenschaft zu verändern

    Private Sub ChangeTextSub(ByVal What As String) '(Hauptthread)

        Label1.Text = What

    End Sub