迭代通过后期绑定的对象枚举（S）

Question

Public Class ScoringStrategyEntity 

    Public Enum TotalingMethodType 
     Weighted_Share 
     Multiply_Components 
    End Enum 

Private _TotalingMethod As TotalingMethodType 
    Public Property TotalingMethod() As TotalingMethodType 
     Get 
      Return _TotalingMethod 
     End Get 
     Set(ByVal value As TotalingMethodType) 
      _TotalingMethod = value 
     End Set 
    End Property 

End Class 

Dim ScoringStrategy As Object = Activator.CreateInstance("MyDll", "MyDll.ScoringStrategyEntity").Unwrap() 

For Each Enum In ScoringStrategy.TotalingMethodType 

Next 

Answer 1

如果你的意思是“我怎样才能从Type获得可用枚举值？”，然后（用C＃语法纯粹是为了例子; 方法应该工作在VB）：

var values = Enum.GetValues(typeof(ScoringStrategy.TotalingMethodType));