DataGridのバインドの仕方

Question

###前提・実現したいこと
VBでWPFアプリケーションを作っています。
DataGridのデータバインドの仕方がわかりません。
xamlのみ記載はできたのですが、VB側の書き方がまったくわかりません。
恐れ入りますが教示お願いいたします。

###該当のソースコード
<xaml>
<Window x:Class="MainWindow" 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:Sample" mc:Ignorable="d" Title="MainWindow" Height="350" Width="525">

<Grid>
    <DataGrid x:Name="dataGrid" HorizontalAlignment="Left" VerticalAlignment="Top" Height="118" Width="260">
        <DataGrid.Columns>
            <DataGridTextColumn Binding="{Binding book}" Header="本" MinWidth="50" />
            <DataGridTextColumn Binding="{Binding url}" Header="URL" MinWidth="50" />
            <DataGridTextColumn Binding="{Binding memo}" Header="備考" MinWidth="50" />
        </DataGrid.Columns>
    </DataGrid>
</Grid>

</Window>

###補足情報(言語/FW/ツール等のバージョンなど)
VisualStudio2015 Professional
初心者です。

Answer 1

簡単に書くとこんな感じ

        <DataGrid x:Name="dataGrid" HorizontalAlignment="Left" VerticalAlignment="Top" AutoGenerateColumns="False">
            <DataGrid.Columns>
                <DataGridTextColumn Binding="{Binding book}" Header="本" MinWidth="50" />
                <DataGridTextColumn Binding="{Binding url}" Header="URL" MinWidth="50" />
                <DataGridTextColumn Binding="{Binding memo}" Header="備考" MinWidth="50" />
            </DataGrid.Columns>
        </DataGrid>

列を定義するならAutoGenerateColumns="False"を書いておこう

    Public Class Item

        Property book As String
        Property url As String
        Property memo As String

    End Class

    Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded

        Dim Items As New List(Of Item)

        Items.Add(New Item With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New Item With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New Item With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New Item With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New Item With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New Item With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})

        dataGrid.ItemsSource = Items
    End Sub

要はListなどのコレクションを生成してItemsSourceに突っ込めば、よきに計らってくれるのがデータバインド
あとItemをSystem.ComponentModel.INotifyPropertyChangedを継承する形で定義したり、Listの代わりにSystem.Collections.ObservableCollectionを使うようにすると賢い動きをしてくれるようになります

回答を補足 2017/06/16

質問者さんからできないとのコメントがあったので手順を踏んで解説しておきます

踏んだ手順(コメントに書いたとおり)

1. VisualStudioを起動
2. ファイル→新規プロジェクトでWPFアプリケーション
3. MainWindow.xamlに例示されたXAMLを貼り付け AutoGenerateColumns="False"も追記しておく
4. MainWindow.xamlを右クリックしてコードの表示を選択
5. コードを書いた

実行結果

見ての通りエラーなんて出ません

これでできなければもうムリかもなので、もう少し基本を押さえなおした方がいいかもしれませんね

Comments

[siromi]

dojikkoさん
ご回答ありがとうございます。
2点質問です。

■質問1
Private Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
”名前空間では有効でないステートメントです”とエラーがでました。こちらはどこに定義をすればよいのでしょうか
xamlを以下のように修正したのですが解消されませんでした。
<DataGrid x:Name="MainWindow_Loaded" HorizontalAlignment="Left" VerticalAlignment="Top" AutoGenerateColumns="False">

■質問2
DataGrid.ItemsSource = Items
”非共有メンバーを参照するにはオブジェクト参照が必要です”という内容のエラーが表示されます
こちらは具体的に何をすればいいのでしょうか。

アドバイスよろしくお願いいたします。

[dojikko]

一応私がやったことを書いておきます
VisualStudioで
新規プロジェクト→WPFアプリケーションで
MainWindow.xamlに例示されたXAMLを貼り付け
MainWindow.xamlを右クリックしてコードの表示を選択
そこでコードを書いたものを回答として貼っています

[siromi]

dojikkoさん
返信ありがとうございます。
同じことをやったのですが、やはり同じえらーが出てしまいました。。。。

xamlに Loaded="Window_Loaded"をたしてみたのですがそれもダメでした。

[dojikko]

できなかったのなら同じことをやっていません
本当に同じようにやったか確認をしてみてください

[dojikko]

私のVisualStudioと見え方が違いますとかコメントされたら泣く(笑

Answer 2

サンプルソースが落ちていたので真似して書いてみたら思い通りの表ができました。
ただ、内容理解していないので解読が必要です。。。。。。
WPF、VB難しいです。。。

■MainWindow.xaml

        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:SampleProject2"
        mc:Ignorable="d"
        Title="MainWindow" Height="350" Width="525"
        Loaded="Window_Loaded">

    <d:DesignProperties.DataContext>
        <SampleDataCollection xmlns="clr-namespace:SampleProject2" />
    </d:DesignProperties.DataContext>

    <Grid x:Name="RootGrid">
        <DataGrid x:Name="DataGrid1"
              AutoGenerateColumns="False" HorizontalAlignment="Left" 
              ItemsSource="{Binding DataContext, Mode=TwoWay, RelativeSource={RelativeSource Self}}" 
              >
            <DataGrid.Columns>
                <DataGridTextColumn Binding="{Binding book}" Header="本" MinWidth="50" />
                <DataGridTextColumn Binding="{Binding url}" Header="URL" MinWidth="50" />
                <DataGridTextColumn Binding="{Binding memo}" Header="備考" MinWidth="50" />
            </DataGrid.Columns>
        </DataGrid>
    </Grid>
</Window>

■SampleData.vb

Imports System.ComponentModel
Imports System.Collections.ObjectModel

' 表示する個々のデータ（データバインド可能）
Public Class SampleData
    'Implements INotifyPropertyChanged
    Public Property book As String
    Public Property url As String
    Public Property memo As String
End Class

' 表示するデータのコレクション（データバインド可能）
Public Class SampleDataCollection
    Inherits ObservableCollection(Of SampleData)

    Public Sub New()
        ' 初期データ
        Me.Add(New SampleData() With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Me.Add(New SampleData() With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Me.Add(New SampleData() With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
    End Sub
End Class

■MainWindow.xaml.vb

Class MainWindow
    Property book As String
    Property url As String
    Property memo As String

    ' 表示するデータ
    Private _data As SampleDataCollection = New SampleDataCollection()

    ' 画面が表示されるとき、データを画面にセットする
    Private Sub Window_Loaded(sender As Object, e As RoutedEventArgs)
        ' データをそのままセットする
        'Me.RootGrid.DataContext = _data

        Dim Items As New List(Of MainWindow)

        Items.Add(New MainWindow With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New MainWindow With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New MainWindow With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New MainWindow With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New MainWindow With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})
        Items.Add(New MainWindow With {.book = "初心者のためのVB.net", .url = "http://https://teratail.com/tags/VB", .memo = "たぶんそんな本はないと思う"})

        Me.RootGrid.DataContext = Items
    End Sub
End Class