TypeLibVarAttribute TypeLibVarAttribute TypeLibVarAttribute TypeLibVarAttribute Class

Определение

public ref class TypeLibVarAttribute sealed : Attribute

[System.AttributeUsage(System.AttributeTargets.Field, Inherited=false)]
[System.Runtime.InteropServices.ComVisible(true)]
public sealed class TypeLibVarAttribute : Attribute

type TypeLibVarAttribute = class
    inherit Attribute

Public NotInheritable Class TypeLibVarAttribute
Inherits Attribute

Наследование

ObjectObjectObjectObject

AttributeAttributeAttributeAttribute

TypeLibVarAttributeTypeLibVarAttributeTypeLibVarAttributeTypeLibVarAttribute

Атрибуты

AttributeUsageAttribute ComVisibleAttribute

Примеры

Следующий пример демонстрирует, как получить TypeLibVarAttribute значения поля.The following example demonstrates how to get the TypeLibVarAttribute value of a field.

using namespace System;
using namespace System::Reflection;
using namespace System::Runtime::InteropServices;

ref class ClassD
{
public:
   static bool IsHiddenField( FieldInfo^ fi )
   {
      array<Object^>^FieldAttributes = fi->GetCustomAttributes( TypeLibVarAttribute::typeid, true );
      if ( FieldAttributes->Length > 0 )
      {
         TypeLibVarAttribute^ tlv = dynamic_cast<TypeLibVarAttribute^>(FieldAttributes[ 0 ]);
         TypeLibVarFlags flags = tlv->Value;
         return (flags & TypeLibVarFlags::FHidden) != (TypeLibVarFlags)0;
      }

      return false;
   }
};

using System;
using System.Reflection;
using System.Runtime.InteropServices;

namespace D
{
	class ClassD
	{
		public static bool IsHiddenField( FieldInfo fi )
		{
			object[] FieldAttributes = fi.GetCustomAttributes( typeof( TypeLibVarAttribute ), true);
		
			if( FieldAttributes.Length > 0 )
			{
				TypeLibVarAttribute tlv = ( TypeLibVarAttribute )FieldAttributes[0];
				TypeLibVarFlags  flags = tlv.Value;
				return ( flags & TypeLibVarFlags.FHidden ) != 0; 
			}
			return false;
		}
	}
}

Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices

Module D
	Public Function IsHiddenField(ByVal fi As FieldInfo) As Boolean
		Dim FieldAttributes As Object() = fi.GetCustomAttributes(GetType(TypeLibVarAttribute), True)

		If FieldAttributes.Length > 0 Then
			Dim tlv As TypeLibVarAttribute = FieldAttributes(0)
			Dim flags As TypeLibVarFlags = tlv.Value
			Return (flags & TypeLibVarFlags.FHidden) > 0
		End If
		Return False
	End Function
End Module

Комментарии

Tlbimp.exe (программа импорта библиотек типов) применяется этот атрибут для поля.The Tlbimp.exe (Type Library Importer) applies this attribute to fields.

Этот атрибут применяется, когда библиотеку типов импортируется и никогда не следует изменять.This attribute is applied when a type library is imported and should never be changed. Это применяется, если метод VARFLAGS иметь ненулевое значение.It is only applied when the method's VARFLAGS evaluate to non-zero. Атрибут предназначен для использования средствами, которые должны знать, как исходный VARFLAGS были заданы.The attribute is designed to be used by tools that need to know how the original VARFLAGS were set. Среда CLR не использует этот атрибут.The common language runtime does not use this attribute.

Конструкторы

Свойства

Методы

Явные реализации интерфейса

Применяется к

Дополнительно

• Tlbimp.exe (программа экспорта библиотек типов)Tlbimp.exe (Type Library Importer)