Direct & Ctype Unterschiede mit Aufzählungen

Question

Public Enum Fruit 
    Red_Apple = 1 
    Oranges 
    Ripe_Banana 
End Enum 
Private Sub InitCombosRegular() 
    Dim d1 As New Dictionary(Of Int16, String) 
    For Each e In [Enum].GetValues(GetType(Fruit)) 
     d1.Add(CShort(e), Replace(e.ToString, "_", " ")) 
    Next 
    ComboBox1.DataSource = d1.ToList 
    ComboBox1.DisplayMember = "Value" 
    ComboBox1.ValueMember = "Key" 
    ComboBox1.SelectedIndex = 0 
End Sub 

    'This fails 
     Dim combo1 = DirectCast(ComboBox1.SelectedValue, Fruit) ' Fails 
     'these both work 
     Dim combo2 = DirectCast(CInt(ComboBox1.SelectedValue), Fruit) 'works 
     Dim combo3 = CType(ComboBox1.SelectedValue, Fruit) 'works 

Warum hat die CType Arbeit und die DirectCast nicht mit der gleichen Syntax? Doch wenn ich die selectedValue zu einem int bevor ich DirectCast gegossen, dann funktioniert es

Grüße

_Eric

Answer 1

Der Grund dafür ist, weil CType und DirectCast sind grundsätzlich andere Operationen.

DirectCast ist ein Casting-Mechanismus in VB.Net, der nur CLR-definierte Konvertierungen ermöglicht. Es ist noch restriktiver als die C# -Version von Casting, da benutzerdefinierte Conversions nicht berücksichtigt werden.

CType ist ein lexikalischer Gießmechanismus. Es berücksichtigt CLR-Regeln, benutzerdefinierte Conversions und VB.Net-definierte Conversions. Kurz gesagt, es wird alles Mögliche getan, um eine gültige Konvertierung für ein Objekt zu einem bestimmten Typ zu erstellen.

In diesem speziellen Fall versuchen Sie, einen Wert in ein Enum zu konvertieren, das keine CLR-definierte Konvertierung hat und daher fehlschlägt. Die VB.Net-Laufzeitumgebung konnte jedoch eine lexikalische Konvertierung finden, um das Problem zu beheben.

Eine anständige Diskussion über die Unterschiede besteht hier:

• http://msdn.microsoft.com/en-us/library/aa289509(VS.71).aspx#vbtchmicrosoftvisualbasicnetinternalsanchor10