Zugriff aus Backgroundworker auf Form

Invoke oder BeginInvoke kann für ein Steuerelement erst aufgerufen werden, wenn das Fensterhandle erstellt wurde.

Private Sub btn_Sync_Click(sender As Object, e As EventArgs) Handles btn_WinSCP_StartSync.Click

	Dim CurrentFunction As String = System.Reflection.MethodBase.GetCurrentMethod.Name

	Try
		Select Case True
			Case sender Is btn_WinSCP_StartSync
				With bgw_WinSCPSync
					If .IsBusy = False Then
						Me.Cursor = Cursors.WaitCursor

						btn_WinSCP_StartSync.Enabled = False
						
						.RunWorkerAsync()
					End If
				End With

			Case sender Is btn_WinSCP_StopSync
				bgw_WinSCPSync.CancelAsync()

			Case Else
				Exit Sub

		End Select

	Catch ex As Exception
		MsgBox(ex.Message & cls_CONST.ENTER &
			   "Funktion: " & CurrentFunction, vbOKOnly + vbCritical, Const_MsgBoxText)  

	End Try

End Sub

Private Sub bgw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bgw_WinSCPSync.DoWork

	Dim CurrentFunction As String = System.Reflection.MethodBase.GetCurrentMethod.Name

	Try
		Select Case True
			Case sender Is bgw_WinSCPSync
				'mach was ...  
				
			Case Else
				Exit Sub

		End Select

	Catch ex As Exception
		MsgBox(ex.Message & cls_CONST.ENTER &
			   "Funktion: " & CurrentFunction, vbOKOnly + vbCritical, Const_MsgBoxText)  

	End Try

End Sub

Public Shared Sub SessionFileTransferProgress(ByVal sender As Object, ByVal e As WinSCP.FileTransferProgressEventArgs)

	Dim CurrentFunction As String = System.Reflection.MethodBase.GetCurrentMethod.Name

	Try
		With TI
			If e.FileProgress >= 1 Then
				If Not .LastFile = e.FileName Then
					.BytesTransfered += GetFileSize(e.FileName)
					.FilesTransfered += 1
					
					'frm_Debug.Invoke(New Dlgt_UpdateForm(AddressOf UpdateForm), e) '111  
										
					' With frm_Debug '222  
						' .Thrd = New Thread(New ThreadStart(AddressOf .UpdateContent))  
						' .Thrd.Start(New WinSCP.FileTransferProgressEventArgs() {e})  
					' End With  
				End If

				.LastFile = e.FileName
			End If
		End With

	Catch ex As Exception
		MsgBox(ex.Message & cls_CONST.ENTER &
			   "Funktion: " & CurrentFunction, vbOKOnly + vbCritical, Const_MsgBoxText)  

	End Try

End Sub

Delegate Sub Dlgt_UpdateForm(ByVal e As WinSCP.FileTransferProgressEventArgs) '111  

Public Shared Sub UpdateForm(ByVal e As WinSCP.FileTransferProgressEventArgs)

	Dim CurrentFunction As String = System.Reflection.MethodBase.GetCurrentMethod.Name

	Try
		With frm_Text
			.lab_Info.Text = "Datei: " & e.FileName  
		End With

	Catch ex As Exception
		MsgBox(ex.Message & cls_CONST.ENTER &
			   "Funktion: " & CurrentFunction, vbOKOnly + vbCritical, Const_MsgBoxText)  

	End Try

End Sub

    Private Sub UpdateContent(ByVal e As WinSCP.FileTransferProgressEventArgs) '222  

        Dim CurrentFunction As String = System.Reflection.MethodBase.GetCurrentMethod.Name

        Try
            Me.StatusUpdate(e)

        Catch ex As Exception
            MsgBox(ex.Message & cls_CONST.ENTER &
                   "Funktion: " & CurrentFunction, vbOKOnly + vbCritical, Const_MsgBoxText)  

        End Try

    End Sub

    Delegate Sub Dlgt_UpdateForm(ByVal e As WinSCP.FileTransferProgressEventArgs)

    Private Sub StatusUpdate(ByVal e As WinSCP.FileTransferProgressEventArgs)

        Dim CurrentFunction As String = System.Reflection.MethodBase.GetCurrentMethod.Name

        Try
            With Me
                If .lab_Info.InvokeRequired Then
                    .Invoke(New Dlgt_UpdateForm(AddressOf StatusUpdate), New Object() {e})
                Else
                    .lab_Info.Text = e.FileName
                End If
            End With

        Catch ex As Exception
            MsgBox(ex.Message & cls_CONST.ENTER &
                   "Funktion: " & CurrentFunction, vbOKOnly + vbCritical, Const_MsgBoxText)  

        End Try

    End Sub

.Thrd = New Thread(New ThreadStart(AddressOf .UpdateContent))

Die Signatur der Private Sub UpdateContent(e as WinSCP.FileTransferProgressEventArgs)-Methode ist mit dem Delegaten "Delegate Sub ThreadStart()" nicht kompatibel. gemeldet.  

Private Sub UpdateContent(ByVal e As WinSCP.FileTransferProgressEventArgs)