属性

COBOL の属性

*> Define custom attributes on a class
class-id. MyClass
          attribute WebService(name Description = "My service")
          attribute Obsolete.

*> Define custom attributes on a field...
01 a binary-long attribute XmlAttribute("UpperB")
          attribute Obsolete.

*> Define custom attributes on a property...
*> Note that in this case, the custom attributes must follow
*> the reserved word PROPERTY.
01 b binary-long property
           attribute XmlAttribute("UpperB")
           attribute Obsolete.

*> Define custom attributes on an event...
*> Note that in this case, the custom attributes must follow
*> the reserved word EVENT.
01 d type fred event
           attribute Obsolete.

*> Define custom attributes on a method...
method-id main attribute Obsolete.

*> Define custom attributes on parameters and returns
method-id Stat.
    procedure division using l1 as binary-long
    *> Define custom attributes on a method parameter...
            attribute CLSCompliant(true)
            attribute MarshalAs(3)
            returning l2 as binary-long
    *> Define custom attributes on a method return value...
            attribute CLSCompliant(true)
            attribute MarshalAs(2).

*> Define custom attributes on a property...
method-id. set property prop 
            attribute Obsolete.

*> Define custom attribute on a delegate...
delegate-id fred attribute Obsolete.
    procedure division using l1 as binary-long.
end delegate fred.

C# の属性

// Define custom attribute on a class
[WebService(Description = "MyService")]
[Obsolete]
class MyClass
{
	// Define custom attributes on a field
	[XmlAttribute("UpperB")]
	[Obsolete]
	long a; 

	// Define custom attribute on a property
	private string prop;

	[Obsolete]
	public string b
	{
		[return:XmlAttribute("UpperB")]
		get { return prop; }

		[value:XmlAttribute("UpperB")]
		set { prop = value; }
	}

	// Define custom attribute on an event
	[Obsolete]
	public event fred d;

	// Define custom attribute on a method
	[Obsolete]
	public void main()
	{
	}

	// Define custom attributes on parameters and returns
	[return:CLSCompliant(true)]
	[return:MarshalAs(2)]
	public long Stat([CLSCompliant(true)][MarshalAs(3)]long l1)
	{
		return 12;
	}

	// Define custom attributes on a property
	[Obsolete]
	public string b
	{
		set { prop = value; }
	}

	// Define custom attributes on a delegate
	[Obsolete]
	public delegate void fred(long l1);
}

VB.NET の属性

' Define custom attributes on a class
<WebService(Description:="Common Server Variables"> _
<Obsolete()> _
Public Class Class1
End Class

' Define custom attributes on a field...
<XmlAttribute("UpperB")> _
<Obsolete()> _
Public a As Integer


' Define custom attributes on a property...
<XmlAttribute("UpperB")> _
<Obsolete()> _
Property b As Integer

' Define custom attributes on an event...
<Obsolete()> _
Event MsgArrivedEvent As MsgArrivedEventHandler

' Define custom attributes on a method...
<Obsolete()> _
Sub main()

End Sub

' Define custom attributes on parameters and returns
Function Stat _
( _
    <CLSCompliant(True)> _
    <MarchalAs(3)> ByVal l1 As Integer _
) _
    As <CLSCompliant(True)> <MarchalAs(2)> Integer

' Define custom attributes on a property...
<Obsolete(True)> _
Public Property prop() As String
    Set(ByVal value As String)	
	
' Define custom attribute on a delegate...
<Obsolete()> _
Delegate Sub Fred(ByVal l1 As Integer)

これらの例の一部は、ハーディング大学コンピュータ サイエンス学部の Frank McCown 博士が作成したもので、クリエイティブ コモンズ ライセンスに基づいて使用が許可されています。