Microsoft Windows Server 2003, Standard Edition, Service Pack 2
English (Australia)
.NET 4.0.30319 SP1Rel, Visual Studio 2010 Version 10.0.40219.1 SP1Rel
Runtime Version v2.0.50727, Version 2011.3.11.1116
Thanks,
Clive
Imports
Telerik.WinControls.Data
Public
Class
Form9
Inherits
System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected
Overrides
Sub
Dispose(
ByVal
disposing
As
Boolean
)
Try
If
disposing
AndAlso
components IsNot
Nothing
Then
components.Dispose()
End
If
Finally
MyBase
.Dispose(disposing)
End
Try
End
Sub
'Required by the Windows Form Designer
Private
components
As
System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private
Sub
InitializeComponent()
Dim
ListViewDetailColumn5
As
Telerik.WinControls.UI.ListViewDetailColumn =
New
Telerik.WinControls.UI.ListViewDetailColumn(
"Column 0"
,
"Column 0"
)
Dim
ListViewDetailColumn6
As
Telerik.WinControls.UI.ListViewDetailColumn =
New
Telerik.WinControls.UI.ListViewDetailColumn(
"Column 1"
,
"Column 1"
)
Dim
ListViewDetailColumn7
As
Telerik.WinControls.UI.ListViewDetailColumn =
New
Telerik.WinControls.UI.ListViewDetailColumn(
"Column 2"
,
"Column 2"
)
Dim
ListViewDetailColumn8
As
Telerik.WinControls.UI.ListViewDetailColumn =
New
Telerik.WinControls.UI.ListViewDetailColumn(
"Column 3"
,
"Column 3"
)
Dim
ListViewDataItem5
As
Telerik.WinControls.UI.ListViewDataItem =
New
Telerik.WinControls.UI.ListViewDataItem(
"ListViewItem 1"
,
New
String
() {
"one"
,
"two"
,
"three"
,
"four"
})
Dim
ListViewDataItem6
As
Telerik.WinControls.UI.ListViewDataItem =
New
Telerik.WinControls.UI.ListViewDataItem(
"ListViewItem 2"
,
New
String
() {
"five"
,
"six"
,
"seven"
,
"eight"
})
Dim
ListViewDataItem7
As
Telerik.WinControls.UI.ListViewDataItem =
New
Telerik.WinControls.UI.ListViewDataItem(
"ListViewItem 3"
,
New
String
() {
"nine"
,
"ten"
,
"eleven"
,
"twelve"
})
Dim
ListViewDataItem8
As
Telerik.WinControls.UI.ListViewDataItem =
New
Telerik.WinControls.UI.ListViewDataItem(
"ListViewItem 4"
,
New
String
() {
"thirteen"
,
"forteen"
,
"fifteen"
,
"sixteen"
})
Me
.RadListView1 =
New
Telerik.WinControls.UI.RadListView()
Me
.RadTextBox1 =
New
Telerik.WinControls.UI.RadTextBox()
Me
.RadTextBox2 =
New
Telerik.WinControls.UI.RadTextBox()
Me
.RadLabel1 =
New
Telerik.WinControls.UI.RadLabel()
Me
.RadLabel2 =
New
Telerik.WinControls.UI.RadLabel()
CType
(
Me
.RadListView1, System.ComponentModel.ISupportInitialize).BeginInit()
CType
(
Me
.RadTextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType
(
Me
.RadTextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType
(
Me
.RadLabel1, System.ComponentModel.ISupportInitialize).BeginInit()
CType
(
Me
.RadLabel2, System.ComponentModel.ISupportInitialize).BeginInit()
Me
.SuspendLayout()
'
'RadListView1
'
ListViewDetailColumn5.HeaderText =
"Column 0"
ListViewDetailColumn6.HeaderText =
"Column 1"
ListViewDetailColumn7.HeaderText =
"Column 2"
ListViewDetailColumn8.HeaderText =
"Column 3"
Me
.RadListView1.Columns.AddRange(
New
Telerik.WinControls.UI.ListViewDetailColumn() {ListViewDetailColumn5, ListViewDetailColumn6, ListViewDetailColumn7, ListViewDetailColumn8})
Me
.RadListView1.GroupItemSize =
New
System.Drawing.Size(200, 20)
ListViewDataItem5.Text =
"ListViewItem 1"
ListViewDataItem5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
ListViewDataItem6.Text =
"ListViewItem 2"
ListViewDataItem6.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
ListViewDataItem7.Text =
"ListViewItem 3"
ListViewDataItem7.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
ListViewDataItem8.Text =
"ListViewItem 4"
ListViewDataItem8.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me
.RadListView1.Items.AddRange(
New
Telerik.WinControls.UI.ListViewDataItem() {ListViewDataItem5, ListViewDataItem6, ListViewDataItem7, ListViewDataItem8})
Me
.RadListView1.ItemSize =
New
System.Drawing.Size(200, 20)
Me
.RadListView1.ItemSpacing = -1
Me
.RadListView1.Location =
New
System.Drawing.Point(12, 117)
Me
.RadListView1.Name =
"RadListView1"
Me
.RadListView1.Size =
New
System.Drawing.Size(794, 149)
Me
.RadListView1.TabIndex = 0
Me
.RadListView1.Text =
"RadListView1"
Me
.RadListView1.ViewType = Telerik.WinControls.UI.ListViewType.DetailsView
'
'RadTextBox1
'
Me
.RadTextBox1.Location =
New
System.Drawing.Point(119, 294)
Me
.RadTextBox1.Name =
"RadTextBox1"
Me
.RadTextBox1.Size =
New
System.Drawing.Size(100, 20)
Me
.RadTextBox1.TabIndex = 1
Me
.RadTextBox1.TabStop =
False
'
'RadTextBox2
'
Me
.RadTextBox2.Location =
New
System.Drawing.Point(238, 294)
Me
.RadTextBox2.Name =
"RadTextBox2"
Me
.RadTextBox2.Size =
New
System.Drawing.Size(100, 20)
Me
.RadTextBox2.TabIndex = 1
Me
.RadTextBox2.TabStop =
False
'
'RadLabel1
'
Me
.RadLabel1.Location =
New
System.Drawing.Point(119, 273)
Me
.RadLabel1.Name =
"RadLabel1"
Me
.RadLabel1.Size =
New
System.Drawing.Size(36, 16)
Me
.RadLabel1.TabIndex = 2
Me
.RadLabel1.Text =
"Rad 1"
'
'RadLabel2
'
Me
.RadLabel2.Location =
New
System.Drawing.Point(241, 273)
Me
.RadLabel2.Name =
"RadLabel2"
Me
.RadLabel2.Size =
New
System.Drawing.Size(36, 16)
Me
.RadLabel2.TabIndex = 2
Me
.RadLabel2.Text =
"Rad 2"
'
'Form9
'
Me
.AutoScaleDimensions =
New
System.Drawing.SizeF(6.0!, 13.0!)
Me
.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me
.ClientSize =
New
System.Drawing.Size(818, 483)
Me
.Controls.Add(
Me
.RadLabel2)
Me
.Controls.Add(
Me
.RadLabel1)
Me
.Controls.Add(
Me
.RadTextBox2)
Me
.Controls.Add(
Me
.RadTextBox1)
Me
.Controls.Add(
Me
.RadListView1)
Me
.Name =
"Form9"
Me
.Text =
"Form9"
CType
(
Me
.RadListView1, System.ComponentModel.ISupportInitialize).EndInit()
CType
(
Me
.RadTextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType
(
Me
.RadTextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType
(
Me
.RadLabel1, System.ComponentModel.ISupportInitialize).EndInit()
CType
(
Me
.RadLabel2, System.ComponentModel.ISupportInitialize).EndInit()
Me
.ResumeLayout(
False
)
Me
.PerformLayout()
End
Sub
Friend
WithEvents
RadListView1
As
Telerik.WinControls.UI.RadListView
Friend
WithEvents
RadTextBox1
As
Telerik.WinControls.UI.RadTextBox
Friend
WithEvents
RadTextBox2
As
Telerik.WinControls.UI.RadTextBox
Friend
WithEvents
RadLabel1
As
Telerik.WinControls.UI.RadLabel
Friend
WithEvents
RadLabel2
As
Telerik.WinControls.UI.RadLabel
Private
Sub
RadTextBox1_TextChanged(sender
As
System.
Object
, e
As
System.EventArgs)
Handles
RadTextBox1.TextChanged
RadListView1.Items.BeginUpdate()
RadListView1.FilterDescriptors.Clear()
If
String
.IsNullOrWhiteSpace(RadTextBox1.Text)
Then
RadListView1.EnableFiltering =
False
Else
For
Each
txt
In
RadTextBox1.Text.Split({
" "
c}, StringSplitOptions.RemoveEmptyEntries)
Dim
comp
As
New
CompositeFilterDescriptor()
RadListView1.FilterDescriptors.Add(comp)
For
Each
a
As
Telerik.WinControls.UI.ListViewDetailColumn
In
RadListView1.Columns
Dim
typeFilter
As
New
FilterDescriptor(a.Name, FilterOperator.Contains, txt)
comp.FilterDescriptors.Add(typeFilter)
Next
comp.LogicalOperator = FilterLogicalOperator.
Or
Next
RadListView1.FilterDescriptors.LogicalOperator = FilterLogicalOperator.
And
RadListView1.EnableFiltering =
True
End
If
RadListView1.Items.EndUpdate()
End
Sub
Private
Sub
RadTextBox2_TextChanged(sender
As
System.
Object
, e
As
System.EventArgs)
Handles
RadTextBox2.TextChanged
RadListView1.Items.BeginUpdate()
RadListView1.FilterDescriptors.Clear()
If
String
.IsNullOrWhiteSpace(RadTextBox2.Text)
Then
RadListView1.EnableFiltering =
False
Else
RadListView1.FilterDescriptors.LogicalOperator = FilterLogicalOperator.
And
For
Each
txt
In
RadTextBox2.Text.Split({
" "
c}, StringSplitOptions.RemoveEmptyEntries)
Dim
comp
As
New
CompositeFilterDescriptor()
RadListView1.FilterDescriptors.Add(comp)
comp.LogicalOperator = FilterLogicalOperator.
Or
For
Each
a
As
Telerik.WinControls.UI.ListViewDetailColumn
In
RadListView1.Columns
Dim
typeFilter
As
New
FilterDescriptor(a.Name, FilterOperator.Contains, txt)
comp.FilterDescriptors.Add(typeFilter)
Next
Next
RadListView1.EnableFiltering =
True
End
If
RadListView1.Items.EndUpdate()
End
Sub
Public
Sub
New
()
' This call is required by the designer.
InitializeComponent()
' Add any initialization after the InitializeComponent() call.
End
Sub
End
Class
rcSummary.Series.Clear()
rcSummary.RemoveAllSeries()
rcSummary.Clear()
rcSummary.DataSource = PersistenceHelper.GetResponseContentDailySummary(_dbContext, rdtStartDate.Value.
Date
)
Hi,
I do a little tests with RadGridView and I have to say that the RadGridView ist extremely slow, especially the scrolling. I first added a DataTable object as data source with 130 rows and 20 columns. The application was running full screen with 1920x1200 screen resolution. Scrolling is nearly impossible, the grid takes 2 or more seconds to update the position of the rows. After that I added a List<T> with 500 DateTime objects to see if the problem lies elsewhere, but without success.
My computer is a Pentium Quad Code @ 2.8Ghz, 8GB ram, NVidia Quadro NVS. I know that the graphic adapter isn't the fastes in the world, but for scrolling a table it should be enough.
What can I do to improve the performance!? The problem is that our customers have way slower computers. So the RadGridView is not useable for me.
Thanks in advance
Martin Horst