Método CodeClass2.RemoveBase
Remove um objeto da lista de bases.
Namespace: EnvDTE80
Assembly: EnvDTE80 (em EnvDTE80.dll)
Sintaxe
'Declaração
Sub RemoveBase ( _
Element As Object _
)
void RemoveBase(
Object Element
)
void RemoveBase(
Object^ Element
)
abstract RemoveBase :
Element:Object -> unit
function RemoveBase(
Element : Object
)
Parâmetros
Element
Tipo: ObjectNecessário. CodeElement ou o nome de um da coleção.
Comentários
O elemento pode ser removido um objeto de CodeElement que está na coleção ou no nome de um elemento exclusivo na coleção.
Dica
Os valores de código de modelagem elementos como classes, estruturas, funções, atributos, representantes, e assim por diante podem ser não determinísticas depois de fazer determinados tipos as edições do, o que significa que seus valores não podem ser confiáveis em para permanecer sempre os mesmos.Para obter mais informações, veja que os valores do elemento do modelo de código da seção podem ser alteradas em Descobrindo código usando o modelo de código (Visual Basic).
Exemplos
[Visual Basic]
Sub RemoveBaseExample(ByVal dte As DTE2)
' NOTE: This example requires a reference to the
' System.Collections namespace.
' Before running this example, open a code document from a project
' and place the insertion point inside a class definition.
Try
' Retrieve the CodeClass at the insertion point.
Dim sel As TextSelection = _
CType(dte.ActiveDocument.Selection, TextSelection)
Dim cls As CodeClass = _
CType(sel.ActivePoint.CodeElement( _
vsCMElement.vsCMElementClass), CodeClass)
If MsgBox("Remove all bases from " & cls.Name & "?", _
MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
' Remove every base except System.Object.
Dim bases As New ArrayList()
Dim base As CodeElement
For Each base In cls.Bases
If base.FullName <> ConvertFullName( _
cls.ProjectItem.ContainingProject.CodeModel, _
"System.Object") Then
bases.Add(base)
End If
Next
For Each base In bases
cls.RemoveBase(base)
Next
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Function ConvertFullName(ByVal cm As CodeModel, _
ByVal fullName As String) As String
' Convert a .NET type name into a C++ type name.
If (cm.Language = CodeModelLanguageConstants.vsCMLanguageVC) Or _
(cm.Language = CodeModelLanguageConstants.vsCMLanguageMC) Then
Return fullName.Replace(".", "::")
Else
Return fullName
End If
End Function
[C#]
public void RemoveBaseExample(DTE2 dte)
{
// NOTE: This example requires a reference to the
// System.Collections namespace.
// Before running this example, open a code document from a project
// and place the insertion point inside a class definition.
try
{
// Retrieve the CodeClass at the insertion point.
TextSelection sel =
(TextSelection)dte.ActiveDocument.Selection;
CodeClass cls =
(CodeClass)sel.ActivePoint.get_CodeElement(
vsCMElement.vsCMElementClass);
if (MessageBox.Show("Remove all bases from " + cls.Name + "?",
"", MessageBoxButtons.YesNo) == DialogResult.Yes)
{
// Remove every base except System.Object.
ArrayList bases = new ArrayList();
foreach (CodeElement baseElement in cls.Bases)
{
if (baseElement.FullName != ConvertFullName(
cls.ProjectItem.ContainingProject.CodeModel,
"System.Object"))
bases.Add(baseElement);
}
foreach (CodeElement baseElement in bases)
cls.RemoveBase(baseElement);
}
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
}
string ConvertFullName(CodeModel cm, string fullName)
{
// Convert a .NET type name into a C++ type name.
if ((cm.Language == CodeModelLanguageConstants.vsCMLanguageVC) ||
(cm.Language == CodeModelLanguageConstants.vsCMLanguageMC))
return fullName.Replace(".", "::");
else
return fullName;
}
Segurança do .NET Framework
- Confiança total para o chamador imediato. O membro não pode ser usado por código parcialmente confiável. Para obter mais informações, consulte Usando bibliotecas de código parcialmente confiável.
Consulte também
Referência
Outros recursos
Como compilar e executar os exemplos de código do modelo de objeto Automation