or
<Window x:Class="MainWindow" xmlns:telerik="http://schemas.telerik.com/2008/xaml/presentation" xmlns:telerikGrid="clr-namespace:Telerik.Windows.Controls.GridView;assembly=Telerik.Windows.Controls.GridView" Title="MainWindow" Height="350" Width="525" Loaded="Window_Loaded"> <Grid> <!--<TabControl> <TabItem Header="Blank Tab"></TabItem> <TabItem Header="RadGridView Tab"> </TabItem> </TabControl>--> <telerik:RadGridView Name="grid" telerik:StyleManager.Theme="Windows7" ShowGroupPanel="False" CanUserResizeColumns="True" CanUserFreezeColumns="False" IsReadOnly="True" AutoGenerateColumns="False" CanUserDeleteRows="False" CanUserInsertRows="False" IsFilteringAllowed="False" RowIndicatorVisibility="Collapsed" CanUserReorderColumns="True" ReorderColumnsMode="ReorderColumns"> <telerik:RadGridView.HeaderRowStyle> <Style> <Setter Property="telerikGrid:GridViewHeaderCell.FontWeight" Value="Bold"/> </Style> </telerik:RadGridView.HeaderRowStyle> </telerik:RadGridView> </Grid></Window>Imports Telerik.Windows.ControlsImports Telerik.Windows.Controls.GridViewImports Telerik.Windows.DataClass MainWindow Private Sub Window_Loaded(sender As System.Object, e As System.Windows.RoutedEventArgs) Me.grid.Columns.AddRange(GridColumns) Me.grid.ItemsSource = TestData() End Sub Private Shared Function GridColumns() As IEnumerable(Of GridViewBoundColumnBase) Return { New GridViewDataColumn With {.UniqueName = "String1", .Header = "Topic", .Width = New GridViewLength(1, GridViewLengthUnitType.Star)}, New GridViewDataColumn With {.UniqueName = "String2", .Header = "Company", .Width = New GridViewLength(1, GridViewLengthUnitType.Star)}, New GridViewDataColumn With {.UniqueName = "String3", .Header = "Phase", .Width = New GridViewLength(1, GridViewLengthUnitType.Auto)}, New GridViewDataColumn With {.UniqueName = "Decimal1", .Header = "Revenue", .Width = New GridViewLength(1, GridViewLengthUnitType.Auto)}, New GridViewDataColumn With {.UniqueName = "Decimal2", .Header = "Sales Cycle", .Width = New GridViewLength(1, GridViewLengthUnitType.Auto)} } End Function Private Shared Function TestData() As IEnumerable(Of DataModelObject) Return { New DataModelObject With {.String1 = "100 CRM licenses", .String2 = "SENSO PER LAY", .String3 = "SALE SUCCESSFULL", .Decimal1 = 8000, .Decimal2 = 0}, New DataModelObject With {.String1 = "e-com...", .String2 = "CONTROL SYSTEMS", .String3 = "SALE SUCCESSFULL", .Decimal1 = 22800, .Decimal2 = 0}, New DataModelObject With {.String1 = "LEAD-00004", .String2 = "KLEEMAN HELLAS", .String3 = "SALE SUCCESSFULL", .Decimal1 = 80, .Decimal2 = 122}, New DataModelObject With {.String1 = "Telemarketing services", .String2 = "CITYBANK", .String3 = "SALE SUCCESSFULL", .Decimal1 = 4200, .Decimal2 = 1435} } End FunctionEnd ClassPublic Class DataModelObject Public Property String1 As String Public Property String2 As String Public Property String3 As String Public Property Decimal1 As Decimal Public Property Decimal2 As DecimalEnd Class
