Добавление текста в представление списка из тем - PullRequest
Новая
       1

Добавление текста в представление списка из тем

1 голос
/ 17 июня 2011

Я новичок в VB и пытаюсь добавить текст из потока в listview в моей форме 1.

Я пытался реализовать метод invokerequired, но новый текст по-прежнему не добавленна мой listview.

(см. Функцию addlvDataItem)

Это то, что я называю в своем классе потока: 

Private Sub DoServerListening()
    'Thread to listen for new incoming socket clients
    Dim mSocket As System.Net.Sockets.Socket
    Dim newConnectionThread As clsTCPConnection
    Dim strRemoteIPAddress As String

    Do
        Try
            While bServerRunning = True
                If mTCPListener.Pending = True Then

                    mSocket = mTCPListener.AcceptSocket()
                    'mSocket.Blocking = True
                    If mSocket.Connected Then
                        strRemoteIPAddress = Split(mSocket.RemoteEndPoint.ToString, ":")(0)
                        newConnectionThread = New clsTCPConnection(mSocket, strRemoteIPAddress)
                        'Start the thread to handle this connection
                        Form1.addlvDataItem("Connected to " & strRemoteIPAddress.ToString(), 0)
                        Dim myThread As New System.Threading.Thread(AddressOf newConnectionThread.HandleConnection)
                        myThread.Start()
                    End If
                End If

            End While
        Catch ex As Exception
            If bServerRunning = True Then
                'notify main application

            End If
        End Try

    Loop

End Sub

, и это то, что я делаю в своем классе Form1 

Public Delegate Sub addlvDataItemCallback(ByVal [text] As String, ByVal Num As Integer)

Public Sub addlvDataItem(ByVal [text] As String, ByVal Type As Integer)
    CurrentDateTime = DateTime.Now

    If lvData.InvokeRequired Then
        Dim d As New addlvDataItemCallback(AddressOf addlvDataItem)
        Me.Invoke(d, New Object() {[text]})
    Else
        If Type = 1 Then 'TX
            Me.lvData.Items.Add("TX (" + text.Length.ToString() + " bytes): " + CurrentDateTime + " : <Start> " + text.ToString() + "<End>")
        ElseIf Type = 2 Then
            Me.lvData.Items.Add("RX (" + text.Length.ToString() + " bytes): " + CurrentDateTime + " : <Start> " + text.ToString() + "<End>")
        Else
            Me.lvData.Items.Add("Info: " + CurrentDateTime + " : " + text.ToString())

        End If
    End If
End Sub

Новый текст, который я добавляю, не отображается в списке.Я не получаю никаких ошибок компиляции или выполнения, но все еще нет нового текста в окне списка.Я могу добавить текст из своего класса Form1, но не из цепочки.

1 Ответ

0 голосов
/ 11 марта 2012

Вы указали код, генерирующий исключение TargetParameterCountException. Вы должны передать все параметры вашему делегату: 

Me.Invoke(d, New Object() {[text], Type})

вместо 

Me.Invoke(d, New Object() {[text]})
...