CodeClass.Access 屬性

設定或取得 CodeClass 物件的存取屬性。

命名空間：  EnvDTE
組件：  EnvDTE (在 EnvDTE.dll 中)

語法

'宣告
Property Access As vsCMAccess

vsCMAccess Access { get; set; }

property vsCMAccess Access {
    vsCMAccess get ();
    void set (vsCMAccess value);
}

abstract Access : vsCMAccess with get, set

function get Access () : vsCMAccess 
function set Access (value : vsCMAccess)

屬性值

類型：EnvDTE.vsCMAccess
vsCMAccess 值。

備註

Access 會傳回實際的存取，以及其他程式碼存取這個程式碼項目的方式。

注意事項
這個屬性對於 Visual Basic 原始程式碼的程式碼項目而言是唯讀性質。 另外像是類別、建構、函式、屬性 (Attribute)、委派 (Delegate) 等這些程式碼模型元素的值，在經過特定方式的編輯之後也可以為非決定性，即表示這些值將不再固定。如需詳細資訊，請參閱使用程式碼模型探索程式碼 (Visual Basic) 的＜程式碼模型項目值可以變更＞一節。

範例

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);
   }

.NET Framework 安全性

• 完全信任立即呼叫者。這個成員無法供部分信任的程式碼使用。如需詳細資訊，請參閱從部分受信任程式碼使用程式庫。

請參閱

參考

CodeClass 介面

EnvDTE 命名空間

其他資源

如何：編譯和執行 Automation 物件模型程式碼範例

使用程式碼模型探索程式碼 (Visual Basic)

使用程式碼模型探索程式碼 (Visual C#)