obelink

{
  "defaultAssembly": "DependencyInjectionVBPart02",
  "components": [
    {
      "type": "DependencyInjectionVBPart02.Child, DependencyInjectionVBPart02",
      "services": [
        {
          "type": "DependencyInjectionVBPart02.Interfaces.IChild, DependencyInjectionVBPart02.Interfaces"
        }
      ],

obelink

Private Sub InitializeContainer()

    Dim configurationBuilder = New ConfigurationBuilder()
    configurationBuilder.SetBasePath(Environment.CurrentDirectory)
    configurationBuilder.AddJsonFile("Autofac.json")

    Dim configurationModule As New ConfigurationModule(configurationBuilder.Build())

    Dim containerBuilder = New ContainerBuilder()
    containerBuilder.RegisterModule(configurationModule)

obelink

Sub Main()

    InitializeContainer()

    Dim child = _container.Resolve(Of IChild)
    child.Drink()

    Console.ReadLine()

End Sub

obelink

Private Sub InitializeContainer()

    Dim builder As New ContainerBuilder()

    builder.RegisterType(Of Milk.DrinkService).As(Of IDrinkService)()
    builder.RegisterType(Of Child).As(Of IChild)()

    _container = builder.Build()

End Sub

obelink

Public Class Child

    Implements IChild

    Private ReadOnly _drinkService As IDrinkService

    Public Sub New(drinkService As IDrinkService)
        _drinkService = drinkService
    End Sub

obelink

Public Interface IChild

    Sub Drink()

End Interface

obelink

Sub Main()

    InitializeContainer()

    Dim drinkService = _container.Resolve(Of IDrinkService)
    Dim child As New Child(drinkService)
    child.Drink()

    Console.ReadLine()

obelink

Imports Autofac
Imports Autofac.Core
Imports DependencyInjectionVBPart02.Interfaces

Module MainModule

    Private _container As Container

    Private Sub InitializeContainer()

obelink

Imports DependencyInjectionVBPart02.Interfaces

Public Class Child

    Private ReadOnly _drinkService As IDrinkService

    Public Sub New(drinkService As IDrinkService)
        _drinkService = drinkService
    End Sub

obelink

Imports DependencyInjectionVBPart02.Interfaces

Public Class DrinkService

    Implements IDrinkService

    Public Sub Drink() Implements IDrinkService.Drink
        Console.WriteLine("Drink a glass of orange juice")
    End Sub