CodeClass.Access Özellik

Tanım

Nesnenin erişim özniteliklerini ayarlar veya alır CodeClass .

public:
 property EnvDTE::vsCMAccess Access { EnvDTE::vsCMAccess get(); void set(EnvDTE::vsCMAccess value); };
public:
 property EnvDTE::vsCMAccess Access { EnvDTE::vsCMAccess get(); void set(EnvDTE::vsCMAccess value); };
[System.Runtime.InteropServices.DispId(35)]
public EnvDTE.vsCMAccess Access { [System.Runtime.InteropServices.DispId(35)] get; [System.Runtime.InteropServices.DispId(35)] set; }
[<System.Runtime.InteropServices.DispId(35)>]
[<get: System.Runtime.InteropServices.DispId(35)>]
[<set: System.Runtime.InteropServices.DispId(35)>]
member this.Access : EnvDTE.vsCMAccess with get, set
Public Property Access As vsCMAccess

Özellik Değeri

vsCMAccess

Bir vsCMAccess değer.

Öznitelikler

Örnekler

Public Sub CodeClassExample(ByVal dte As DTE2)   
    ' Before running this example, open a code document from a  
    ' project and place the insertion point inside a class definition.  
    Try  
        Dim objTextSel As TextSelection  
        Dim objCodeCls As CodeClass  
        Dim objCodeElem As CodeElement  
        objTextSel = CType(dte.ActiveDocument.Selection, TextSelection)  
        objCodeCls = CType(objTextSel.ActivePoint.CodeElement(vsCMElement.vsCMElementClass), CodeClass)  
        ' Display the fullname of CodeClass object.  
        MessageBox.Show(objCodeCls.FullName)  
        ' Prove that the parent object of a CodeClass is a CodeElement.  
        objCodeElem = CType(objCodeCls.Parent, CodeElement)  
        ' Get access privilege for CodeClass.  
        MessageBox.Show(objCodeCls.Access.ToString())  
        ' Change access privilege for CodeClass objCodeCls.  
        ' Note the change in access keyword in your code document.  
        objCodeCls.Access = vsCMAccess.vsCMAccessPublic  
    Catch ex As Exception  
        MessageBox.Show(ex.Message)  
    End Try  
End Sub  
public void CodeClassExample(DTE2 dte)  
{   
   // Before running this example, open a code document from a  
   // project and place the insertion point inside a class definition.  
   try  
   {  
      TextSelection objTextSel;  
      CodeClass objCodeCls;  
      CodeElement objCodeElem;  
      objTextSel = (TextSelection)dte.ActiveDocument.Selection;  
      objCodeCls = (CodeClass)objTextSel.ActivePoint.get_CodeElement(vsCMElement.vsCMElementClass);  
      // Display the fullname of CodeClass object.  
      MessageBox.Show(objCodeCls.FullName);  
      // Prove that the parent object of a CodeClass is a CodeElement.  
      objCodeElem = (CodeElement)objCodeCls.Parent;  
      // Get access privilege for CodeClass  
      MessageBox.Show(objCodeCls.Access.ToString());  
      // Change access privilege for CodeClass objCodeCls.  
      // Note the change in access keyword in your code document.  
      objCodeCls.Access = vsCMAccess.vsCMAccessPublic;  
   }  
   catch (Exception ex)  
   {   
      MessageBox.Show(ex.Message);  
   }  

Açıklamalar

Access gerçek erişimi ve diğer kodun bu kod öğesine nasıl erişebileceğini döndürür.

Not

Bu özellik, Visual Basic kaynak kodundan kod öğeleri için salt okunurdur.

Ayrıca, sınıflar, yapılar, işlevler, öznitelikler, temsilciler vb. gibi kod modeli öğelerinin değerleri, belirli tür düzenlemeler yapıldıktan sonra belirleyici olmayan bir değer olabilir, yani değerlerinin her zaman aynı kalır. Daha fazla bilgi için bkz. kod modeli öğe değerleri, kod modeli kullanılarak kod bulma bölümünde değişebilir (Visual Basic).

Şunlara uygulanır