Originariamente inviato da igeko7
OSP! grazie mille ancora! leggo molti forum ma è il secondo in cui scrivo e sono novizio
Detto ciò vi pongo l'ulteriore problema in cui mi sono imbattuto: il codice funziona ma se richiamo il modulo ogni tot tempo con il timer (e di conseguenza faccio ripassare la lista) questo non si aggiorna, rimostrandomi il file anche se chiuso. Come faccio a cancellare la lista o fare un refresh

codice:
 Public Function TROVA(ByVal FileName As String) As Boolean                      'funzione che controlla se un file è aperto
        Funzioni.Main()
        For i As Integer = 0 To Funzioni.ArrayListEvent.Count - 1
            ListBox1.Items.Add(ArrayListEvent(i).ToString)
            If Funzioni.ArrayListEvent.Item(i).ToString.IndexOf(Path.GetFileNameWithoutExtension(FileName)) <> -1 Then
                Return True
                Exit Function
             End If
        Next
        Return False
end function
Come faccio a fare un refresh della lista attività?
Io avrei risolto temporaneamente così:
codice:
 Public Function TROVA(ByVal FileName As String) As Boolean                      'funzione che controlla se un file è aperto
        Funzioni.Main()                                                             'richiama ilmodulo "funzioni.vb" che crea la lista delle applicazioni aperte
        For i As Integer = 0 To Funzioni.ArrayListEvent.Count - 1                   'fa passare la lista fino a quando trova il nome del file aperto...
            If Funzioni.ArrayListEvent.Item(i).ToString.IndexOf(Path.GetFileNameWithoutExtension(FileName)) <> -1 Then
                Funzioni.ArrayListEvent.Clear()                                     '...interrompe la ricerca e pulisce la lista per riutilizzarla
                For j As Integer = 0 To Funzioni.ArrayListEvent.Count - 1
                    Funzioni.ArrayListEvent.Item(j) = ""
                Next
                Return True                                                         'ritorna TRUE ed esce
                Exit Function
            End If
        Next                                                                        'se non trova il file nella lista, ritorna FALSE
        Return False
    End Function
Soluzioni più eleganti?