Solution de contournement pour la méthode partielle VB.NET à l'aide de CodeDom?

Question

Je sais que CodeDom ne supporte pas les méthodes partielles, mais existe-t-il une solution de contournement? J'ai trouvé un workaround for C#, mais j'en ai besoin d'un pour VB.NET. Merci.

Answer 1

Je fini par détecter la langue et à l'aide CodeSnippetTypeMember()

Dim onDeleting = "Partial Private Sub OnDeleting()" & Environment.NewLine & "End Sub" 
type.Members.Add(New CodeSnippetTypeMember(onDeleting)) 

Answer 2

Il est un hack horrible, aussi méchant que celui C#, mais il fonctionne:

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 

Notez que l'option BlankLinesBetweenMembers est crucial de faire le travail de hack. Sortie:

Option Strict Off 
Option Explicit On 

Namespace SomeNamespace 
    Public Class SomeClass 
Partial _ 
     Private Sub SomeMethod() 
     End Sub 
    End Class 
End Namespace