Třída s rozhraním:
Public Class LightControll
Inherits Primitives.ToggleButton
Implements Interfaces.ILight
Public ReadOnly Property ActorType As Type Implements Interfaces.ILight.ActorType
Get
Return GetType(HALogic.Actors.Light.ClassicLight)
End Get
End Property
End Class
Typ controlu čtu z xml V příkladu napíšu pouze gettype(LightControll)
'Kontrola breakpointem
'Typ t i objekt o v proměnných jsou
Dim t as Type = GetType(LightControll)
Dim o as Object = Activator.CreateInstance(t)
'Zde chyba invalidcaseexception
'Object LightControll nelze přetypovat na ILight
Dim ia as Interfaces.ILight = DirectCast(o, Interfaces.ILight)
|