[VB.NET]Attribute與反射的搭配使用

October 18, 2010

Property Data as Object

End Class

Property RelativedType As Type

Sub New(ByVal relativedType As Type)
    Me.RelativedType = relativedType
End Sub

End Class

Enum ApplicationType <RelativedType(GetType(LevelUp.Office.Word))> _ Word

&lt;RelativedType(GetType(LevelUp.Office.Excel))&gt; _
Excel

&lt;RelativedType(GetType(LevelUp.Office.Access))&gt; _
Access

&lt;RelativedType(GetType(LevelUp.Office.PowerPoint))&gt; _
PowerPoint

&lt;RelativedType(GetType(LevelUp.Office.Visio))&gt; _
Visio

End Enum

Sub StartApplication(ByVal apType As ApplicationType)
    Dim type As Type = apType.GetType()
    Dim field = type.GetField(apType.ToString)
    Dim att = field.GetCustomAttributes(GetType(RelativedTypeAttribute), False).Cast(Of RelativedTypeAttribute)().FirstOrDefault()
    Activator.CreateInstance(att.RelativedType).Start()
End Sub</pre></div>

Property ResourceID As String

Sub New(ByVal resourceID As String)
    Me.ResourceID = resourceID
End Sub

End Class

Enum InterfaceType <ResouceID(“RS232_InterfaceName”)> _ RS232

&lt;ResouceID("RS485_InterfaceName")&gt; _
RS485

&lt;ResouceID("GPIB_InterfaceName")&gt; _
GPIB

&lt;ResouceID("I2C_InterfaceName")&gt; _
I2C

End Enum

VB.NET