TypeLibVarAttribute Класс

Определение

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

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

Object

Attribute

TypeLibVarAttribute

Атрибуты

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.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)