How to convert C# StructureMap initialization to VB.NET?

Question

I'm about to put my head thru this sliding glass door. I can't figure out how to execute the following code in VB.NET to save my life.

private static void InitStructureMap()
    {
        ObjectFactory.Initialize(x =>
                                     {
                                         x.AddRegistry(new DataAccessRegistry());
                                         x.AddRegistry(new CoreRegistry());
                                         x.AddRegistry(new WebUIRegistry());

                                         x.Scan(scanner =>
                                                    {
                                                        scanner.Assembly("RPMWare.Core");
                                                        scanner.Assembly("RPMWare.Core.DataAccess");
                                                        scanner.WithDefaultConventions();
                                                    });
                                     });
    }

Answer 1

My VB.NET isn't up to scratch, so I can't help you with the code directly. What I can tell you, however, is how to do it yourself and it's a doozy. Basically, you need to use Reflector to read the executable that contains this code in - and then you can choose to output it as VB.NET - how cool is that, and this trick works both ways.

Answer 2

That's awesome, for whatever reason though, it doesn't compile. Ugh.

Here's what it came up with though:

Private Shared Sub InitStructureMap()
ObjectFactory.Initialize(Function (ByVal x As IInitializationExpression) 
    x.AddRegistry(New DataAccessRegistry)
    x.AddRegistry(New CoreRegistry)
    x.AddRegistry(New WebUIRegistry)
    x.Scan(Function (ByVal scanner As IAssemblyScanner) 
        scanner.Assembly("RPMWare.Core")
        scanner.Assembly("RPMWare.Core.DataAccess")
        scanner.WithDefaultConventions
    End Function)
End Function)
End Sub

And I tried adding the _ to make it one line (that didn't work either)

 Private Shared Sub InitStructureMap()
ObjectFactory.Initialize(Function (ByVal x As IInitializationExpression) _
    x.AddRegistry(New DataAccessRegistry) _
    x.AddRegistry(New CoreRegistry) _
    x.AddRegistry(New WebUIRegistry) _
    x.Scan(Function (ByVal scanner As IAssemblyScanner) _
    scanner.Assembly("RPMWare.Core") _
    scanner.Assembly("RPMWare.Core.DataAccess") _
    scanner.WithDefaultConventions() _
    End Function) _
End Function) 
End Sub

Anyone else hate their legacy apps? :P

Answer 3

At the moment, it's simply not possible. The current version of VB does not support multiline (or statement) lambdas. Each lambda can only comprise one single expression. The next version of VB will fix that (there simply wasn't enough time in the last release).

In the meantime, you'll have to make do with a delegate:

Private Shared Sub Foobar(x As IInitializationExpression)
    x.AddRegistry(New DataAccessRegistry)
    x.AddRegistry(New CoreRegistry)
    x.AddRegistry(New WebUIRegistry)
    x.Scan(AddressOf Barfoo)
End Sub

Private Shared Sub Barfoo(ByVal scanner As IAssemblyScanner) 
    scanner.Assembly("RPMWare.Core")
    scanner.Assembly("RPMWare.Core.DataAccess")
    scanner.WithDefaultConventions
End Sub

' … '
ObjectFactory.Initialize(AddressOf Foobar)

Answer 4

I tried Konrad's solution, however it does not work for me. Here is my code:

Public Sub BootstrapStructureMap()
        ObjectFactory.Initialize(AddressOf InitMannequins)
        ObjectFactory.AssertConfigurationIsValid()
End Sub

Sub InitMannequins(ByVal x As IInitializationExpression)
        ' this works
        'x.FillAllPropertiesOfType(Of IPDFLayout).TheDefault.Is.OfConcreteType(Of USCanadaLayout)()
        ' this doesn't
        x.AddRegistry(New MannequinRegistry)
End Sub

Any idea what is going on?

Thank you

Answer 5

You can see another approach at:

http://blogs.lessthandot.com/index.php/DesktopDev/MSTech/structuremap-is-way-cool-even-in-vb-net