Обяснете част от C# код и преобразуването във VB.NET

• KeyValuePair изисква два аргумента от типа. Във вашата декларация за делегат се казва просто KeyValuePair item, без аргументи за тип. Променете това на delegate(KeyValuePair<string,string> item)
• HttpUtility се декларира в пространството от имена System.Web; добавете using System.Web; към изразите за използване в началото на файла.

Лично аз намирам за по-лесно и по-чисто да използвам ламбда стил за този вид код:

byte[] buffer =
     Encoding.UTF8.GetBytes(
         String.Join("&",
             Array.ConvertAll<KeyValuePair<string, string>, string>(
                 inputs.ToArray(), (item) => item.Key + "=" + HttpUtility.UrlEncode(item.Value))));

След като накарате C# кода да работи, DeveloperFusion C# към VB.NET конверторът върши работата:

' Converted from delegate style C# implementation '
Dim buffer As Byte() = Encoding.UTF8.GetBytes( _
    [String].Join("&", _
    Array.ConvertAll(Of KeyValuePair(Of String, String), String)(inputs.ToArray(), _
        Function(item As KeyValuePair(Of String, String)) (item.Key & "=") + HttpUtility.UrlEncode(item.Value))))

' Converted from Lambda style C# implementation '
Dim buffer As Byte() = Encoding.UTF8.GetBytes( _
    [String].Join("&", _
    Array.ConvertAll(Of KeyValuePair(Of String, String), String)(inputs.ToArray(), _
        Function(item) (item.Key & "=") + HttpUtility.UrlEncode(item.Value))))

byte[] buffer = 
Encoding.UTF8.GetBytes(
    String.Join("&", 
        Array.ConvertAll<KeyValuePair<string, string>, string>(
            inputs.ToArray(),
            delegate(KeyValuePair<string, string> item)
            {
                return item.Key + "=" + System.Web.HttpUtility.UrlEncode(item.Value);
            })));

Опитайте това.

1. Изглежда, че кодът изгражда списък с GET заявки от елементи, напр. key1=value1&key2=value2. Това се прави, като първо преобразувате масива inputs в отделни елементи от key=value, след което ги String.Joinкачите заедно с амперсанд. След това връща UTF8 байтовете в масив.

2. Това работи (вижте кода).

3. Не съм VB.NET програмист, съжалявам, но ще пробвам след секунда.

Той преобразува списъка с входове, съдържащ двойки ключ/стойност, в низ, който прилича много на низ на заявка (напр. item1=value1&item2=value2), след което го преобразува в буферния байтов масив, използвайки UTF8 кодиране.

Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim inputs As New List(Of KeyValuePair(Of String, String))
        inputs.Add(New KeyValuePair(Of String, String)("a", "adata"))

        Dim buffer As Byte() = _
            Encoding.UTF8.GetBytes( _
                String.Join("&", _
                Array.ConvertAll(Of KeyValuePair(Of String, String), String)( _
                    inputs.ToArray(), _
                    Function(item As KeyValuePair(Of String, String)) _
                    item.Key & "=" & HttpUtility.UrlEncode(item.Value) _
                )))
    End Sub
End Class