or
<
Window
x:Class
=
"RadChartViewSimpleTest"
xmlns:chart
=
"clr-namespace:Telerik.Windows.Controls;assembly=Telerik.Windows.Controls.Chart"
xmlns:chartView
=
"clr-namespace:Telerik.Windows.Controls.ChartView;assembly=Telerik.Windows.Controls.Chart"
xmlns:telerik
=
"http://schemas.telerik.com/2008/xaml/presentation"
Width
=
"300"
Height
=
"300"
>
<
Grid
>
<
Grid.ColumnDefinitions
>
<
ColumnDefinition
/>
<
ColumnDefinition
/>
</
Grid.ColumnDefinitions
>
<
DataGrid
ItemsSource
=
"{Binding}"
/>
<
chart:RadCartesianChart
Grid.Column
=
"1"
>
<
chart:RadCartesianChart.HorizontalAxis
>
<
chartView:LinearAxis
/>
</
chart:RadCartesianChart.HorizontalAxis
>
<
chart:RadCartesianChart.VerticalAxis
>
<
chartView:LinearAxis
Maximum
=
"100"
/>
</
chart:RadCartesianChart.VerticalAxis
>
<
chart:RadCartesianChart.Series
>
<
chartView:ScatterLineSeries
x:Name
=
"ScatterLineSeries1"
ItemsSource
=
"{Binding}"
/>
</
chart:RadCartesianChart.Series
>
</
chart:RadCartesianChart
>
</
Grid
>
</
Window
>
Imports
Telerik.Windows.Controls
Imports
Telerik.Windows.Controls.ChartView
Public
Class
RadChartViewSimpleTest
Public
Sub
New
()
InitializeComponent()
Dim
Points
As
New
List(Of Point)
For
i
As
Integer
= 0
To
150
Step
5
Points.Add(
New
Point(i, i))
Next
For
i
As
Integer
= 0
To
150
Step
5
Points.Add(
New
Point(155 + i, i))
Next
Me
.DataContext = Points
Dim
genericBinding
As
New
GenericDataPointBinding(Of Point,
Double
)
genericBinding.ValueSelector =
Function
(t
As
Point) t.X
ScatterLineSeries1.XValueBinding = genericBinding
genericBinding =
New
GenericDataPointBinding(Of Point,
Double
)
genericBinding.ValueSelector =
Function
(t
As
Point) t.Y
ScatterLineSeries1.YValueBinding = genericBinding
End
Sub
End
Class