ここでは、Windowsフォームアプリケーション用サンプルコードをWPFアプリケーション用コードに変換しま す。フォームアプリケーションからWPFアプリケーションへの変化が最近の主流のようです。
参照元情報「WPF迷路の作成」にジャンプする
「WPF - Windows フォーム用のコントロールを使う」にジャンプする
作成方法の詳細は上記を参照願います。
フォームアプリケーションからWPFアプリケーションへの変更若干の変更でフォームアプリケーションからWPFアプリケーションへの変更ができます。
完成ファイルは以下からダウンロードできます。
ダウンロード後は解凍してから使用してください。
[WPFピクチャ ビューアーの作成]をダウンロードする。解凍すると「30WpfMaze」フォルダーがあります。
注（１）「30WpfMaze」フォルダーの「WpfMaze.sln」ファイルをダブルクリックすると「Microsoft Visual Basic 2010 Express」が起動します。
注（２）メニューの「ウインド」＿「ウインドレイアウトのリセット」で標準に戻ります。
注（３）「ソリューションエクスプローラ」ウインドウ内の「MainWindow.xaml」をダブルクリックすると「デザイン」と「XAML」が表示されます。
注（４）メニューの「表示」＿「コード」を選択するとコードが表示されます。
注（５）「WpfMaze.sln」の動作確認は「デバッグ」＿「デバッグ開始」で実行します。デバッグ機能を用いて動作確認を行います。
WpfMaze.slnの実行（１）「Microsoft Visual Basic 2010 Express」のデバッグ機能を使用します。
（２）「デバッグ」＿「デバッグ開始」を選択します。
（３）迷路が表示され、左上にカーソルが表示されます。
（４）カーソルが青の壁に触れないようにFinishラベルに到達するとゲーム終了です。
（５）カーソルが青の壁に触れるとカーソルが左上に戻ります。
（６）Closeボックスをおすとプログラムは終了します。
プロジェクトの構成（１）UserControl1.vbの構成
・Panel1を配置します。
（２）XAMLコードの構成
・Labelを配置します。
注：Panel1がフォームアプリケーション用のツールとなります。（スタートポイント設定用です。）
XAMLの全コード
<Window x:Class="MainWindow"
xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
xmlns:wf="clr-namespace:System.Windows.Forms;assembly=System.Windows.Forms"
xmlns:self="clr-namespace:WpfMaze"
Title="MainWindow" Height="432" Width="507" AllowsTransparency="False" IsTabStop="False">
<Grid Name="Grid1">
<Grid.RowDefinitions>
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="48*" />
<RowDefinition Height="0*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
<RowDefinition Height="24*" />
</Grid.RowDefinitions>
<Grid.ColumnDefinitions>
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
<ColumnDefinition Width="*" />
</Grid.ColumnDefinitions>
<WindowsFormsHost x:Name="wfHost" >
<self:UserControl1 x:Name="myControl" />
</WindowsFormsHost>
<Label Grid.Column="0" Grid.ColumnSpan="1" Grid.Row="2" Grid.RowSpan="19" Name="Label1" Background="Cyan"></Label>
<Label Grid.Column="3" Grid.ColumnSpan="18" Grid.Row="0" Grid.RowSpan="1" Name="Label2" Background="Cyan"></Label>
<Label Grid.Column="21" Grid.ColumnSpan="1" Grid.Row="1" Grid.RowSpan="20" Name="Label3" Background="Cyan"></Label>
<Label Grid.Column="1" Grid.ColumnSpan="18" Grid.Row="21" Grid.RowSpan="1" Name="Label4" Background="Cyan"></Label>
<Label Background="Cyan" Grid.ColumnSpan="17" Name="Label5" Grid.Column="1" Grid.Row="2" />
<Label Background="Cyan" Grid.RowSpan="14" Name="Label6" Grid.Column="2" Grid.Row="4" />
<Label Background="Cyan" Grid.ColumnSpan="17" Grid.RowSpan="2" Margin="0,0,0,23" Name="Label7" Grid.Column="2" Grid.Row="4" />
<Label Background="Cyan" Grid.RowSpan="13" Margin="0,0,0,1" Name="Label8" Grid.Column="4" Grid.Row="6" />
<Label Background="Cyan" Grid.ColumnSpan="13" Grid.RowSpan="2" Margin="0,0,0,23" Name="Label9" Grid.Column="6" Grid.Row="6" />
<Label Background="Cyan" Grid.RowSpan="10" Margin="0,1,0,24" Name="Label10" Grid.Column="6" Grid.Row="7" />
<Label Background="Cyan" Grid.RowSpan="9" Margin="0,0,0,1" Name="Label11" Grid.Column="8" Grid.Row="10" />
<Label Background="Cyan" Grid.ColumnSpan="11" Grid.RowSpan="2" Margin="0,0,0,23" Name="Label12" Grid.Column="8" Grid.Row="8" />
<Label Background="Cyan" Grid.RowSpan="9" Margin="0,0,0,1" Name="Label13" Grid.Column="13" Grid.Row="9" />
<Label Background="Cyan" Grid.ColumnSpan="3" Grid.RowSpan="2" Margin="0,0,0,23" Name="Label14" Grid.Column="10" Grid.Row="12" />
<Label Content="Finish " Grid.Column="17" Grid.ColumnSpan="2" Grid.Row="18" Grid.RowSpan="1" Name="finishLabel" />
</Grid>
</Window>
XAMLのポイント（１）<Window>階層1：クラス：以下の記載が特別です。
xmlns:wf="clr-namespace:System.Windows.Forms;assembly=System.Windows.Forms"
上記の記載はUserControlを使用するための記載です。
xmlns:self="clr-namespace:WpfMaze"
上記の記載はWpfMazeソリューションを使用するための記載です。
（２） <WindowsFormsHost x:Name="wfHost" Grid.Row="0">
<self:UserControl1 x:Name="myControl" />
</WindowsFormsHost>
上記の記載でUserControl1の使用条件を設定します。名前は"myControl" となります。
（３）Grid機能を使用して迷路を作成します。
Class MainWindowクラスの全コード
Class MainWindow
Dim startSoundPlayer = New System.Media.SoundPlayer("C:\Windows\Media\chord.wav")
Dim finishSoundPlayer = New System.Media.SoundPlayer("C:\Windows\Media\tada.wav")
Public Sub New()
' この呼び出しはデザイナーで必要です。
InitializeComponent()
MoveToStart()
End Sub
Private Sub MoveToStart()
startSoundPlayer.Play()
Dim startingPoint = myControl.Panel1.Location
startingPoint.Offset(10, 10)
Forms.Cursor.Position = myControl.PointToScreen(startingPoint)
End Sub
Private Sub Label_MouseEnter(sender As System.Object, e As System.Windows.Input.MouseEventArgs) Handles Label4.MouseEnter, Label14.MouseEnter, Label13.MouseEnter, Label12.MouseEnter, Label11.MouseEnter, Label10.MouseEnter, Label9.MouseEnter, Label8.MouseEnter, Label7.MouseEnter, Label6.MouseEnter, Label5.MouseEnter, Label3.MouseEnter, Label1.MouseEnter, Label2.MouseEnter
MoveToStart()
End Sub
Private Sub finishLabel_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles finishLabel.MouseEnter
finishSoundPlayer.Play()
MessageBox.Show("Congratulations!")
Close()
End Sub
End Class
Class MainWindowクラスのコード解説（１）Panel1.Location→myControl.Panel1.Locationとなります。
（２）PointToScreen(startingPoint)→myControl.PointToScreen(startingPoint)
あとは変更ありません。
Public Class UserControl1クラスのコードPublic Class UserControl1クラスのコードの記載はありません。
感想：
（１）LabelのレイアウトはGrid機能を使用するとやりやすいです。
（２）カーソルの座標設定にmyControl.Panel1.Locationを使用しました。（もっとスマートな方法があるかもしれません。）
３１章：チュートリアル30：WPF計算クイズの作成に行く。