朧の.Netの足跡
問合せ先:support@oborodukiyo.info サイト内検索はこちら 
WPF ToolkitのChart(グラフ)を使ってみる その2





WPFで、チャートコントロールをコードから動的に作成する方法のサンプルです。
グラフの種類はフォームの時よりも少ないようです。
XAMLで設定する方法では、DataContextにDataTableのデータを設定して動きましたが、こちらではダメです。 ItemsSourceにIEnumerableのデータを設定します。

WPF ToolkitのDownloadサイト http://wpf.codeplex.com/Release/ProjectReleases.aspx?ReleaseId=29117


Window2.xaml

<window x:class="MSChartProject.Window2"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        title="Window2" height="523" width="566" loaded="Window_Loaded">
        <dockpanel name="DP" height="523" width="566">
        
        </dockpanel>
    </window>

C#

Window2.xaml.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Data.Linq;
using System.Text;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Data;
using System.Windows.Documents;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Media.Imaging;
using System.Windows.Shapes;
using System.Windows.Controls.DataVisualization.Charting;
using System.Windows.Controls.DataVisualization;
using System.Data.SqlClient;
using System.Data;
namespace MSChartProject
{
    /// <summary>
    /// Window2.xaml の相互作用ロジック
    /// </summary>
    public partial class Window2 : Window
    {
        //ADO.NETを使用するときに使用
        public DataTable dt = new DataTable();
        SqlDataAdapter sda = new SqlDataAdapter();
        //ItemsSourceがIEnumberablを要求するために使用
        List<orderdetails> l = new List<orderdetails>();
        public Chart c1;
        public Window2()
        {
            InitializeComponent();
            
        }
        private void Window_Loaded(object sender, RoutedEventArgs e)
        {
            //接続情報のプレースホルダ
            SqlConnectionStringBuilder bldr = new SqlConnectionStringBuilder();
            //ローカルサーバを設定
            bldr.DataSource = ".";
            //データベースを設定
            bldr.InitialCatalog = "Northwind";
            //ログインしているアカウント情報を使用
            bldr.IntegratedSecurity = true;
            
            //LINQを使用する場合
            DataContext dc = new DataContext(bldr.ConnectionString);
            //テーブルのデータを保存する変数
            Table<orderdetails> od = dc.GetTable<orderdetails>();
            //メソッド形式を使用する場合の例
            var query = (from i in od
                         where i.OrderID <= 10250
                         select i).GroupBy(o => o.OrderID, (k, o) => new OrderDetails { OrderID = k, Quantity = o.Sum(p => p.Quantity), Proceeds = o.Sum(p => p.Quantity * p.Proceeds) });
            //糖衣構文を使用する場合の例
            //var query = from i in od
            //             where i.OrderID <= 10250
            //             group i by i.OrderID into grouping
            //             select new { OrderID = grouping.Key, Quantity = grouping.Sum(p => p.Quantity), Proceeds = grouping.Sum(p => p.UnitPrice * p.Quantity) };
                             
            ////ADO.NETを使用する場合の例
            //using (SqlConnection conn = new SqlConnection(bldr.ConnectionString))
            //{
            //    using (SqlCommand cmd = new SqlCommand())
            //    {
            //        cmd.Connection = conn;
            //        cmd.CommandText = "SELECT OrderID,SUM(Quantity) AS Quantity,SUM(UnitPrice * Quantity) AS Proceeds FROM [Order Details] WHERE OrderID <= 10250 GROUP BY OrderID ORDER BY OrderID";
            //        this.sda.SelectCommand = cmd;
            //        this.sda.Fill(this.dt);
            //    }
            //}
            ////ItemsSourceがIEnumerableを要求するのでList型に移し替える処理
            //for (int i = 0; i < dt.Rows.Count; i++)
            //{
            //    l.Add(new OrderDetails((int)dt.Rows[i]["OrderID"], (int)dt.Rows[i][1], (decimal)dt.Rows[i][2]));
            //}
            //グラフの大本の変数
            c1 = new Chart();
            //折れ線グラフ
            LineSeries ls1 = new LineSeries();
            //棒グラフ
            ColumnSeries ls2 = new ColumnSeries();
            //面グラフ
            //AreaSeries ls1 = new AreaSeries();
            //横棒グラフ
            //BarSeries bs1 = new BarSeries();
            //バブルチャート
            //BubbleSeries ls1 = new BubbleSeries();
            //散布図
            //ScatterSeries ls1 = new ScatterSeries();
            //DataPointSeries
            //円グラフ
            //PieSeries ps1 = new PieSeries();
            //円グラフをチャートに追加
            //c1.Series.Add(ps1);
            //1番目のグラフのY軸
            LinearAxis y1 = new LinearAxis();
            y1.Maximum = 100.0;
            y1.Minimum = 0.0;
            //Y軸であることを指定
            y1.Orientation = AxisOrientation.Y;
            //2番目のグラフのY軸
            LinearAxis y2 = new LinearAxis();
            y2.Maximum = 2000;
            y2.Minimum = 400;
            //Y軸であることを指定
            y2.Orientation = AxisOrientation.Y;
            //X軸
            LinearAxis x1 = new LinearAxis();
            x1.Minimum = 10247;
            x1.Maximum = 10251;
            //X軸であることを指定
            x1.Orientation = AxisOrientation.X;
            //1番目のグラフのキーとなる値の軸を指定
            ls1.IndependentAxis = x1;
            //1番目のグラフの値となる値の軸を指定
            ls1.DependentRangeAxis = y1;
            //2番目のグラフのキーとなる値の軸を指定
            ls2.IndependentAxis = x1;
            //2番目のグラフの値となる値の軸を指定
            ls2.DependentRangeAxis = y2;
            //1番目のグラフのタイトル
            ls1.Title = "売上個数";
            //2番目のグラフのタイトル
            ls2.Title = "売上高";
            //1番目のグラフのキーとなる値の名前
            ls1.IndependentValuePath = "OrderID";
            //1番目のグラフの値となる値の名前
            ls1.DependentValuePath = "Quantity";
            //2番目のグラフのキーとなる値の名前
            ls2.IndependentValuePath = "OrderID";
            //2番目のグラフの値となる値の名前
            ls2.DependentValuePath = "Proceeds";
            //グラフの上部に表示されるタイトル名
            c1.Title = "サンプル";
            //チャートに各グラフを追加する
            c1.Series.Add(ls2);
            c1.Series.Add(ls1);
            //ps1.ItemsSource = query2;
            //それぞれにデータ変数を設定
            //LINQの場合
            ls1.ItemsSource = query;
            ls2.ItemsSource = query;
            //ADO.NETの場合
            //ls1.ItemsSource = l;
            //ls2.ItemsSource = l;
            //Windowにチャートコントロールを追加
            this.DP.Children.Add(c1);
        }
    }
}

データ用のクラス

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Data.Linq;
using System.Data.Linq.Mapping;
using System.ComponentModel;
namespace MSChartProject
{
    [Table(Name="Order Details")]
    class OrderDetails : INotifyPropertyChanged
    {
        
        private int _o;
        private int _q;
        private decimal _u;
        [Column]
        public int OrderID
        {
            get { return _o; }
            set
            {
                _o = value;
                OnPropertyChanged("OrderID");
            }
        }
        [Column]
        public int Quantity
        {
            get { return _q; }
            set
            {
                _q = value;
                OnPropertyChanged("Quantity");
            }
        }
        [Column(Name="UnitPrice")]
        public decimal Proceeds
        {
            get { return _u; }
            set
            {
                _u = value;
                OnPropertyChanged("Proceeds");
            }
        }
        public event PropertyChangedEventHandler PropertyChanged;
        private void OnPropertyChanged(string name)
        {
            if (PropertyChanged != null)
            {
                PropertyChanged(this, new PropertyChangedEventArgs(name));
            }
        }
        public OrderDetails(int o, int q, decimal u)
        {
            OrderID = o;
            Quantity = q;
            Proceeds = u;
        }
        public OrderDetails()
        {
            OrderID = 0;
            Quantity = 0;
            Proceeds = 0;
        }
    }
}

VB.NET

Window2.xaml.vb

Imports System.Linq
Imports System.Data.Linq
Imports System.Data.Linq.Mapping
Imports System.ComponentModel
Imports System.Windows.Controls.DataVisualization.Charting
Imports System.Windows.Controls.DataVisualization
Imports System.Data.SqlClient
Imports System.Data
Class Window2
    'ADO.NETを使用するときに使用
    Dim dt As DataTable = New DataTable()
    Dim sda As SqlDataAdapter = New SqlDataAdapter()
    'ItemsSourceがIEnumberablを要求するために使用
    Dim l As List(Of OrderDetails) = New List(Of OrderDetails)()
    Private Sub Window2_Loaded(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
        '接続情報のプレースホルダ
        Dim bldr As SqlConnectionStringBuilder = New SqlConnectionStringBuilder()
        'ローカルサーバを設定
        bldr.DataSource = "."
        'データベースを設定
        bldr.InitialCatalog = "Northwind"
        'ログインしているアカウント情報を使用
        bldr.IntegratedSecurity = True
        'LINQを使用する場合
        Dim dc As DataContext = New DataContext(bldr.ConnectionString)
        'テーブルのデータを保存する変数
        Dim od As Table(Of OrderDetails) = dc.GetTable(Of OrderDetails)()
        ''メソッド形式を使用する場合の例
        'Dim query = od.Where(Function(i) i.OrderID <= 10250).GroupBy(Function(o) o.OrderID, Function(k, o) New With {.OrderID = k, .Quantity = o.Sum(Function(p) p.Quantity), .Proceeds = o.Sum(Function(p) p.Quantity * p.Proceeds)})
        '糖衣構文を使用する場合の例
        Dim query = From i In od _
                        Where i.OrderID <= 10250 _
                        Group i By i.OrderID Into Group, Q = Sum(i.Quantity), P = Sum(i.Quantity * i.Proceeds) _
                        Select New OrderDetails(OrderID, Q, P)
        ''ADO.NETを使用する場合の例
        'Using conn As SqlConnection = New SqlConnection(bldr.ConnectionString)
        '    Using cmd As SqlCommand = New SqlCommand()
        '        cmd.Connection = conn
        '        cmd.CommandText = "SELECT OrderID,SUM(Quantity) AS Quantity,SUM(UnitPrice * Quantity) AS Proceeds FROM [Order Details] WHERE OrderID <= 10250 GROUP BY OrderID ORDER BY OrderID"
        '        Me.sda.SelectCommand = cmd
        '        Me.sda.Fill(Me.dt)
        '    End Using
        'End Using
        ''ItemsSourceがIEnumerableを要求するのでList型に移し替える処理
        'For i As Integer = 0 To dt.Rows.Count - 1 Step 1
        '    l.Add(New OrderDetails(CType(dt.Rows(i)("OrderID"), Integer), CType(dt.Rows(i)("Quantity"), Integer), CType(dt.Rows(i)("Proceeds"), Decimal)))
        'Next i
        'グラフの大本の変数
        Dim c1 As Chart = New Chart()
        '折れ線グラフ
        Dim ls1 As LineSeries = New LineSeries()
        '棒グラフ
        Dim ls2 As ColumnSeries = New ColumnSeries()
        '面グラフ
        'Dim ls1 As AreaSeries = New AreaSeries()
        '横棒グラフ
        'Dim bs1 As BarSeries = New BarSeries()
        'バブルチャート
        'Dim ls1 As BubbleSeries = New BubbleSeries()
        '散布図
        'Dim ls1 As ScatterSeries = New ScatterSeries()
        'DataPointSeries
        '円グラフ
        'Dim ps1 As PieSeries = New PieSeries()
        '円グラフをチャートに追加
        'c1.Series.Add(ps1)
        '1番目のグラフのY軸
        Dim y1 As LinearAxis = New LinearAxis()
        y1.Maximum = 100.0
        y1.Minimum = 0.0
        'Y軸であることを指定
        y1.Orientation = AxisOrientation.Y
        '2番目のグラフのY軸
        Dim y2 As LinearAxis = New LinearAxis()
        y2.Maximum = 2000
        y2.Minimum = 400
        'Y軸であることを指定
        y2.Orientation = AxisOrientation.Y
        'X軸
        Dim x1 As LinearAxis = New LinearAxis()
        x1.Minimum = 10247
        x1.Maximum = 10251
        'X軸であることを指定
        x1.Orientation = AxisOrientation.X
        '1番目のグラフのキーとなる値の軸を指定
        ls1.IndependentAxis = x1
        '1番目のグラフの値となる値の軸を指定
        ls1.DependentRangeAxis = y1
        '2番目のグラフのキーとなる値の軸を指定
        ls2.IndependentAxis = x1
        '2番目のグラフの値となる値の軸を指定
        ls2.DependentRangeAxis = y2
        '1番目のグラフのタイトル
        ls1.Title = "売上個数"
        '2番目のグラフのタイトル
        ls2.Title = "売上高"
        '1番目のグラフのキーとなる値の名前
        ls1.IndependentValuePath = "OrderID"
        '1番目のグラフの値となる値の名前
        ls1.DependentValuePath = "Quantity"
        '2番目のグラフのキーとなる値の名前
        ls2.IndependentValuePath = "OrderID"
        '2番目のグラフの値となる値の名前
        ls2.DependentValuePath = "Proceeds"
        'グラフの上部に表示されるタイトル名
        c1.Title = "サンプル"
        'チャートに各グラフを追加する
        c1.Series.Add(ls2)
        c1.Series.Add(ls1)
        'ps1.ItemsSource = query2
        'それぞれにデータ変数を設定
        'LINQの場合
        ls1.ItemsSource = query
        ls2.ItemsSource = query
        'ADO.NETの場合
        'ls1.ItemsSource = l
        'ls2.ItemsSource = l
        'Windowにチャートコントロールを追加
        Me.DP.Children.Add(c1)
    End Sub
End Class

データ用クラス

    <table(name: ="Order Details" )> _
 Public Class OrderDetails
    Implements INotifyPropertyChanged
    Private _o As Integer
    Private _q As Integer
    Private _u As Decimal
        <column()> _
    Public Property OrderID() As Integer
        Get
            Return _o
        End Get
        Set(ByVal value As Integer)
            _o = value
            OnPropertyChanged("OrderID")
        End Set
    End Property
        <column()> _
    Public Property Quantity() As Integer
        Get
            Return _q
        End Get
        Set(ByVal value As Integer)
            _q = value
            OnPropertyChanged("Quantity")
        End Set
    End Property
        <column(name: ="UnitPrice" )> _
    Public Property Proceeds() As Decimal
        Get
            Return _u
        End Get
        Set(ByVal value As Decimal)
            _u = value
            OnPropertyChanged("Proceeds")
        End Set
    End Property
    Public Event PropertyChanged(ByVal sender As Object, ByVal e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged
    Private Sub OnPropertyChanged(ByVal name As String)
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(name))
    End Sub
    Public Sub New(ByVal o As Integer, ByVal q As Integer, ByVal u As Decimal)
        OrderID = o
        Quantity = q
        Proceeds = u
    End Sub
    Public Sub New()
        OrderID = 0
        Quantity = 0
        Proceeds = 0
    End Sub
End Class








良いやや良い普通やや悪い悪い
1 0 1 0 1

投稿日時評価コメント