Discussion :

[Subkill]

Bonjour,

Mon problème est un peu complexe à mes yeux alors j'espère que je vais être capable de bien l'expliquer.

Quand je clique sur le bouton Démarrer un traitement s'exécute, mais je veux que l'utilisateur puisse cliquer sur Arrêter pour arrêter le traitement, alors je lance mon traitement dans un thread:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Private Sub cmdDemarrer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDemarrer.Click
        nouveauThread = New Thread(AddressOf copiage)
 
        nouveauThread.Start()
    End Sub

Dans mon traitement je modifie mon interface, mais pour ce faire je dois créer un Event. que j'ai fait comme suis:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
    'Modifier le listBox destination
    Private Event lstboxChanged(ByVal table As String, ByVal clear As Boolean)
    Delegate Sub AssignerLstbox(ByVal table As String, ByVal clear As Boolean)
    Private Sub AfficherTable(ByVal table As String, ByVal clear As Boolean) Handles Me.lstboxChanged
 
        If lstDestination.InvokeRequired Then
 
            Dim moi As New AssignerLstbox(AddressOf AfficherTable)
 
            Invoke(moi, New Object() {table, clear})
 
        Else
            If clear Then
                lstDestination.Items.Clear()
            Else
                lstDestination.Items.Add(table)
            End If
 
        End If
 
    End Sub

Et je lance un RaiseEvent lstboxChanged(strNomTable, False) pour modifier mon listbox.


Cependant je dois maintenant utiliser une fonction d'une dll (que j'ai accès au code) et dans cette fonction je voudrais pouvoir modifier un élément de mon interface.

Alors je me demande comment faire?

Voici ce que j'ai fait mais ça ne fonctionne pas.
DANS maDLL:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Public Event modifierProgressB(ByVal pourcentage As Double, ByVal pb As Windows.Forms.ProgressBar)
Protected Overloads Function ImporterR() As Integer
                RaiseEvent modifierProgressB(intCpt / nbEnr * 100, progressBarre)
 
End Function

DANS MON frmPRINCIPALE:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Imports maDLL
Public Class frmPrincipale
    Delegate Sub AssignerProgressT(ByVal progression As Double, ByVal pb As Windows.Forms.ProgressBar)
 
    Private Sub AfficherProgressT(ByVal progression As Double) Handles maDLL.modifierProgressB
 
        If pgbTable.InvokeRequired Then
 
            Dim moi As New AssignerProgressT(AddressOf AfficherProgressT)
 
            Invoke(moi, New Object() {progression})
 
        Else
 
            pgbTable.Value = CInt(progression)
 
        End If
 
    End Sub
End Class

J'ai une erreur sur maDLL dans frmPrincipale....

Je suis à bout c'est vendredi, pte que je vais trouver de quoi lundi.

Merci d'y jeter un coup d'oeil.

[tomlev]

J'ai une erreur sur maDLL dans frmPrincipale....

quelle est le message d'erreur ? maDLL, c'est le namespace de ta DLL ?
à mon avis c'est le "Handles maDLL.modifierProgressB" qui pose problème. Essaie plutôt d'assigner le handler dynamiquement:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
AddHandler maDLL.modifierProgressB, AddressOf(Me.AfficherProgressT)

EDIT: en fait je viens de voir l'erreur: ton delegate prend 2 paramètres, et ta méthode AfficherProgressT n'en prend qu'un...

[Subkill]

En effet tu as bien vu, il manquait un paramètre. Mais le problème est toujours là.

Voiçi le message d'erreur:
La clause Handles requiert une variable WithEvents définie dans le type conteneur ou l'un de ses types de base.

Je ne comprends pas ce que ça veut dire....

P.S. maDLL est le namespace oui.

[tomlev]

Dans un cas comme ça, je suis pas sûr que tu puisses utiliser le mot-clé Handles... enfin je suis pas sûr, je connais pas bien VB, et en C# on n'a pas ces trucs exotiques.
De toutes façons, il manque une instance de classe pour ton évènement...
"maDLL.modifierProgressB" n'a pas de sens: modifierProgressB appartient à une classe, non ? Il faut donc une instance de cette classe. Ca devrait plutôt être "Handles X.modifierProgressB",où X est une instance de la classe qui déclare l'évènement modifierProgressB.

[Subkill]

À partir de mon programme j'appelle un fonction (appelons-la copieDonnees) de maDLL qui fait de la copie de donnée d'une table à l'autre.

Dans copieDonnes, je fais un RaiseEvent modifierProgressB(pourcentage, nomdelaProgressBarÀmodifier) qui appelle l'événement modifierProgressB qui se trouve dans maDLL.

Comment qu'on ajoute le handler dynamiquement?

[tomlev]

À partir de mon programme j'appelle un fonction (appelons-la copieDonnees) de maDLL qui fait de la copie de donnée d'une table à l'autre.

Dans copieDonnes, je fais un RaiseEvent modifierProgressB(pourcentage, nomdelaProgressBarÀmodifier) qui appelle l'événement modifierProgressB qui se trouve dans maDLL.

Oui, mais l'évènement est bien déclaré dans une classe, non ? pas directement dans le namespace maDLL ? Comme je l'ai dit, je connais pas très bien VB, mais dans tous les langages orientés objet que je connais on peut pas déclarer des variables, fonctions ou évènements ailleurs que dans une classe...

Comment qu'on ajoute le handler dynamiquement?

C'est indiqué dans mon premier post (AddHandler...)