Assembly: mscorlib (in mscorlib.dll)
Thetype exposes the following members.
|Equals||Infrastructure. Returns a value that indicates whether this instance is equal to a specified object. (Inherited from Attribute.)|
|Finalize||Allows an object to try to free resources and perform other cleanup operations before the Object is reclaimed by garbage collection. (Inherited from Object.)|
|GetHashCode||Returns the hash code for this instance. (Inherited from Attribute.)|
|GetType||Gets the Type of the current instance. (Inherited from Object.)|
|Match||When overridden in a derived class, returns a value that indicates whether this instance equals a specified object. (Inherited from Attribute.)|
|MemberwiseClone||Creates a shallow copy of the current Object. (Inherited from Object.)|
|ToString||Returns a string that represents the current object. (Inherited from Object.)|
A property is imported as an indexer (default indexed property in Visual Basic) if the property has arguments and if the name of the property or one of its accessors matches the name specified by the . If the is not present on the containing type, then the type does not have an indexer. The C# compiler emits the on any type containing an indexer. In C# it is an error to manually attribute a type with the if the type also declares an indexer.
The following example uses the attribute to make the Age property the default member of the MyClass class.
Imports System.Reflection Imports System.IO <DefaultMemberAttribute("Age")> Public Class Example Public Sub Name(ByVal s As String) End Sub 'Name Public ReadOnly Property Age() As Integer Get Return 20 End Get End Property Public Shared Sub Demo(ByVal outputBlock As System.Windows.Controls.TextBlock) Try Dim myType As Type = GetType([Example]) Dim memberInfoArray As MemberInfo() = myType.GetDefaultMembers() If memberInfoArray.Length > 0 Then Dim memberInfoObj As MemberInfo For Each memberInfoObj In memberInfoArray outputBlock.Text &= "The default member name is: " + memberInfoObj.ToString() & vbCrLf Next memberInfoObj Else outputBlock.Text &= "No default members are available." & vbCrLf End If Catch e As InvalidOperationException outputBlock.Text &= "InvalidOperationException: " + e.Message & vbCrLf Catch e As IOException outputBlock.Text &= "IOException: " + e.Message & vbCrLf Catch e As Exception outputBlock.Text &= "Exception: " + e.Message & vbCrLf End Try End Sub 'Main End Class '[MyClass]