WPFのデータバインディングについて

Question

データバインディングがよく理解できません。

MVVMを勉強したく、テスト的に書いてみました。
ですが、データがうまくバインドされません。
下の記述は、関係ない部分を省いたのですが、満足した状態で動かした際、
xamlファイルに記述したLabelコントロールに確かにバインディングされ、表示は出ました(vmオブジェクト)。
ただし、表示させたいのはvm.Server.ServerNameで、
そのためにxamlファイル側を{Binding vm.Server.ServerName}としても、これは表示されません。
(Me.DataContextにインスタンスは、きちんとは渡っています。)
試しに、vm.Nameが表示できるか試してみたのですが、({Binding vm.Name})
こちらも表示がされません。
参考にしたサイトによるとこの書き方でも、バインドできるように見えたのですが・・・
(https://www.atmarkit.co.jp/ait/articles/1010/08/news123.html)

ご助言を頂きたく思います。

# MainWin.xaml(view)
<Window x:Class="MainWin"
        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:test2"
        mc:Ignorable="d"
        Title="MainWin" Height="500" Width="800">
    <Grid>
         : 
        省略
         :
        <Label x:Name="label" Grid.ColumnSpan="12" Content="{Binding vm}" Grid.Column="30" HorizontalAlignment="Left" Height="100" Margin="9,9,0,0" Grid.Row="3" Grid.RowSpan="12" VerticalAlignment="Top" Width="100"/>
    </Grid>
</Window>

'Model.vb
Public Class Model
    Public Name As String
    Public Server As ServerModel
End Class

Public Class ServerModel
    Public ServerName As String
    Public DataBases As List(Of DataBaseModel)
End Class

Public Class DataBaseModel
    Public DataBaseName As String
    Public DataTables As List(Of DataTableModel)
End Class

Public Class DataTableModel
    Public DataTableName As String
End Class

'ViewModel.vb
Imports System.ComponentModel

Public Class ViewModel : Implements INotifyPropertyChanged
       :
      省略
       :
　　Private _vm As Model
    Public Property vm As Model
        Get
            Return _vm
        End Get
        Set(value As Model)
            _vm = value
        End Set
    End Property

    Public Sub New()
        Dim m As Model = New Model
        m.Name = "hogehoge"
        Dim s As ServerModel = New ServerModel _
            With {.ServerName = "hoge", .DataBases = New List(Of DataBaseModel)}
        Dim db As DataBaseModel = New DataBaseModel _
            With {.DataBaseName = "fuga", .DataTables = New List(Of DataTableModel)}
        Dim dt As DataTableModel = New DataTableModel _
            With {.DataTableName = "piyo"}
        db.DataTables.Add(dt)
        s.DataBases.Add(db)
        m.Server = s
        Me.vm = m
    End Sub
End Class

Answer 1

ViewModelがModelオブジェクトをそのままプロパティとして公開してるのがそもそもMVVM的にはおかしい（ビューとモデルの分離、という設計思想を破壊する）ので、Modelのメンバのうち必要なもの（この場合はModel.Server.ServerName）をViweModelのプロパティとして公開してください。

Comments

[退会済みユーザー]

なるほど。ありがとうございます。