如何:添加和移除属性页

2015-05-18

项目设计器用于管理项目的属性、设置和资源可集中的位置。 Visual Studio。在 Visual Studio 集成开发环境 (ide) 将以一个窗口 (IDE)并包含通过左侧的选项卡访问在右侧的窗格。窗格 (通常称为属性页) 在项目设计器由项目类型和语言而有所变化。项目设计器可以获取与项目菜单的属性命令。

项目子类型通常需要显示在项目设计器的其他属性页。同样，某些项目子类型可能需要移除内置属性页。若要执行其中之一，项目子类型必须实现 IVsHierarchy 接口并重写 GetProperty 方法。通过重写此方法和使用包含一个 __VSHPROPID2 枚举值的 propId 参数，可以筛选，添加或移除项属性。例如，您可能需要将页添加到配置相关属性页。为此，您需要筛选配置相关属性页然后将新页面添加到现有的列表。

添加和移除在项目设计器的 " 属性页

移除在项目设计器的 " 属性页

重写 GetProperty(uint itemId, int propId, out object property) 方法筛选 " 属性页，并获取 clsids 列表。

Protected Overrides int GetProperty(uint itemId, int propId, out object property)
Protected Overrides Function GetProperty(ByVal itemId As UInteger, ByVal propId As Integer, ByRef [property] As Object) As Integer
    'Use propId to filter configuration-independent property pages.
    Select Case propId
        .... 
        Case CInt(Fix(__VSHPROPID2.VSHPROPID_PropertyPagesCLSIDList))
            'Get a semicolon-delimited list of clsids of the configuration-independent property pages
            ErrorHandler.ThrowOnFailure(MyBase.GetProperty(itemId, propId, [property]))
               Dim propertyPagesList As String = ((String)[property]).ToUpper(CultureInfo.InvariantCulture)
            'Remove the property page here
               ....
        ....
    End Select
        .... 
    Return MyBase.GetProperty(itemId, propId, [property])
End Function

protected override int GetProperty(uint itemId, int propId, out object property)
{
    //Use propId to filter configuration-independent property pages.
    switch (propId)
    {
        . . . .

        case (int)__VSHPROPID2.VSHPROPID_PropertyPagesCLSIDList:
            {
                //Get a semicolon-delimited list of clsids of the configuration-independent property pages
                ErrorHandler.ThrowOnFailure(base.GetProperty(itemId, propId, out property));
                string propertyPagesList = ((string)property).ToUpper(CultureInfo.InvariantCulture);
                //Remove the property page here
                . . . .
            }
         . . . .
     }
        . . . .
    return base.GetProperty(itemId, propId, out property);
}

从获取的 clsids 移除 生成事件 页列表。

Private buildEventsPageGuid As String = "{1E78F8DB-6C07-4D61-A18F-7514010ABD56}"
Private index As Integer = propertyPagesList.IndexOf(buildEventsPageGuid)
If index <> -1 Then
    ' GUIDs are separated by ';' so if you remove the last GUID, also remove the last ';'
    Dim index2 As Integer = index + buildEventsPageGuid.Length + 1
    If index2 >= propertyPagesList.Length Then
        propertyPagesList = propertyPagesList.Substring(0, index).TrimEnd(";"c)
    Else
        propertyPagesList = propertyPagesList.Substring(0, index) + propertyPagesList.Substring(index2)
    End If
End If
'New property value
property = propertyPagesList

string buildEventsPageGuid = "{1E78F8DB-6C07-4D61-A18F-7514010ABD56}";
int index = propertyPagesList.IndexOf(buildEventsPageGuid);
if (index != -1)
{
    // GUIDs are separated by ';' so if you remove the last GUID, also remove the last ';'
    int index2 = index + buildEventsPageGuid.Length + 1;
    if (index2 >= propertyPagesList.Length)
        propertyPagesList = propertyPagesList.Substring(0, index).TrimEnd(';');
    else
        propertyPagesList = propertyPagesList.Substring(0, index) + propertyPagesList.Substring(index2);
}
//New property value
property = propertyPagesList;

在 " 项目设计器 " 中添加属性页

创建要添加的属性页。

Class DeployPropertyPage
        Inherits Form
        Implements Microsoft.VisualStudio.OLE.Interop.IPropertyPage
    'Summary: Return a stucture describing your property page.
    .... 
    Public Sub GetPageInfo(ByVal pPageInfo As Microsoft.VisualStudio.OLE.Interop.PROPPAGEINFO())
        Dim info As PROPPAGEINFO = New PROPPAGEINFO()
        info.cb = CUInt(Marshal.SizeOf(GetType(PROPPAGEINFO)))
        info.dwHelpContext = 0
        info.pszDocString = Nothing
        info.pszHelpFile = Nothing
        info.pszTitle = "Deployment" 'Assign tab name
        info.SIZE.cx = Me.Size.Width
        info.SIZE.cy = Me.Size.Height
        If Not pPageInfo Is Nothing AndAlso pPageInfo.Length > 0 Then
            pPageInfo(0) = info
        End If
    End Sub
End Class

class DeployPropertyPage : Form, Microsoft.VisualStudio.OLE.Interop.IPropertyPage
{
    . . . . 
    //Summary: Return a stucture describing your property page.
    public void GetPageInfo(Microsoft.VisualStudio.OLE.Interop.PROPPAGEINFO[] pPageInfo)
    {
        PROPPAGEINFO info = new PROPPAGEINFO();
        info.cb = (uint)Marshal.SizeOf(typeof(PROPPAGEINFO));
        info.dwHelpContext = 0;
        info.pszDocString = null;
        info.pszHelpFile = null;
        info.pszTitle = "Deployment";  //Assign tab name
        info.SIZE.cx = this.Size.Width;
        info.SIZE.cy = this.Size.Height;
        if (pPageInfo != null && pPageInfo.Length > 0)
            pPageInfo[0] = info;
    }
}

注册新的属性页。

<MSVSIP.ProvideObject(GetType(DeployPropertyPage), RegisterUsing = RegistrationMethod.CodeBase)>

[MSVSIP.ProvideObject(typeof(DeployPropertyPage), RegisterUsing = RegistrationMethod.CodeBase)]

重写 GetProperty(uint itemId, int propId, out object property) 方法筛选 " 属性页，获取 clsids 列表并添加新的属性页。

Protected Overrides Function GetProperty(ByVal itemId As UInteger, ByVal propId As Integer, ByRef [property] As Object) As Integer
    'Use propId to filter configuration-dependent property pages.
    Select Case propId
        .... 
        case CInt(Fix(__VSHPROPID2.VSHPROPID_CfgPropertyPagesCLSIDList)):
            'Get a semicolon-delimited list of clsids of the configuration-dependent property pages.
            ErrorHandler.ThrowOnFailure(MyBase.GetProperty(itemId, propId, [property]))
            'Add the Deployment property page.
            [property] &= ";"c + GetType(DeployPropertyPage).GUID.ToString("B")
    End Select
        .... 
        Return MyBase.GetProperty(itemId, propId, [property])
End Function

protected override int GetProperty(uint itemId, int propId, out object property)
{
    //Use propId to filter configuration-dependent property pages.
    switch (propId)
    {
        . . . .
        case (int)__VSHPROPID2.VSHPROPID_CfgPropertyPagesCLSIDList:
            {
                //Get a semicolon-delimited list of clsids of the configuration-dependent property pages.
                ErrorHandler.ThrowOnFailure(base.GetProperty(itemId, propId, out property));
                //Add the Deployment property page.
                property += ';' + typeof(DeployPropertyPage).GUID.ToString("B");
            }
     }
        . . . .
    return base.GetProperty(itemId, propId, out property);
}

备注

本主题提供的所有代码示例摘自一个更大的示例的一部分， Visual Studio 扩展性示例。

请参见

其他资源

项目子类型