Vraag : Zet C# in VB om

Ive proberend om één of andere code c# van ' http://www.c-sharpcorner. com/UploadFile/nipuntomar/FileUploadsilverlight03182009030537AM/FileUploadsilverlight.aspx' nochtans kwesties met de sectie hebben: -
c.OpenWriteCompleted += (afzender, e) =>
{
PushData (gegevens, e.Result);
e.Result.Close (); /> gegevens };

My de recentste poging het een hulpmiddel van de codeomzetting bij http://www.developerfusion .com/tools/convert/csharp-to-vb/, maar nog nog fouten de meesten waarvan ik bevestigde veroorzaakt, heeft maar het beetje above.

I heeft geprobeerd gebruikend de raiseevent code, maar het vertelt me enkel verwacht eind van verklaring: - (ideeën

Any?
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

Imports System.IO
Het Systeem van de invoer
De invoer System.Net

Gedeeltelijke Openbare Klasse MainPage
    Erft UserControl

    Openbare Sub Nieuw ()
        InitializeComponent ()
    Sub van het eind
    Privé SubUploadFile (fileName ByVal als Koord, gegevens ByVal als Stroom)
        Schemerige ub als Nieuwe UriBuilder („http://localhost:3840/receiver.ashx“)
        ub. Vraag = String.Format („filename= {0}“, fileName)
        Schemerig c als Nieuwe WebClient
 	+= de Functie c.OpenWriteCompleted (afzender, e) 
        PushData (gegevens, e.Result)
        e.Result.Close ()
        gegevens. Sluit ()
    Beëindig Sub
	c.OpenWriteAsync (ub. Uri)
Sub van het eind

    Privé SubdiePushData (ByVal als Stroom, output ByVal als Stroom wordt ingevoerd)
        Schemerige buffer als Byte () = Nieuwe Byte (4095) {}
        Schemerige bytesRead als Geheel

        Terwijl (InlineAssignHelper (bytesRead, input. Lees (buffer, 0, buffer. Lengte))) <> 0
            output. Schrijf (buffer, 0, bytesRead)
        Beëindig terwijl
    Beëindig Sub
Beëindig Klasse

Antwoord : Zet C# in VB om

Als u „gealigneerd wilt doen“ toen denk ik het zou moeten zijn:
1:
2:
3:
4:
5:
6:

        Schemerig c als Nieuwe WebClient
        AddHandler c.OpenWriteCompleted, Sub (afzender, e)
                                             PushData (gegevens, e.Result)
                                             e.Result.Close ()
                                             gegevens. Sluit ()
                                         Beëindig Sub
Andere oplossingen  
 
programming4us programming4us