Использование Codedom для написания свойств VB.Net - PullRequest
Новая
       11

Использование Codedom для написания свойств VB.Net

1 голос
/ 17 апреля 2009

Глядя на пример кода на MSDN :

Это 

    ' Declares a type.
    Dim type1 As New CodeTypeDeclaration("Type1")

    ' Declares a constructor.
    Dim constructor1 As New CodeConstructor
    constructor1.Attributes = MemberAttributes.Public
    type1.Members.Add(constructor1)

    ' Declares an integer field.
    Dim field1 As New CodeMemberField("System.Int32", "integerField")
    type1.Members.Add(field1)

    ' Declares a property.
    Dim property1 As New CodeMemberProperty
    property1.Name = "integerProperty"
    property1.Type = New CodeTypeReference(GetType(Integer))
    ' Declares a property get statement to return the value of the integer field.
    property1.GetStatements.Add(New CodeMethodReturnStatement(New CodeFieldReferenceExpression(New CodeThisReferenceExpression, "integerField")))
    ' Declares a property set statement to set the value to the integer field.
    ' The CodePropertySetValueReferenceExpression represents the value argument passed to the property set statement.
    property1.SetStatements.Add(New CodeAssignStatement(New CodeFieldReferenceExpression(New CodeThisReferenceExpression, "integerField"), New CodePropertySetValueReferenceExpression))
    type1.Members.Add(property1)

    Dim dump As New VBCodeProvider
    Dim gen As Compiler.ICodeGenerator = dump.CreateGenerator
    Dim opt As New Compiler.CodeGeneratorOptions

    gen.GenerateCodeFromType(type1, Console.Out, opt)

должно генерировать 

Public Class Type1

   Private integerField As Integer

   Public Sub New()
       MyBase.New()
   End Sub

   Private Property integerProperty() As Integer
       Get
           Return Me.integerField
       End Get
       Set(ByVal Value As Integer)
           Me.integerField = value
       End Set
   End Property
End Class

Но я не вижу, чтобы он генерировал параметр для метода Set, т.е. Я получаю: 

       Set
           Me.integerField = value
       End Set

Учитывая, что мне уже пришлось добавить биты в код примера, чтобы фактически присвоить свойству имя, соответствующее их примеру вывода, я подозреваю, что отсутствует деталь, которая вызывает это, но я не могу отследить его ? Пока код компилируется, я не могу использовать свойства без ручного добавления параметров, что несколько противоречит цели. Есть идеи, чего не хватает?

1 Ответ

0 голосов
/ 17 апреля 2009

Комментарий № 3 к этой статье DevCity предполагает, что это не должно иметь значения, но я знаю, что Reflector ведет себя так, как вы ожидаете, хотя может имеет собственную реализацию для генерации кода ...

...