[VB] Realizzare un timeout, come?

[Matrixbob]

Esegui questa istruzione in tot tempo, altrimenti esci o continua.

Cosa si può usare per esprimere questo comando?

Ho trovato qualcosa, ma non capisco come funzionano:
TimeSpan
Uso del timeout

[Matrixbob]

In pseudo-linguaggio:

entro il timeout prova ad eseguire quanto segue;
Dim LogRes As Boolean = oLib.Logon(par1, par2, par3, par4)
fine del blocco da eseguire entro il timeout.

[MarcoGG]

Tecniche possibili ce ne sono parecchie. Una delle più immediate ( che in pratica rispetta grosso modo il tuo pseudo-codice ) è l'utilizzo di un Thread separato in cui puoi gestire una semplice Sub, o un qualunque metodo di una classe, ad esempio :

    Private Sub NomeMetodo()

        My.Computer.FileSystem.CopyDirectory("C:\TEST_Sorgente", "C:\TEST_Destinazione")
        MsgBox("NomeMetodo Completato")

    End Sub

Cerco di fare una copia di una dir, ma voglio che l'operazione sia comunque interrotta entro e non oltre un TimeOut di 2 secondi, perciò :

> TimeOut espresso direttamente in millisecondi :

        Dim timeOutMSecs As Integer = 2000 ' Millisecondi TimeOut 
        Dim THD As New System.Threading.Thread(AddressOf NomeMetodo)
        THD.Start()
        If THD.Join(timeOutMSecs) = False Then
            THD.Abort()
            MsgBox("TimeOut [" & timeOutMSecs & "] Raggiunto.")
        End If

> oppure con un TimeSpan :

        Dim timeOutMSecs As Integer = 2000 ' Millisecondi TimeOut 
        Dim THD As New System.Threading.Thread(AddressOf NomeMetodo)
        THD.Start()
        If THD.Join(TimeSpan.FromMilliseconds(timeOutMSecs)) = False Then
            THD.Abort()
            MsgBox("TimeOut [" & timeOutMSecs & "] Raggiunto.")
        End If

Ovvio che così, se il metodo coinvolge oggetti e controlli del Thread chiamante, si incorre in un'eccezione Cross-Thread, ma non è nè il tuo caso, nè quello del mio esempio.

Per un esempio pratico di come funzionano i TimeSpan, dai un'occhiata anche qui :
http://www.hwupgrade.it/forum/showthread.php?t=1887994
[ mio post #6 ]

[Matrixbob]

Originariamente inviato da MarcoGG

Tecniche possibili ce ne sono parecchie. Una delle più immediate ( che in pratica rispetta grosso modo il tuo pseudo-codice ) è l'utilizzo di un Thread separato in cui puoi gestire una semplice Sub, o un qualunque metodo di una classe, ad esempio :

Private Sub NomeMetodo()
  My.Computer.FileSystem.CopyDirectory("C:\TEST_Sorgente", "C:\TEST_Destinazione")
  MsgBox("NomeMetodo Completato")
End Sub

Cerco di fare una copia di una dir, ma voglio che l'operazione sia comunque interrotta entro e non oltre un TimeOut di 2 secondi, perciò :

> TimeOut espresso direttamente in millisecondi

Dim timeOutMSecs As Integer = 2000 ' Millisecondi TimeOut 
Dim THD As New System.Threading.Thread(AddressOf NomeMetodo)
THD.Start()
If THD.Join(timeOutMSecs) = False Then
  THD.Abort()
  MsgBox("TimeOut [" & timeOutMSecs & "] Raggiunto.")
End If

> oppure con un TimeSpan

Dim timeOutMSecs As Integer = 2000 ' Millisecondi TimeOut 
Dim THD As New System.Threading.Thread(AddressOf NomeMetodo)
THD.Start()
If THD.Join(TimeSpan.FromMilliseconds(timeOutMSecs)) = False Then
  THD.Abort()
  MsgBox("TimeOut [" & timeOutMSecs & "] Raggiunto.")
End If

Ovvio che così, se il metodo coinvolge oggetti e controlli del Thread chiamante, si incorre in un'eccezione Cross-Thread, ma non è nè il tuo caso, nè quello del mio esempio.

Per un esempio pratico di come funzionano i TimeSpan, dai un'occhiata anche qui :
http://www.hwupgrade.it/forum/showthread.php?t=1887994
[ mio post #6 ]