How to Use the WPF WizardService

C#
using System;
using System.Collections.Generic;
using System.Collections.ObjectModel;
using System.Linq;
using System.Text;
using System.Threading;
using System.Threading.Tasks;
using DevExpress.Mvvm;
using DevExpress.Mvvm.POCO;


namespace VM_DrivenWizard.ViewModel {
    public class MainWindowViewModel {
        public static MainWindowViewModel Create() {
            return ViewModelSource.Create(() => new MainWindowViewModel());
        }

        protected MainWindowViewModel() {
            Model = new Model();
        }

        public virtual string Text { get; protected set; }

        public void ShowDialog() {
            var wizardResult = this.GetRequiredService<IDialogService>().ShowDialog(MessageButton.OKCancel, "Wizard", this).ToString();
            var song = Model.Song;
            Text = "Wizard result: " + wizardResult + (string.IsNullOrEmpty(song) ? string.Empty : ", you choose " + Model.Song);
        }

        Model Model { get; set; }
        public void ViewLoaded() {
            this.GetRequiredService<IWizardService>().Navigate("WelcomePage", null,  Model, this);
        }
    }
}

Visual Basic
Imports DevExpress.Mvvm
Imports DevExpress.Mvvm.POCO

Namespace VM_DrivenWizard.ViewModel

    Public Class MainWindowViewModel

        Public Shared Function Create() As MainWindowViewModel
            Return ViewModelSource.Create(Function() New MainWindowViewModel())
        End Function

        Protected Sub New()
            Model = New Model()
        End Sub

        Public Overridable Property Text As String

        Public Sub ShowDialog()
            Dim wizardResult = Me.GetRequiredService(Of IDialogService)().ShowDialog(MessageButton.OKCancel, "Wizard", Me).ToString()
            Dim song = Model.Song
            Text = "Wizard result: " & wizardResult & If(String.IsNullOrEmpty(song), String.Empty, ", you choose " & Model.Song)
        End Sub

        Private Property Model As Model

        Public Sub ViewLoaded()
            GetRequiredService(Of IWizardService).Navigate("WelcomePage", Nothing, Model, Me)
        End Sub
    End Class
End Namespace

C#
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using DevExpress.Mvvm;
using DevExpress.Mvvm.DataAnnotations;
using DevExpress.Mvvm.Native;
using DevExpress.Mvvm.POCO;

namespace VM_DrivenWizard.ViewModels
{
    public abstract class WizardViewModelBase : ISupportParameter, ISupportWizardCancelCommand
    {
        protected WizardViewModelBase() { }
        public bool CanCancel
        {
            get { return GetCanCancel(); }
        }
        public virtual Model Model { get; protected set; }
        object ISupportParameter.Parameter
        {
            get { return Model; }
            set { Model = (Model)value; }
        }
        public void OnCancel(CancelEventArgs e)
        {
            if (this.GetService<IMessageBoxService>().
                ShowMessage("Do you want to exit the WPF feature tour?", "WPF Tour", MessageButton.YesNo, MessageIcon.Question) == MessageResult.No)
                e.Cancel = true;
        }
        protected virtual bool GetCanCancel()
        {
            return true;
        }
        public virtual bool ShowNext { get; set; } 
        public virtual bool ShowBack { get; set; }
        public virtual bool ShowCancel { get; set; }
        public virtual bool ShowFinish { get; set; }
        public virtual bool AllowNext { get; set; }
        public virtual bool AllowBack { get; set; }
        public virtual bool AllowCancel { get; set; }
        public virtual bool AllowFinish { get; set; }
    }
}

Visual Basic
Imports System.ComponentModel
Imports DevExpress.Mvvm
Imports DevExpress.Mvvm.POCO

Namespace VM_DrivenWizard.ViewModels

    Public MustInherit Class WizardViewModelBase
        Implements ISupportParameter, ISupportWizardCancelCommand

        Protected Sub New()
        End Sub

        Public ReadOnly Property CanCancel As Boolean Implements ISupportWizardCancelCommand.CanCancel
            Get
                Return GetCanCancel()
            End Get
        End Property

        Public Overridable Property Model As Model

        Private Property Parameter As Object Implements ISupportParameter.Parameter
            Get
                Return Model
            End Get

            Set(ByVal value As Object)
                Model = CType(value, Model)
            End Set
        End Property

        Public Sub OnCancel(ByVal e As CancelEventArgs) Implements ISupportWizardCancelCommand.OnCancel
            If GetService(Of IMessageBoxService)().ShowMessage("Do you want to exit the WPF feature tour?", "WPF Tour", MessageButton.YesNo, MessageIcon.Question) = MessageResult.No Then e.Cancel = True
        End Sub

        Protected Overridable Function GetCanCancel() As Boolean
            Return True
        End Function

        Public Overridable Property ShowNext As Boolean

        Public Overridable Property ShowBack As Boolean

        Public Overridable Property ShowCancel As Boolean

        Public Overridable Property ShowFinish As Boolean

        Public Overridable Property AllowNext As Boolean

        Public Overridable Property AllowBack As Boolean

        Public Overridable Property AllowCancel As Boolean

        Public Overridable Property AllowFinish As Boolean
    End Class
End Namespace

C#
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using DevExpress.Mvvm;
using DevExpress.Mvvm.POCO;

namespace VM_DrivenWizard.ViewModels
{
    public class WelcomePageViewModel : WizardViewModelBase, ISupportWizardNextCommand
    {
        protected WelcomePageViewModel()
        {
            ShowCancel = true;
            ShowNext = true;
        }
        public static WelcomePageViewModel Create()
        {
            return ViewModelSource.Create(() => new WelcomePageViewModel());
        }
        public bool CanGoForward
        {
            get { return true; }
        }
        public void OnGoForward(CancelEventArgs e)
        {
            GoForward();
        }
        protected void GoForward()
        {
            this.GetRequiredService<IWizardService>().Navigate("PlayTunePage", Model, this);
        }
    }
}

Visual Basic
Imports System.ComponentModel
Imports DevExpress.Mvvm
Imports DevExpress.Mvvm.POCO

Namespace VM_DrivenWizard.ViewModels

    Public Class WelcomePageViewModel
        Inherits WizardViewModelBase
        Implements ISupportWizardNextCommand

        Protected Sub New()
            ShowCancel = True
            ShowNext = True
        End Sub

        Public Shared Function Create() As WelcomePageViewModel
            Return ViewModelSource.Create(Function() New WelcomePageViewModel())
        End Function

        Public ReadOnly Property CanGoForward As Boolean Implements ISupportWizardNextCommand.CanGoForward
            Get
                Return True
            End Get
        End Property

        Public Sub OnGoForward(ByVal e As CancelEventArgs) Implements ISupportWizardNextCommand.OnGoForward
            GoForward()
        End Sub

        Protected Sub GoForward()
            GetRequiredService(Of IWizardService).Navigate("PlayTunePage", Model, Me)
        End Sub
    End Class
End Namespace

C#
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using DevExpress.Mvvm;
using DevExpress.Mvvm.POCO;

namespace VM_DrivenWizard.ViewModels
{
    public class PlayTunePageViewModel : WizardViewModelBase, ISupportWizardNextCommand, ISupportWizardFinishCommand
    {
        public static PlayTunePageViewModel Create()
        {
            return ViewModelSource.Create(() => new PlayTunePageViewModel());
        }
        protected PlayTunePageViewModel()
        {
            ShowBack = true;
            ShowCancel = true;
            ShowNext = true;
            AllowBack = true;
            AllowCancel = true;
        }
        public string Header { get { return "Step 2 - Play a tune"; } }
        public string Description { get { return "To make this demo more entertaining, we would like to play a tune for you. Simple choose your favorite track."; } }

        public void Play()
        {
            string text = @"Sorry, but we don't have that song in our library..." + Environment.NewLine;
            text += @"But we are agree with you that ""{0}"" is an exellent choice.";
            text = string.Format(text, Model.Song);
            this.GetService<IMessageBoxService>().ShowMessage(text, "Wizard", MessageButton.OK, MessageIcon.Information);
        }
        public bool CanPlay()
        {
            return Model != null && !string.IsNullOrEmpty(Model.Song);
        }
        public virtual string Song { get; set; }

        public bool CanGoForward
        {
            get { return CanPlay(); }
        }

        public bool CanFinish
        {
            get
            {
                return true;
            }
        }

        protected virtual void OnSongChanged()
        {
            Model.Song = Song;
        }

        public void OnGoForward(CancelEventArgs e)
        {
            this.GetRequiredService<IWizardService>().Navigate("CongratulationsPage", Model, this);
        }
        public void OnFinish(CancelEventArgs e)
        {
            this.GetService<IMessageBoxService>().ShowMessage("You have finished the tour.", "WPF Tour", MessageButton.OK, MessageIcon.Exclamation);
        }
    }
}

Visual Basic
Imports System
Imports System.ComponentModel
Imports DevExpress.Mvvm
Imports DevExpress.Mvvm.POCO

Namespace VM_DrivenWizard.ViewModels

    Public Class PlayTunePageViewModel
        Inherits WizardViewModelBase
        Implements ISupportWizardNextCommand, ISupportWizardFinishCommand

        Public Shared Function Create() As PlayTunePageViewModel
            Return ViewModelSource.Create(Function() New PlayTunePageViewModel())
        End Function

        Protected Sub New()
            ShowBack = True
            ShowCancel = True
            ShowNext = True
            AllowBack = True
            AllowCancel = True
        End Sub

        Public ReadOnly Property Header As String
            Get
                Return "Step 2 - Play a tune"
            End Get
        End Property

        Public ReadOnly Property Description As String
            Get
                Return "To make this demo more entertaining, we would like to play a tune for you. Simple choose your favorite track."
            End Get
        End Property

        Public Sub Play()
            Dim text As String = "Sorry, but we don't have that song in our library..." & Environment.NewLine
            text += "But we are agree with you that ""{0}"" is an exellent choice."
            text = String.Format(text, Model.Song)
            GetService(Of IMessageBoxService).ShowMessage(text, "Wizard", MessageButton.OK, MessageIcon.Information)
        End Sub

        Public Function CanPlay() As Boolean
            Return Model IsNot Nothing AndAlso Not String.IsNullOrEmpty(Model.Song)
        End Function

        Public Overridable Property Song As String

        Public ReadOnly Property CanGoForward As Boolean Implements ISupportWizardNextCommand.CanGoForward
            Get
                Return CanPlay()
            End Get
        End Property

        Public ReadOnly Property CanFinish As Boolean Implements ISupportWizardFinishCommand.CanFinish
            Get
                Return True
            End Get
        End Property

        Protected Overridable Sub OnSongChanged()
            Model.Song = Song
        End Sub

        Public Sub OnGoForward(ByVal e As CancelEventArgs) Implements ISupportWizardNextCommand.OnGoForward
            GetRequiredService(Of IWizardService)().Navigate("CongratulationsPage", Model, Me)
        End Sub

        Public Sub OnFinish(ByVal e As CancelEventArgs) Implements ISupportWizardFinishCommand.OnFinish
            GetService(Of IMessageBoxService)().ShowMessage("You have finished the tour.", "WPF Tour", MessageButton.OK, MessageIcon.Exclamation)
        End Sub
    End Class
End Namespace

C#
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using DevExpress.Mvvm;
using DevExpress.Mvvm.POCO;

namespace VM_DrivenWizard.ViewModels {
    public class CongratulationsPageViewModel : WizardViewModelBase, ISupportWizardFinishCommand {
        protected CongratulationsPageViewModel() {
            ShowBack = true;
            ShowCancel = true;
            ShowFinish = true;
            AllowBack = true;
        }
        public bool CanFinish {
            get { return true; }
        }

        public void OnFinish(CancelEventArgs e) {
            this.GetService<IMessageBoxService>().ShowMessage("Thank you for completing this WPF feature tour!", "WPF Tour", MessageButton.OK, MessageIcon.Exclamation);
        }
        protected override bool GetCanCancel() {
            return false;
        }
    }
}

Visual Basic
Imports System.ComponentModel
Imports DevExpress.Mvvm
Imports DevExpress.Mvvm.POCO

Namespace VM_DrivenWizard.ViewModels

    Public Class CongratulationsPageViewModel
        Inherits WizardViewModelBase
        Implements ISupportWizardFinishCommand

        Protected Sub New()
            ShowBack = True
            ShowCancel = True
            ShowFinish = True
            AllowBack = True
        End Sub

        Public ReadOnly Property CanFinish As Boolean Implements ISupportWizardFinishCommand.CanFinish
            Get
                Return True
            End Get
        End Property

        Public Sub OnFinish(ByVal e As CancelEventArgs) Implements ISupportWizardFinishCommand.OnFinish
            GetService(Of IMessageBoxService)().ShowMessage("Thank you for completing this WPF feature tour!", "WPF Tour", MessageButton.OK, MessageIcon.Exclamation)
        End Sub

        Protected Overrides Function GetCanCancel() As Boolean
            Return False
        End Function
    End Class
End Namespace