VB のたまご

作成日: 2017/05/14, 更新日: 2017/05/14



Module3

  •  続いて、今度は指定フォルダ内を探して、見つけた dll からモジュール情報を取得してロードするサンプルです。 今までのサンプルと違い、WPF アプリケーションプロジェクトでは、モジュール(クラスライブラリ)はプロジェクト参照追加していません。 完全に独立していて、依存が全くない状態です。

  • スポンサーリンク


  •  前回同様、変更点のみ説明します。

  •  ブートストラッパー内で、フォルダを読み込むモジュールカタログを設定するだけです。 ここでは、実行ファイル(exe ファイル)と同じ場所に Modules フォルダがあるとして、 この中に配置された dll ファイルを読み込んで、モジュール情報を探して、モジュールカタログに登録します。

  • Protected Overrides Function CreateModuleCatalog() As IModuleCatalog
        Return New DirectoryModuleCatalog With {.ModulePath = ".\Modules"}
    End Function
    

  •  これだけです。 モジュール側では、インジェクションする区画名(文字列)さえ知っていれば、後は何も知らなくてもいいレベルです。

  •  このサンプルを実行すると、モジュール内のユーザーコントロールが画面内に表示されます。 ただし、動的な探索&ロード処理になるため、特に初回ロード時の読み込みが遅いです。

  •  それでは、以下ソース全体です。

  •  モジュールプロジェクト
  •  画面クラスのコードビハインドには、名前空間の追加以外、処理はありません。

  •  AView.xaml

  • <UserControl x:Class="Views.AView"
                 xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
                 xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
                 xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
                 xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
                 xmlns:local="clr-namespace:ClassLibrary1.Views"
                 mc:Ignorable="d" 
                 d:DesignHeight="300" d:DesignWidth="300">
        
        <Grid>
            <TextBlock Text="View A" FontSize="40" />
        </Grid>
        
    </UserControl>
    

  •  ClassLibrary1Module.vb

  • Imports Prism.Regions
    Imports Prism.Modularity
    Imports ClassLibrary1.Views
    Imports Microsoft.Practices.Unity
    
    Public Class ClassLibrary1Module
        Implements IModule
    
        <Dependency>
        Public Property Manager As IRegionManager
    
        Public Sub Initialize() Implements IModule.Initialize
    
            Me.Manager.RegisterViewWithRegion("ContentRegion", GetType(AView))
    
        End Sub
    
    End Class
    

  •  WPF アプリケーションプロジェクト
  •  画面クラスのコードビハインドには、名前空間の追加以外、処理はありません。

  •  Window1.xaml

  • <Window x:Class="Views.Window1"
            xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
            xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
            xmlns:d="http://schemas.microsoft.com/expression/blend/2008"
            xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006"
            xmlns:local="clr-namespace:WpfApplication1.Views"
            xmlns:prism="http://prismlibrary.com/"
            mc:Ignorable="d"
            Title="Window1" Height="350" Width="525">
    
        <Grid>
            <ContentControl prism:RegionManager.RegionName="ContentRegion" />
        </Grid>
    
    </Window>
    

  •  Bootstrapper.vb

  • Imports Microsoft.Practices.Unity
    Imports Prism.Unity
    Imports Prism.Modularity
    Imports WpfApplication1.Views
    
    Public Class Bootstrapper
        Inherits UnityBootstrapper
    
        ' Shell 担当になる View のインスタンスを返却
        Protected Overrides Function CreateShell() As DependencyObject
            Return Me.Container.Resolve(Of Window1)
        End Function
    
        ' Shell 担当になる View を表示
        Protected Overrides Sub InitializeShell()
            Application.Current.MainWindow.Show()
        End Sub
    
        ' 相対パスに配置された実行ファイルを読み込んで、
        ' モジュールカタログに、ClassLibrary1 プロジェクトに関するモジュール情報を登録
    
        ' →あらかじめ、dll 等の実行ファイルを指定パスに配置しておく必要あり
        ' 今回は、ClassLibrary1 プロジェクトのビルドイベントで上書きコピーするように設定
        ' ソリューションエクスプローラー
        '  → ClassLibrary1
        '  → My Project をダブルクリック、または右クリックのプロパティ
        '  → コンパイルタブ
        '  → 画面右下あたり?にある、ビルドイベント
        '  → ビルド後イベントのコマンドライン
        ' xcopy "$(TargetDir)$(TargetFileName)" "$(SolutionDir)\$(SolutionName)\$(OutDir)Modules\" /Y
        Protected Overrides Function CreateModuleCatalog() As IModuleCatalog
            Return New DirectoryModuleCatalog With {.ModulePath = ".\Modules"}
        End Function
    
    End Class
    

  •  Application.xaml.vb
  •  ※Application.xaml では、【StartupUri="MainWindow.xaml"】を削除しています。

  • Class Application
    
        ' Startup、Exit、DispatcherUnhandledException などのアプリケーション レベルのイベントは、
        ' このファイルで処理できます。
    
        Protected Overrides Sub OnStartup(e As StartupEventArgs)
            MyBase.OnStartup(e)
    
            ' Unity 管理による Prism アプリケーションの起動制御処理を実行
            Dim boot = New Bootstrapper
            boot.Run()
    
        End Sub
    
    End Class