更新:2007 年 11 月
向项目添加新的项目引用并返回新创建的 Reference 对象。
命名空间:  VSLangProj
程序集:  VSLangProj(在 VSLangProj.dll 中)
语法
声明
Function AddProject ( _
    pProject As Project _
) As Reference
用法
Dim instance As References
Dim pProject As Project
Dim returnValue As Reference
returnValue = instance.AddProject(pProject)
Reference AddProject(
    Project pProject
)
Reference^ AddProject(
    [InAttribute] Project^ pProject
)
function AddProject(
    pProject : Project
) : Reference
参数
- pProject 
 类型:EnvDTE.Project- 必需。要添加的 Project 对象。 
返回值
备注
如果项目中已存在一个与新引用具有相同的 Identity、Culture、MajorVersion、MinorVersion、BuildNumber 和 RevisionNumber 的引用,此方法不生成错误。这种情况表示 bstrPath 参数所指示的引用已添加到项目中。相反,将返回项目中已存在的匹配引用的 ProjectItem。
如果项目中的一个引用具有相同的 Identity 但不同的 MajorVersion、MinorVersion、BuildNumber、RevisionNumber 或 Culture,则该方法将生成错误。
示例
' Macro Editor    
Imports VSLangProj
' Add the second project as a reference to the first project.
Sub AddProjectExample()
   ' First project is a Visual Basic or C# project.
   Dim theVSProject As VSProject = _
      CType(DTE.Solution.Projects.Item(1).Object, VSProject)
        
   ' Second project is any type of project.
   Dim secondProject As Project = DTE.Solution.Projects.Item(2)
        
   ' AddProject returns the newly created Reference object.
   Dim newReference As Reference
   newReference = theVSProject.References.AddProject(secondProject)
End Sub
权限
- 对直接调用方的完全信任。此成员不能由部分信任的代码使用。有关更多信息,请参见通过部分受信任的代码使用库。