Estou trabalhando numa situação, que requer o uso de multiprocessamento.
Preciso fazer leitura de arquivos e uma porrada de processos que podem tomar algum tempo. Durante este processo, quero exibir uma espécie de janela pro usuário (Aguarde...)
sem comprometer a thread da UI e sem causar aquelas esbranquiçadas que ocorrem quando a interface grafica deixa de ser atualizada.
Entretando, fica dificil saber quando a thread terminou seu trabalho, pois o processo não tem tempo definido e pode variar de acordo com o volume de informações tratadas e da configuração da máquina. Fuçando na internet, eu achei o metodo join, responsável por aguardar o termino do processamento das threads. Entretanto eu sou obrigado a estipular um tempo pra que ele saia do modo de espera e como eu citei antes, o processo pode levar de pouco a muito tempo.
A minha thread executa um método que tem retorno e também não estou conseguindo recuperar a informação deste método. Pesquisei na internet, mas não ficou claro ainda. Não sei como recuperar os dados tratados pela thread.
Minha thread executa um método que captura informações do banco, compara com um arquivo texto e depois retorna um ArrayList
com os dados discrepantes. O problema é preciso saber quando o processo terminou e receber o resultado deste método.
Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
Dim OPF As New OpenFileDialog
Dim Caminho As String
Dim Aviso As New frmWarning
Dim ListaEntradas As ArrayList
If IO.Directory.Exists(Path) Then
Caminho = Path
Else
Caminho = Path.Substring(1, 3)
End If
With OPF
.InitialDirectory = Caminho
.ShowDialog()
End With
Aviso.Show()
Dim compara As New Thread(AddressOf TDNFEntradas)
compara.Start(OPF.FileName)
'ListaEntradas = (E AGORA? COMO RECEBER A LISTA DA THREAD?)
Aviso.Close()
End Sub
Private Function TDNFEntradas(ByVal Endereco As String) As ArrayList
Dim NFentradas As New ArrayList
Dim Mensagem As New frmWarning
Dim Lista As New ArrayList
HabilitarControlesNF(False) ' Desabilita controles do formulario
NFentradas = CapturarNotas(Endereco, 0) ' Carrega Numeros das Notas dentro de um arrayList
Lista = CompNotasEntrada(NFentradas) ' Compara dados da lista com o banco e retorna as diferenças numa outra lista
HabilitarControlesNF(True) 'Habilita controles do formulario
Return Lista 'Retorna lista com discrepancias
End Function