Boks zachowuje się inaczej w C# i VB

Question

Próbuję przekazać strukturę do sub/void, aby wypełnić dane. W języku C# to działa prawidłowo, wykonując

[TestFixture] 
public class Boxing 
{ 
    [Test] 
    public void BoxingValue() 
    { 
     var res = (object)new Test(); 
     SomeVoid(res);   
     Assert.AreEqual(2, ((Test)res).Id); 
    } 

    public static void SomeVoid(object b) 
    { 
     var f = b.GetType().GetField("Id"); 
     f.SetValue(b, 2); 
    } 

    public struct Test 
    { 
     public int Id; 
    } 
} 

Ten kod przechodzi test w języku C# w VB thoug

<Test> Public Sub StructTest() 
    Dim s As Object 
    s = CObj(New Test) 
    A(s) 
    Assert.AreEqual(2, CType(s, Test).Id) 
End Sub 

Public Sub A(val As Object) 
    Dim f = val.GetType().GetField("Id") 
    f.SetValue(val, 2) 
End Sub 

Public Structure Test 
    Public Id As Integer 
End Structure 

Czy ktoś ma wytłumaczenia dla tego ..

dziwne?

Answer 1

Wierzę, że jest to znane ograniczenie z użyciem SetValue w VB podczas przekazywania struktur (nawet jeśli sama zmienna jest zadeklarowana jako Object). Jeśli spojrzysz na zawartość val w ciągu A przed i po wywołaniu SetValue, zobaczysz, że nie zmienia wartości struktury. Wyjaśnienie, które widziałem, polega na tym, że VB wewnętrznie zapisuje wartość bazową ponownie (przez połączenie z numerem GetObjectValue), tworząc kopię i zmienia jej wartość.

Jeden obejście widziałem jest do oddania wartości do ValueType i wezwanie SetValue na nim (trzeba także zmienić parametr być wyraźnie ByRef:

Public Sub A(ByRef val As Object) 
    Dim f = val.GetType().GetField("Id") 
    If val.GetType.IsValueType Then 
     Dim vt As ValueType = val 
     f.SetValue(vt, 2) 
     val = vt 
    Else 
     f.SetValue(val, 2) 
    End If  
End Sub 

Oczywiście, to tylko złożoność wzmacnia zasadę, że Zmienne elemencie należy unikać za wszelką cenę

Answer 2

Zobacz Reflection on structure differs from class - but only in code dla wyjaśnieniu, ale podsumowanie jest:.

f.SetValue(val*, 2) 

* {W tym momencie val jest przekazywane przez wartość, to znaczy, że jest to kopia, która jest aktualizowana}

jak na obejście ...

'Struct workaround of course you only want this for structs!: 
Public Sub A(ByRef val As Object) 

    Dim x As ValueType 
    x = CType(val, ValueType) 
    Dim f = x.GetType().GetField("Id") 
    f.SetValue(x, 2) 
    val = x 
End Sub 

Oczywiście trzeba chronić siebie aby uruchomić to tylko dla struktur ...