Я знаю, что CodeDom не поддерживает частичные методы, но есть ли обходной путь? Я нашел обходной путь для C#, но мне нужен для VB.NET. Спасибо.
Обходной путь для частичного метода VB.NET с использованием CodeDom?
Ответы (2)
Это ужасный хак, такой же злой, как и C#, но он работает:
Imports System.CodeDom
Imports System.CodeDom.Compiler
Imports System.IO
Module Module1
Sub Main()
Dim unit As New CodeCompileUnit
Dim nspace As New CodeNamespace("SomeNamespace")
Dim vbclass As New CodeTypeDeclaration("SomeClass")
vbclass.IsClass = True
Dim snippet As New CodeSnippetTypeMember("Partial _")
vbclass.Members.Add(snippet)
Dim method As New CodeMemberMethod()
method.Name = "SomeMethod"
method.Attributes = MemberAttributes.Private
vbclass.Members.Add(method)
nspace.Types.Add(vbclass)
unit.Namespaces.Add(nspace)
dim provider As CodeDomProvider = CodeDomProvider.CreateProvider("VB")
Dim options As New CodeGeneratorOptions()
options.BlankLinesBetweenMembers = False
dim writer As new StringWriter()
provider.GenerateCodeFromCompileUnit(unit, writer, options)
Console.WriteLine(writer.ToString())
Console.ReadLine()
End Sub
End Module
Обратите внимание, что параметр BlankLinesBetweenMembers имеет решающее значение для работы хака. Выход:
Option Strict Off
Option Explicit On
Namespace SomeNamespace
Public Class SomeClass
Partial _
Private Sub SomeMethod()
End Sub
End Class
End Namespace
person
Hans Passant
schedule
30.11.2009
Спасибо за ответ, но я бы не хотел влиять на весь мой сгенерированный код, изменяя параметр BlankLinesBetweenMembers для этого маленького хака.
- person adam0101; 03.12.2009
Я закончил тем, что обнаружил язык и использовал CodeSnippetTypeMember()
Dim onDeleting = "Partial Private Sub OnDeleting()" & Environment.NewLine & "End Sub"
type.Members.Add(New CodeSnippetTypeMember(onDeleting))
person
adam0101
schedule
02.12.2009