Salve, ho un problema con i thread. Io avrei bisogno di chiamare un thread con un argomento così come si chiama una funzione. Ad esempio:
Chiamato con:codice:Private Function Messaggio(ByVal Testo As String) MsgBox(Testo) End Function
Il mio codice:codice:Messaggio("Ciao")
Vorrei specificare che tutto questo avviene all'interbo di una classe separata rispetto agli altri form.codice:Public Sub ScanFiles() Dim info As New FileInfo("C:\Users\Gianlu\Desktop\Intro.mp3") MsgBox(info.CreationTime) Dim MyString As String = info.CreationTime MsgBox(MyString.Remove(10, 9)) Dim ProcessThread1 As Thread ProcessThread1 = New Thread(AddressOf ProcessDir) ProcessThread1.IsBackground = True ProcessThread1.Start() End Sub Public Sub ProcessDir(ByVal Dir As String) Dim fileEntries As String() = Directory.GetFiles(Dir) For Each fileName As String In fileEntries Form_SearchRecords.ListBox1.Items.Add(fileName & vbCrLf) Form_SearchRecords.lblNoFiles.Text = Form_SearchRecords.ListBox1.Items.Count Next Dim subdirectoryEntries As String() = Directory.GetDirectories(Dir) For Each subdirectory As String In subdirectoryEntries ProcessDir(subdirectory) Next End Sub
Grazie in anticipo

Rispondi quotando