c# to vbnet delegate

[joselito575]

Hi Ive been trying to translate part of a code using this websites :
http://www.developerfusion.com/tools.../csharp-to-vb/
http://converter.telerik.com/

But I could not make it work specially this part :

bw.DoWork += delegate(object sender2, DoWorkEventArgs e2)
                   {
                       _lastImageUploadDetails = uploader.UploadImage(txtFilePath.Text, resizeWidth, resizeHeight);
                   };

This is the source I would like you to help me out :

bw.DoWork += delegate(object sender2, DoWorkEventArgs e2)
     {
         _lastImageUploadDetails = uploader.UploadImage(txtFilePath.Text, resizeWidth, resizeHeight);
     };
 
     bw.RunWorkerAsync();
 
     // when the background worker is finished, run this anonymous method which either updates
     // the details of the last uploaded image or displays an appropriate error message
     // if there were problems.
     bw.RunWorkerCompleted += delegate(object sender3, RunWorkerCompletedEventArgs e3)
     {
         try
         {
             if (e3.Error != null)
             {
                 throw e3.Error;
             }
             UpdateLastUploadedImageDisplayDetails(_lastImageUploadDetails); txtInfo.Text = "Image Uploaded.";
         }
         catch (FileNotFoundException exp)
         {
             txtInfo.Text = exp.Message;
         }
         catch (XmlException exp)
         {
             txtInfo.Text = exp.Message;
         }
     };

So please if anybody here knows some c# and vbnet if he could do it I will really appreciate it.
Regards.

[Chris001]

Is this what you mean?

Private Sub bw_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bw.DoWork
        _lastImageUploadDetails = uploader.UploadImage(txtFilePath.Text, resizeWidth, resizeHeight)
    End Sub
 
    Private Sub bw_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles bw.RunWorkerCompleted
        Try
            If e.Error IsNot Nothing Then
                Throw (e.Error)
            End If
 
            UpdateLastUploadedImageDisplayDetails(_lastImageUploadDetails)
            txtInfo.Text = "Image Uploaded."
        Catch exp As FileNotFoundException
            txtInfo.Text = exp.Message
        Catch exp As XmlException
            txtInfo.Text = exp.Message
        End Try
 
    End Sub

[David Anton]

For VB10 - VS 2010 (in earlier versions of VB, this is not nearly as clean, but VB10 has 'Sub' lambdas):

	 AddHandler bw.DoWork, Sub(sender2 As Object, e2 As DoWorkEventArgs) _lastImageUploadDetails = uploader.UploadImage(txtFilePath.Text, resizeWidth, resizeHeight)

	 bw.RunWorkerAsync()

	 ' when the background worker is finished, run this anonymous method which either updates
	 ' the details of the last uploaded image or displays an appropriate error message
	 ' if there were problems.
	 AddHandler bw.RunWorkerCompleted, Sub(sender3 As Object, e3 As RunWorkerCompletedEventArgs)
		 Try
			 If e3.Error IsNot Nothing Then
				 Throw e3.Error
			 End If
			 UpdateLastUploadedImageDisplayDetails(_lastImageUploadDetails)
			 txtInfo.Text = "Image Uploaded."
		 Catch exp As FileNotFoundException
			 txtInfo.Text = exp.Message
		 Catch exp As XmlException
			 txtInfo.Text = exp.Message
		 End Try
	 End Sub