Właściwość CodeAttributeArgument.Language —
Pobiera języka programowania używanego do tworzenia kodu.
Przestrzeń nazw: EnvDTE80
Zestaw: EnvDTE80 (w EnvDTE80.dll)
'Deklaracja
ReadOnly Property Language As String
string Language { get; }
property String^ Language {
String^ get ();
}
abstract Language : string with get
function get Language () : String
Typ: String
Ciąg reprezentujący CodeModelLanguageConstants stałą.
[!UWAGA]
Po dokonaniu niektórych rodzajów modyfikacji, co oznacza, że ich wartości nie może polegać na zawsze pozostawać taki sam może być nie deterministyczny wartości elementów modelu kodu, takich jak klasy, strukturach, funkcje, atrybuty, delegatów i tak dalej.Aby uzyskać więcej informacji, zobacz sekcję wartości elementu modelu kod można zmienić w Odnajdowanie kodu za pomocą modelu kodu (Visual Basic).
' Macro code.
Sub codeArgNameExample()
Dim sel As TextSelection = _
CType(DTE.ActiveDocument.Selection, TextSelection)
Dim cls As CodeClass2 = CType(sel.ActivePoint. _
CodeElement(vsCMElement.vsCMElementClass), CodeClass2)
Dim attr As CodeAttribute2
Dim attrArg As CodeAttributeArgument
Dim msg As String
Try
' Loop through all of the attributes in the class.
For Each attr In cls.Attributes
' Loop through all of the arguments for the attribute.
For Each attrArg In attr.Arguments
msg += "Value: " & attrArg.Value & " " & vbCr
' If the argument has a name, list it.
If attrArg.Name <> Nothing Then
msg += "Name: " & attrArg.Name & vbCr
End If
msg += "Arg start pos: " & _
attrArg.StartPoint.LineCharOffset & vbCr
msg += "Arg end pos: " & _
attrArg.EndPoint.LineCharOffset & vbCr
Next
Next
msg += "Location: " & attrArg.InfoLocation.ToString & vbCr
msg += "Is code type? " & attrArg.IsCodeType.ToString & vbCr
msg += "Code element type: " & attrArg.Kind.ToString & vbCr
msg += "Language: " & attrArg.Language & vbCr
msg += ("Name of attribute's project item: " & _
attrArg.ProjectItem.Name)
' List the arguments for the attribute.
MsgBox("Attribute parameters for " & attr.Name _
& ": " & vbCr & msg)
Catch ex As System.Exception
MsgBox("ERROR -> " & ex.Message)
End Try
End Sub
- Pełne zaufanie do bezpośredniego wywołującego. Tego elementu członkowskiego nie można używać w kodzie częściowo zaufanym. Aby uzyskać więcej informacji, zobacz Używanie bibliotek pochodzących z częściowo zaufanego kodu.
CodeAttributeArgument Interfejs
Porady: kompilowanie i uruchamianie kodu modelu obiektów automatyzacji — przykłady