Passing multiple variables types to Backgroundworker

Question

Hello everybody ,
This question has been asked many times , but I will can't make it work, I want to pass (string , serial port object ,and form.label)
here is my code :
Public switch As String = "request"
Public sp1 As New IO.Ports.SerialPort
Public arg As New List(Of Object)
Private Sub Gsload()
arg.Add(sp1)
arg.Add(CObj(switch))
arg.Add(label1)
BackgroundWorker1.RunWorkerAsync(arg)
End Sub
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim arglist As List(Of Object) = TryCast(e.Argument, List(Of Object))
Dim sp1 As IO.Ports.SerialPort = CType(arglist(0), IO.Ports.SerialPort) getdata(arglist(0))
Dim swt As String = CStr(arglist(1))
getdata2(sp1,arglist(2).text)
End Sub
It is not working , I do not know why
thnx for your help :)
Hey :)

Answer 1

You didn't say what the problem is. I suspect the problem is that the elements in arglist as Objects and you want to treat them as particular types of object.
What does the getdata method expect as its argument? If it expects a SerialPort, you will need to change arglist(0) to SerialPort.
getdata(CType(arglist(0), IO.Ports.SerialPort))
The value you stored in arglist(2) was a Label. If you want to access the Label's properties, you will need to convert arglist(2) from Object to Label.
Dim myLabel as Label = CType(arglist(2), Label)
getdata2(CType(arglist(0), IO.Ports.SerialPort), myLabel.Text)
Hello , Thnx for your answer and sorry my question wasnt clear at all ,
My problem is that I cannot use the string like this :
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim arglist As List(Of Object) = TryCast(e.Argument, List(Of Object))
Dim sp1 As IO.Ports.SerialPort = CType(arglist(0), IO.Ports.SerialPort)
Dim swt As String = CType(arglist(1), String)
If swt = "request" Then
switchdmm(sp1, "Auto")
End If
e.Result = getdata(sp1)
End Sub
even if swt = "request" it always skip it and execute e.result = getdata(sp1)
Hey :)