[VB.net] Thread avec paramètres

Version imprimable

19/04/2005, 16h29
WriteLN

[VB.net] Thread avec paramètres
Bonjour,

J'essaie désespérément de lancer une fonction avec paramètres dans un thread:
Code:

1 2 3 Dim myThread As New System.Threading.Thread(AddressOf update_itemLocation(a,b)) myThread.IsBackground = True myThread.Start()
Code:

1 2 3 Private Sub update_itemLocation(ByVal cur_item As String, ByVal cur_location As String) 'Mise à jour de l'article End Sub
Je reçois une erreur du compilateur me signalant que je ne peux pas donner de fonction avec des paramètres à adsressof.

Quelqu'un connaît-il un moyen de passer des paramètres à mon thread d'une manière ou d'une autre?

Merci d'avance
19/04/2005, 16h39
ld9474

Effectivement tu ne peux pas passer de paramètres.
Tu peux en revanche accéder à des variables dans la classe que tu peux affecter avant de lancer ton thread.

Tiré de la future faq VB.NET

Citation:

Le délégué System.Threading.ThreadStart utilisé pour les fonctions de thread ne prend pas de paramètres.<br/>
Passer des paramètres à un Thread revient donc à faire une classe contenant des variables ou acceuillir les paramètres.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
 
Imports System.Threading
 
Public Class ThreadsForm
    Inherits System.Windows.Forms.Form
 
    ' ........
 
    'premier Thread de calcul
    Private _threadCalculs1 As Thread
    'Evenement pour signaler la fin des threads de Calcul
    Private _endThreadCalculsEvent As New ManualResetEvent(False)
 
    'Classe ThreadCalculs
    Private Class ThreadCalculs
 
        'form parente
        Private _frm As ThreadsForm
        'temporisation
        Private _tempo As Integer
 
        'Constructeur. frm et tempo sont les paramètres de notre Thread
        Public Sub New(ByVal frm As ThreadsForm, ByVal tempo As Integer)
            _frm = frm
            _tempo = tempo
        End Sub
 
        'Fonction du Thread
        Public Sub ThrFunc()
            Try
                _frm.Calculs(_tempo)
            Catch ex As Exception
                Debug.WriteLine(ex.ToString())
            End Try
        End Sub
 
    End Class
 
    'Calculs
    Private Sub Calculs(ByVal tempo As Integer)
 
        While Not _endThreadCalculsEvent.WaitOne(tempo, False)
            'Calculs fais ici .....
        End While
 
    End Sub
 
    'Démarrage du thread
    Private Sub StartThread()
 
        Dim myThreadObj As New ThreadCalculs(Me, 1000)
        _threadCalculs1 = New Thread(AddressOf myThreadObj.ThrFunc)
        _threadCalculs1.Name = "Thread1"
        _threadCalculs1.Start()
 
    End Sub

19/04/2005, 17h03
WriteLN

C'était bien ma prmière impression, passer par une classe.

Merci beaucoup pour votre aide.
19/04/2005, 17h42
abelman

Citation:

Envoyé par WriteLN

C'était bien ma prmière impression, passer par une classe.

Merci beaucoup pour votre aide.

Bouton Résolu svp [en bas à gauche] :wink: