Private WithEvents Watcher As New Class_FileSystemWatcher
 
Private Sub Watcher_WatcherMSG(ByVal vf_Action As String, ByVal vf_Target As _
  String) Handles Watcher.WatcherMSG
 
        Timer1.Start() '<- Nicht startender Timer
 
        ReDim Preserve mf_JobCastArray(UBound(mf_JobCastArray) + 1)
 
        mf_JobCastArray(UBound(mf_JobCastArray)) = vf_Action & _
          Microsoft.VisualBasic.Chr(1) & vf_Target
 
End Sub
 
 
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer1.Tick
        '<Visuelle Timeranzeige>
        Static x As Long
        x = x + 1
        Me.Text = x
       '</Visuelle Timeranzeige>
 
       'JobCastArray ohne dopellte Einträge in JobArray kopieren
       'und JobCastArray auf Initial stellen
        Dim lf_Cnt As Long
        ReDim mf_JobArray(UBound(mf_JobCastArray))
 
        For lf_Cnt = LBound(mf_JobArray) To UBound(mf_JobArray)
            If Not mf_JobArray.Contains(mf_JobCastArray(lf_Cnt)) Then
                mf_JobArray(lf_Cnt) = mf_JobCastArray(lf_Cnt)
                ListBox1.Items.Add(mf_JobArray(lf_Cnt))
            End If
        Next
 
        ReDim mf_JobCastArray(0)
    End Sub

Real programmer do not comment their code;
what?s hard to write should be hard to read

Beitrag wurde zuletzt am 04.10.08 um 21:38:12 editiert.