ContractClassAttribute Class
Specifies that a separate type contains the code contracts for this type.
Assembly: mscorlib (in mscorlib.dll)
<ConditionalAttribute("CONTRACTS_FULL")> <ConditionalAttribute("DEBUG")> <AttributeUsageAttribute(AttributeTargets.Class Or AttributeTargets.Interface Or AttributeTargets.Delegate, AllowMultiple := False, Inherited := False)> Public NotInheritable Class ContractClassAttribute Inherits Attribute
| Name | Description | |
|---|---|---|
![]() | ContractClassAttribute(Type) | Initializes a new instance of the ContractClassAttribute class. |
| Name | Description | |
|---|---|---|
![]() | TypeContainingContracts | Gets the type that contains the code contracts for this type. |
![]() | TypeId |
| Name | Description | |
|---|---|---|
![]() | Equals(Object) | This API supports the product infrastructure and is not intended to be used directly from your code. Returns a value that indicates whether this instance is equal to a specified object.(Inherited from Attribute.) |
![]() | GetHashCode() | Returns the hash code for this instance.(Inherited from Attribute.) |
![]() | GetType() | |
![]() | IsDefaultAttribute() | When overridden in a derived class, indicates whether the value of this instance is the default value for the derived class.(Inherited from Attribute.) |
![]() | Match(Object) | When overridden in a derived class, returns a value that indicates whether this instance equals a specified object.(Inherited from Attribute.) |
![]() | ToString() | Returns a string that represents the current object.(Inherited from Object.) |
| Name | Description | |
|---|---|---|
![]() ![]() | _Attribute.GetIDsOfNames(Guid, IntPtr, UInt32, UInt32, IntPtr) | Maps a set of names to a corresponding set of dispatch identifiers.(Inherited from Attribute.) |
![]() ![]() | _Attribute.GetTypeInfo(UInt32, UInt32, IntPtr) | Retrieves the type information for an object, which can be used to get the type information for an interface.(Inherited from Attribute.) |
![]() ![]() | _Attribute.GetTypeInfoCount(UInt32) | Retrieves the number of type information interfaces that an object provides (either 0 or 1).(Inherited from Attribute.) |
![]() ![]() | _Attribute.Invoke(UInt32, Guid, UInt32, Int16, IntPtr, IntPtr, IntPtr, IntPtr) | Provides access to properties and methods exposed by an object.(Inherited from Attribute.) |
Types that are marked with this attribute have code contracts that are included in a separate type. The type that contains the contracts is specified in the constructor.
The following example shows how to use the ContractClassAttribute attribute to specify that the contracts for the IArray interface are contained in the IArrayContracts class.
#Const CONTRACTS_FULL = True Imports System.Diagnostics.Contracts ' An IArray is an ordered collection of objects. <ContractClass(GetType(IArrayContract))> _ Public Interface IArray ' The Item property provides methods to read and edit entries in the array. Default Property Item(ByVal index As Integer) As [Object] ReadOnly Property Count() As Integer ' Adds an item to the list. ' The return value is the position the new element was inserted in. Function Add(ByVal value As Object) As Integer ' Removes all items from the list. Sub Clear() ' Inserts value into the array at position index. ' index must be non-negative and less than or equal to the ' number of elements in the array. If index equals the number ' of items in the array, then value is appended to the end. Sub Insert(ByVal index As Integer, ByVal value As [Object]) ' Removes the item at position index. Sub RemoveAt(ByVal index As Integer) End Interface 'IArray <ContractClassFor(GetType(IArray))> _ Friend MustInherit Class IArrayContract Implements IArray Function Add(ByVal value As Object) As Integer Implements IArray.Add ' Returns the index in which an item was inserted. Contract.Ensures(Contract.Result(Of Integer)() >= -1) ' Contract.Ensures(Contract.Result(Of Integer)() < CType(Me, IArray).Count) ' Return 0 End Function 'IArray.Add Default Property Item(ByVal index As Integer) As Object Implements IArray.Item Get Contract.Requires(index >= 0) Contract.Requires(index < CType(Me, IArray).Count) Return 0 ' End Get Set(ByVal value As [Object]) Contract.Requires(index >= 0) Contract.Requires(index < CType(Me, IArray).Count) End Set End Property Public ReadOnly Property Count() As Integer Implements IArray.Count Get Contract.Requires(Count >= 0) Contract.Requires(Count <= CType(Me, IArray).Count) Return 0 ' End Get End Property Sub Clear() Implements IArray.Clear Contract.Ensures(CType(Me, IArray).Count = 0) End Sub 'IArray.Clear Sub Insert(ByVal index As Integer, ByVal value As [Object]) Implements IArray.Insert Contract.Requires(index >= 0) Contract.Requires(index <= CType(Me, IArray).Count) ' For inserting immediately after the end. Contract.Ensures(CType(Me, IArray).Count = Contract.OldValue(CType(Me, IArray).Count) + 1) End Sub 'IArray.Insert Sub RemoveAt(ByVal index As Integer) Implements IArray.RemoveAt Contract.Requires(index >= 0) Contract.Requires(index < CType(Me, IArray).Count) Contract.Ensures(CType(Me, IArray).Count = Contract.OldValue(CType(Me, IArray).Count) - 1) End Sub 'IArray.RemoveAt End Class 'IArrayContract
Available since 8
.NET Framework
Available since 4.0
Portable Class Library
Supported in: portable .NET platforms
Silverlight
Available since 4.0
Windows Phone Silverlight
Available since 8.0
Windows Phone
Available since 8.1
Any public static ( Shared in Visual Basic) members of this type are thread safe. Any instance members are not guaranteed to be thread safe.



