Metro.Dialogs mit VB.NET

  • VB.NET

    Metro.Dialogs mit VB.NET

    Hi,

    ich entwickle meine Anwendungen mit WPF und VB.NET.

    Metro-Design ist zur Zeit voll in, meine Kunden fahren drauf ab. Das Design für Controls usw. gibt es ja schön bei MahApps. Jetzt sollen auch die Dialoge in Metro glänzen. Also google und los...
    Gefunden habe ich das:
    github.com/ErwinCat/Metro.Dialogs

    Was mir mittlerweile Kopfschmerzen bereitet, ist das implementieren in mein VB.NET Projekt.

    Die Beispielklasse sieht so aus:

    Quellcode

    1. using System;
    2. using System.ComponentModel.Composition;
    3. using System.Reactive.Linq;
    4. using Caliburn.Micro;
    5. using Metro.Dialogs.Controls;
    8. namespace Metro.Dialogs.Example
    9. {
    10. [Export(typeof (IShell))]
    11. public class ShellViewModel : Screen, IShell
    12. {
    13. private readonly IWindowsDialogs _windowsDialogs;
    14. private bool _isBusy;
    15. private double _busyProgress;
    18. [ImportingConstructor]
    19. public ShellViewModel(IWindowsDialogs windowsDialogs)
    20. {
    21. _windowsDialogs = windowsDialogs;
    22. InitBreadcrumbs();
    23. }
    24. //...
    25. // ganz viel (unproblematischer Code...
    26. //...
    27. }
    30. public interface IShell
    31. {
    32. }
    33. }


    Mit Interfaces habe ich noch nix zu tun gehabt, wahrscheinlich macht mir das ganze deshalb soooooooooo viele Probleme.

    Also das habe ich (bisher):

    Quellcode

    1. Imports System.Collections.ObjectModel
    2. Imports SKSE.Dialogs.Wpf
    3. Imports System.ComponentModel
    4. Imports System.Windows.Automation.Peers
    5. Imports System.Windows.Automation.Provider
    6. Imports Caliburn.Micro
    7. Imports System
    8. Imports Metro.Dialogs
    9. Imports System.ComponentModel.Composition
    10. Imports System.Reactive.Linq
    11. Imports Metro.Dialogs.Controls
    14. <Export(GetType(IShell))>
    15. Public Class MainWindow
    17. Implements IShell
    19. Private ReadOnly _windowsDialogs As IWindowsDialogs
    21. Public Sub New()
    22. InitializeComponent()
    23. End Sub
    25. <ImportingConstructor()>
    26. Public Sub New(windowsDialogs As IWindowsDialogs)
    27. InitializeComponent()
    28. _windowsDialogs = windowsDialogs
    29. End Sub
    31. '...
    32. '...
    33. '...
    35. End Class
    37. Public Interface IShell
    38. End Interface


    Leider wird "Public Sub New(windowsDialogs As IWindowsDialogs)" nie durchlaufen und "_windowsDialogs " bleibt nothing...

    Der Konstruktor sollte eigentlich anstatt des Standard-Konstruktors durchlaufen werden, zumindest entnehme ich das dieser Internetseite:
    msdn.microsoft.com/de-de/libr...rt_inheritance

    Da steht ein kleines Beispiel:

    Quellcode

    1. Public Class MyExportClass
    3. 'This one will match
    4. <Export("MajorRevision")>
    5. Public ReadOnly Property MajorRevision As Integer
    6. Get
    7. Return 4
    8. End Get
    9. End Property
    11. <Export("MinorRevision")>
    12. Public ReadOnly Property MinorRevision As Integer
    13. Get
    14. Return 16
    15. End Get
    16. End Property
    17. End Class


    Bei meinem Programm wird allerdings der Standard-Konstruktor durchlaufen.

    Leider habe ich momentan keinen Plan, ob ich überhaupt auf dem richtigen Weg bin... ?( ?( ?(