Delegate combineRésolu

Question

Bonjour, 

Je ne maitrise pas encore complètement la notion de delegate mais dans mon bout de code, 
je fais appel à deux invoke pour mettre à jour 2 objets dans mon IHM.

J'ai vu qu'il y a la possibilité de combiner ces deux appels en un seul.
Comment faire pour combiner ces deux appels, lorsque la méthode SetText doit avoir deux paramètres ?

Merci d'avance.

Private Delegate Sub SetText(obj As Object, txt As String)

Private Sub ProtectedWriteText(obj As Object, txt As String)
    If TypeOf obj Is TextBox Then
        CType(obj , TextBox).Text = txt
    ElseIf TypeOf obj Is Label Then
        CType(obj , Label).Text = txt
    End If
End Sub

Private Sub BtnHomeX_Click(sender As Object, e As EventArgs) Handles BtnHomeX.Click
    Dim thread As New Thread(
        Sub()
            Try
                OperationEnCours = True
                StatusBarLabel1.Text = "Prise d'origine du plateau... axe X"
                Carte.Voie(1).Origine()
                Invoke(New SetText(AddressOf ProtectedWriteText), TxbPosX, "0")  ' TxbPosX.Text = "0"
                Invoke(New SetText(AddressOf ProtectedWriteText), LblConsX, "0") ' LblConsX.Text = TxbPosX.Text
            Catch ex As Exception
                If Carte.PortName = Nothing Then
                    LogTrace.WriteLine("#" + GetCurrentMethod().Name + " : Perte de com avec la carte")
                    MessageBox.Show(Me, " Perte de com avec la carte", "Prise d'origine", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Else
                    LogTrace.WriteLine("#" + GetCurrentMethod().Name + " : " + ex.Message)
                    MessageBox.Show(Me, ex.Message, "Prise d'origine", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            Finally
                OperationEnCours = False
            End Try
        End Sub)
    thread.Start()
End Sub

Whismeril · Answer

Bonsoir,
Comment faire pour combiner ces deux appels, lorsque la méthode SetText doit avoir deux paramètres ?
ton délégué a déjà 2 paramètres, du coup je ne comprends pas ta question

Nardo26 · Answer

J'ai un peu remanier mon code et je constate, que le champs du dernier appel à mon délégué n'est pas rafraichit.

   
Private Delegate Sub SetText(sender As Object, s As String)
 
Private Sub UpdateText(obj As Object, txt As String)
    If obj.GetType() Is GetType(TextBox) Then
        Dim t As TextBox = CType(obj, TextBox)
        If t.InvokeRequired Then
            Invoke(New SetText(AddressOf ProtectedWriteText), obj, txt)
        Else
            t.Text = txt
        End If
    ElseIf obj.GetType() Is GetType(Label) Then
        Dim t As Label = CType(obj, Label)
        If t.InvokeRequired Then
            Invoke(New SetText(AddressOf ProtectedWriteText), obj, txt)
        Else
            t.Text = txt
        End If
    End If
End Sub

Private Sub ProtectedWriteText(objAs Object, txt As String)
    If TypeOf sender Is TextBox Then
        CType(sender, TextBox).Text = t
    ElseIf TypeOf sender Is Label Then
        CType(sender, Label).Text = t
    End If
End Sub


Et mes appels dans un thread se font ainsi :

Dim thread As New Thread(
    Sub()
            OperationEnCours = True
            Try
                LogTrace.WriteLine("Mise en position initiale de la machine")
                Carte.SetEnable(True)

StatusBarLabel1.Text = "Initialisation de la pince..."
                Carte.Voie(3).Origine()
                UpdateText(TxbPosP, "0")
                UpdateText(LblConsP, TxbPosP.Text)

StatusBarLabel1.Text = "Initialisation de l'altitude du plateau..."
                Carte.Voie(2).Origine() ' Plateau Z
                UpdateText(TxbPosZ, "0")

StatusBarLabel1.Text = "Initialisation position plateau..."
                Carte.Voie(1).Origine() ' Plateau X            
                UpdateText(TxbPosX, "0")   ' <--- lui est bien rafraichi
                UpdateText(LblConsX, TxbPosX.Text)  ' <--- Mais pas celui-là

' … etc, etc...
            Catch ex As Exception
                LogTrace.WriteLine("#" + GetCurrentMethod().Name + " : " + ex.Message)
                MessageBox.Show(ex.Message, "Prise d'origine machine", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End Try
            OperationEnCours = False
        End Sub
        )
        thread.Start()

Le dernier appel à UpdateText() est bien réalisé mais pas l'évènement paint associé au Label LblConsX. Si je sors du TabPage qui contient le label LblConsX et que j'y retourne, la valeur a bien été changée…

Petite remarque : je suis obligé de passer par un délégué pour des Label, des textbox, etc mais curieusement pas pour la barre d'état...

Whismeril · Answer

Petite remarque : je suis obligé de passer par un délégué pour des Label, des textbox, etc mais curieusement pas pour la barre d'état... 
 En effet c'est curieux, c'est quoi son type, statusBar ou StatusStrip?

UpdateText(TxbPosX, "0")   ' <--- lui est bien rafraichi
                UpdateText(LblConsX, TxbPosX.Text)  ' <--- Mais pas celui-là

Là ça me parait logique, tu ne dois pas pouvoir lire TxbPosX.Text, si tu écris
 UpdateText(LblConsX, "Coucou")  ça devrait marcher.

Enfin, je ne pense pas que tu aies besoin de combiner des délégués.
InvokeRequired est définie dans la classe Control, donc ceci devrait fonctionner que ce soit un label ou un textbox

Private Sub UpdateText(obj As Object, txt As String)
    If obj.GetType() Is GetType(Control) Then
        Dim t As TextBox = CType(obj, Control)
        If t.InvokeRequired Then
            Invoke(New SetText(AddressOf ProtectedWriteText), obj, txt)
        Else
            ProtectedWriteText(obj, txt)
        End If
    End If
End Sub

Whismeril · Answer

Ha pardon, j’ai fait une erreur en retapant ton code

Private Sub UpdateText(obj As Object, txt As String)
    If obj.GetType() Is GetType(Control) Then
        Dim t As Control = CType(obj, Control)
        If t.InvokeRequired Then
            Invoke(New SetText(AddressOf ProtectedWriteText), obj, txt)
        Else
            ProtectedWriteText(obj, txt)
        End If
    End If
End Sub 

C'est un ToolStripStatusLabel… donc il ne possède pas de méthode InvokeRequired
C’est parce que ce n’est pas un contrôle, il ne dérive pas de la classe Control

Pour l’autre point, là je ne sais pas et je suis sur ma tablette, donc je ne peux pas essayer.

Nardo26 · Answer

Problème résolu : une erreur de ma part. Je ne mettait pas à jour le bon label. Donc forcément je ne voyais pas le rafraichissement de celui auquel je m'attendais…

Merci Whismeril de t'être penché sur mon pb. :)

Whismeril · Answer

De rien

Delegate combine

6 réponses

Votre réponse

Discussions similaires