#眉標=Silverlight、XAML、Toolkit
#副標=Silverlight開發技術（14）
#大標=利用Silverlight Toolkit輕鬆建立互動式網頁圖表
#作者=文／圖	董大偉


===<反灰>=============
Microsoft.Windows.Controls.dll
Microsoft.Windows.Controls.Input.dll
Microsoft.Windows.Controls.DataVisualization.dll
Microsoft.Windows.Controls.Theming.dll
==<end>==============




==<box>===========
程式1
<charting:Chart Title="圖表標題" LegendTitle="圖例標題">
 <charting:Chart.Series>
  <charting:ColumnSeries Title="圖組A">
   <charting:ColumnSeries.ItemsSource>
    <controls:ObjectCollection>
     <sys:Int32>1</sys:Int32>
     <sys:Int32>3</sys:Int32>
     <sys:Int32>5</sys:Int32>
     <sys:Int32>7</sys:Int32>
    </controls:ObjectCollection>
   </charting:ColumnSeries.ItemsSource>
  </charting:ColumnSeries>
 </charting:Chart.Series>
</charting:Chart>
==<end>==============




==<box>===========
程式2
<UserControl 
    xmlns:charting="clr-namespace:Microsoft.Windows.Controls.DataVisualization.Charting; assembly=Microsoft.Windows.Controls.DataVisualization"  
    x:Class="SilverlightApplication1.Page"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
    xmlns:sys="clr-namespace:System;assembly=mscorlib"
    xmlns:controls="clr-namespace:Microsoft.Windows.Controls; assembly=Microsoft.Windows.Controls" 
    Width="400" Height="300">
==<end>==============




==<box>===========
程式3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
　　Dim dat() As Integer = {1, 3, 5, 7}
　　Dim cs As New ColumnSeries
　　cs.ItemsSource = dat
　　Me.Chart1.Series.Add(cs)
End Sub
==<end>==============




==<box>===========
程式4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
　　Dim dat() As Integer = {1, 3, 5, 7}
    Dim cs As New PieSeries
    cs.ItemsSource = dat
    Me.Chart1.Series.Add(cs)
End Sub
==<end>==============




==<box>===========
程式5
Public Class Student
 Implements System.ComponentModel.INotifyPropertyChanged
  Dim _cName As String
  Property cName() As String
    Get
      Return _cName
    End Get
    Set(ByVal value As String)
       _cName = value
     RaiseEvent PropertyChanged(Me, New ComponentModel.PropertyChangedEventArgs("cName"))
     End Set
End Property

 Dim _English As Integer
  Property English() As Integer
   Get
    Return _English
   End Get
   Set(ByVal value As Integer)
    _English = value
   RaiseEvent PropertyChanged(Me, New ComponentModel.PropertyChangedEventArgs("English"))
   End Set
End Property

Dim _Math As Integer
Property Math() As Integer
   Get
    Return _Math
   End Get
   Set(ByVal value As Integer)
    _Math = value
   RaiseEvent PropertyChanged(Me, New ComponentModel.PropertyChangedEventArgs("Math"))
   End Set
End Property

Public Event PropertyChanged(ByVal sender As Object, ByVal e As System.ComponentModel.PropertyChangedEventArgs) Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged
End Class
==<end>==============




==<box>===========
程式6
Dim Students As New Collections.ObjectModel.Collection(Of Student)
Students.Add(New Student With {.cName = "林大頭", .English = 20, .Math = 30})
Students.Add(New Student With {.cName = "陳曉偉", .English = 10, .Math = 50})
Students.Add(New Student With {.cName = "張大東", .English = 30, .Math = 80})
Students.Add(New Student With {.cName = "王小明", .English = 90, .Math = 40})
==<end>==============




==<box>===========
程式7
Dim Students As New Collections.ObjectModel.Collection(Of Student)
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
     Students.Add(New Student With {.cName = "林大頭", .English = 20, .Math = 30})
     Students.Add(New Student With {.cName = "陳曉偉", .English = 10, .Math = 50})
     Students.Add(New Student With {.cName = "張大東", .English = 30, .Math = 80})
     Students.Add(New Student With {.cName = "王小明", .English = 90, .Math = 40})
Dim cs1 As New BarSeries
 cs1.Title = "英文成績"
     cs1.ItemsSource = Students
     cs1.IndependentValueBinding = New Data.Binding("cName")
     cs1.DependentValueBinding = New Data.Binding("English")
     Me.Chart1.Series.Add(cs1)
Dim cs2 As New BarSeries
 cs2.Title = "數學成績"
     cs2.ItemsSource = Students
     cs2.IndependentValueBinding = New Data.Binding("cName")
     cs2.DependentValueBinding = New Data.Binding("Math")
     Me.Chart1.Series.Add(cs2)
End Sub
==<end>==============




==<box>===========
程式8
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        Students(3).Math = 80
    End Sub
==<end>==============



===<反灰>=============
DataGrid1.ItemsSource = Students
==<end>==============