Torna al Thread
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Application.DoEvents()
LBL_Stato.BeginInvoke(New InvokeDelegate(AddressOf AggiornaStatoDaServizio))
Dim demoThread As Thread = Nothing
demoThread = New Thread(New ThreadStart(AddressOf AggiornaStatoDaServizio))
demoThread.Start()
End Sub
Public Sub AggiornaStatoDaServizio()
LBL_Stato.BeginInvoke(New InvokeDelegate(AddressOf invokeMethod))
ProgressBar1.BeginInvoke(New InvokeDelegate(AddressOf invokeMethod))
Me.ProgressBar1.Value = s.GetStatoUpload(FTPguid)
End Sub
Private Sub invokeMethod()
Me.LBL_Stato.Text = My.Resources._FRM_EsportazioneDati.Aggiornamentotabella & ObjExport.NomeTabella & My.Resources._FRM_EsportazioneDati.record & ObjExport.IndexArrivato & My.Resources._FRM_EsportazioneDati.di & ObjExport.NumRecordTabella
End Sub