Directcast和Ctype与枚举的区别

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 

为什么CType工作和DirectCast不具有相同的语法？然而，如果我之前，我DirectCast投的selectedValue到int，然后它

问候

_Eric

Answer 1

的原因是因为CType和DirectCast是根本不同的操作。

DirectCast是VB.Net中的一种投射机制，它只允许CLR定义的转换。它比C＃版本的转换更具限制性，因为它不考虑用户定义的转换。

CType是一个词法推理机制。它考虑CLR规则，用户定义的转换和VB.Net定义的转换。简而言之，它将尽一切可能为对象创建一个有效的转换为指定的类型。

在这种特殊情况下，您试图将值转换为Enum，该Enum没有CLR定义的转换，因此失败。然而，VB.Net运行时却能够找到一个词法转换来解决这个问题。

上的差异像样的讨论存在的位置：

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