Sự khác biệt về Directcast & Ctype với enums

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 

Tại sao công việc CType và DirectCast không có cùng cú pháp? Tuy nhiên, nếu tôi cast selectedValue một int trước khi tôi DirectCast, sau đó nó hoạt động

Trân

_Eric

Answer 1

Lý do tại sao là bởi vì CType và DirectCast là hoạt động cơ bản khác nhau.

DirectCast là cơ chế truyền trong VB.Net, cho phép chỉ chuyển đổi CLR được xác định. Nó thậm chí còn hạn chế hơn phiên bản đúc C# vì nó không xem xét chuyển đổi do người dùng xác định.

CType là cơ chế đúc từ vựng. Nó xem xét các quy tắc CLR, chuyển đổi do người dùng xác định và các chuyển đổi được xác định VB.Net. Trong ngắn hạn nó sẽ làm bất cứ điều gì và tất cả mọi thứ có thể để tạo ra một chuyển đổi hợp lệ cho một đối tượng với một loại quy định.

Trong trường hợp cụ thể này, bạn đang cố gắng chuyển đổi một giá trị thành một Enum không có chuyển đổi được xác định CLR và do đó nó không thành công. Thời gian chạy VB.Net tuy nhiên đã có thể tìm thấy một chuyển đổi từ vựng để đáp ứng các vấn đề.

Một cuộc thảo luận đàng hoàng về sự khác biệt tồn tại ở đây:

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