none
Invoke erro RRS feed

  • Pergunta

  • Eu estou tenho uma listview em um thead e desejo adicionar valor nela sendo :

    Me.lstvDados.Items.Add(New ListViewItem(New String() {usuarios, "Falha ao enviar, " + erro, datahoraAtual}))
    e estou tentando usar essa função para invokar :
        Private Sub Updatelv(ByVal usuarios As String, ByVal status As String, ByVal datahoraAtual As String)
            If Me.InvokeRequired Then
                Dim args() As String = {usuarios, status, datahoraAtual}
    
                Me.Invoke(New Action(Of String)(AddressOf Updatelv), args)
                Return
            End If
            Me.lstvDados.Items.Add(New ListViewItem(New String() {usuarios, status, datahoraAtual}))
        End Sub
    mas não estou conseguindo, so se eu passar um único parâmetro.

    mensagem de erro 
    • Editado Ran-jj sexta-feira, 21 de abril de 2017 04:41
    sexta-feira, 21 de abril de 2017 04:23

Respostas

  • consegui :)

        Private Delegate Sub ListViewAddItem_delegate(ByVal destinataio As String, ByVal status As String, ByVal hora As String)
    
        Private Sub ListViewAddItem(ByVal destinataio As String, ByVal status As String, ByVal hora As String)
            If Me.lstvDados.InvokeRequired Then
                Dim d As New ListViewAddItem_delegate(AddressOf ListViewAddItem)
                Me.lstvDados.BeginInvoke(d, {destinataio, status, hora})
            Else
                Dim lvi As New ListViewItem(destinataio)
                lvi.SubItems.Add(status)
                lvi.SubItems.Add(hora)
                lstvDados.Items.AddRange(New ListViewItem() {lvi})
                lstvDados.Update()
            End If
        End Sub

    • Marcado como Resposta Ran-jj sexta-feira, 21 de abril de 2017 18:38
    sexta-feira, 21 de abril de 2017 18:38