Owner Draw Listbox - Performance?

[James Radke]

Hello,

I am creating an owner draw listbox for a windows application. It is all
working, except the performance is significantly slower than the standard
listbox. Basically what I have done is added two new properties (full
source below):

ChangeBackgroun dMember = a bound data field which contains a boolean as
to whether this record should get a special background color
ChangeBackgroun dColor = the color to use when the above mentioned flag
is set to true

Can someone tell me what I can do to improve the performance of this
modified databound listbox?

Thanks!

=============== =============== ========== source code
=============== =============== =============== =============== ========

Imports System.Drawing
Imports System.Drawing. Drawing2D

Public Class ColoredListBox
Inherits ListBox

Private _ChangeBackgrou ndMember As String
Private _ChangeBackgrou ndColor As Color

Public Property ChangeBackgroun dMember() As String
Get
Return _ChangeBackgrou ndMember
End Get
Set(ByVal Value As String)
_ChangeBackgrou ndMember = Value
End Set
End Property

Public Property ChangeBackgroun dColor() As Color
Get
Return _ChangeBackgrou ndColor
End Get
Set(ByVal Value As Color)
_ChangeBackgrou ndColor = Value
End Set
End Property

Private Sub ColoredListBox_ DrawItem(ByVal sender As Object, ByVal e As
System.Windows. Forms.DrawItemE ventArgs) Handles MyBase.DrawItem
Dim brush As Brush
Dim selected As Boolean
Dim displayText As String

' Get the current data row in the bound datatable
Dim myRow As DataRowView = CType(sender.it ems(e.Index), DataRowView)

' The following method should generally be called before drawing.
' It is actually superfluous here, since the subsequent drawing
' will completely cover the area of interest.
e.DrawBackgroun d()

'Declare backcolor and forecolor temporary variables
Dim myBackColor As Color
Dim myForeColor As Color

' if the item is selected, then show it as darkblue background with
white text
If (e.State And DrawItemState.S elected) = DrawItemState.S elected
Then
myBackColor = Color.DarkBlue
myForeColor = Color.White
Else
' if the field indicated by the properties is true, then set the
background color to
' the specified color, otherwise use the default background and
foreground colors
If myRow(ChangeBac kgroundMember) Then
myBackColor = ChangeBackgroun dColor
myForeColor = Color.Black
Else
myBackColor = Me.BackColor
myForeColor = Me.ForeColor
End If
End If
' Create a brush of the background color, and fill the field area
brush = New SolidBrush(myBa ckColor)
e.Graphics.Fill Rectangle(brush , e.Bounds)

' Create a brush of the foreground color and draw the text using the
value of the display field
brush = New SolidBrush(myFo reColor)
e.Graphics.Draw String(myRow(Me .DisplayMember) , Me.Font, brush,
e.Bounds.X, e.Bounds.Y)

e.DrawFocusRect angle()

myRow = Nothing
End Sub
End Class

[Peter Huang]

Hi James,

I tested your code on my machine with the Orders table in the Northwind
database.
The performance is just one second on my machine similar with the ListBox.

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim o As DateTime
o = Now
Dim lstbx As ColoredListBox
SqlDataAdapter1 .Fill(Me.DataSe t31)
lstbx = New ColoredListBox
lstbx.DrawMode = DrawMode.OwnerD rawFixed
Me.Controls.Add (lstbx)
lstbx.DataSourc e = Me.DataSet31.Or ders
lstbx.DisplayMe mber = "ShipName"
lstbx.ChangeBac kgroundMember = "ShipVia"
lstbx.ChangeBac kgroundColor = Color.Red
Dim ts As New TimeSpan(Now.Ti cks - o.Ticks)
MsgBox(ts.Ticks )
MsgBox(ts.Secon ds)
End Sub

In the ColoredListBox, I just change one code line to adapt my test
table(Orders)

If myRow(ChangeBac kgroundMember) >= 1 Then

and this will cause the ColoredListBox render about 800 rows of data in
ColoredListBox.

You may create a new project and try my code to see if the problem persist.
My test environment is PIII733, 512MB RAM.
If you have any concern on this issue, please post here.

Regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.

[James Radke]

Good Morning Peter,

On my application, I am using the listbox on a sub-form (i.e. modal pop-up).
When the pop up is loaded using the standard listbox, as soon as the page
appears, all data is already showing in the listbox (very fast load). When
I use the ColoredListbox in the pop up in place of the Listbox, the time is
very close using your measuring method to show the pop-up screen; however,
when the page is rendered the listbox does not have any data in it yet, and
it seems to take a couple seconds 3-4 before the data slowly gets rendered
in the listbox and the items appear.

Once it has been created, it appears that the scrolling using the scroll
bars is about the same as the listbox.

What could be causing the delay between when the ColoredListbox is first
presented empty, and the slow actual rendering of the items in the listbox?
Is there another override that I missed that I need to do in my class?

Thanks!

Jim

"Peter Huang" <v-******@online.m icrosoft.com> wrote in message
news:fH******** ******@cpmsftng xa07.phx.gbl...

Hi James,

I tested your code on my machine with the Orders table in the Northwind
database.
The performance is just one second on my machine similar with the ListBox.

Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim o As DateTime
o = Now
Dim lstbx As ColoredListBox
SqlDataAdapter1 .Fill(Me.DataSe t31)
lstbx = New ColoredListBox
lstbx.DrawMode = DrawMode.OwnerD rawFixed
Me.Controls.Add (lstbx)
lstbx.DataSourc e = Me.DataSet31.Or ders
lstbx.DisplayMe mber = "ShipName"
lstbx.ChangeBac kgroundMember = "ShipVia"
lstbx.ChangeBac kgroundColor = Color.Red
Dim ts As New TimeSpan(Now.Ti cks - o.Ticks)
MsgBox(ts.Ticks )
MsgBox(ts.Secon ds)
End Sub

In the ColoredListBox, I just change one code line to adapt my test
table(Orders)

If myRow(ChangeBac kgroundMember) >= 1 Then

and this will cause the ColoredListBox render about 800 rows of data in
ColoredListBox.

You may create a new project and try my code to see if the problem persist. My test environment is PIII733, 512MB RAM.
If you have any concern on this issue, please post here.

Regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.

[Peter Huang]

Hi James,

It seems that the performance hit occurs in the ownerdraw function.
You may try to change your code as follows.

Dim brush As SolidBrush
Public Sub New()
MyBase.New()
brush = New SolidBrush(Colo r.Black)
End Sub

Private Sub ColoredListBox_ DrawItem(ByVal sender As Object, ByVal e As
System.Windows. Forms.DrawItemE ventArgs) Handles MyBase.DrawItem
Dim selected As Boolean
Dim displayText As String
' Get the current data row in the bound datatable
Dim myRow As DataRowView = CType(sender.it ems(e.Index), DataRowView)
' The following method should generally be called before drawing.
' It is actually superfluous here, since the subsequent drawing
' will completely cover the area of interest.
e.DrawBackgroun d()
'Declare backcolor and forecolor temporary variables
Dim myBackColor As Color
Dim myForeColor As Color
' if the item is selected, then show it as darkblue background with
white(Text)
If (e.State And DrawItemState.S elected) = DrawItemState.S elected
Then
myBackColor = Color.DarkBlue
myForeColor = Color.White
Else
' if the field indicated by the properties is true, then set
the background color to
' the specified color, otherwise use the default background and
foreground(colo rs)
If myRow(ChangeBac kgroundMember) >= 1 Then
myBackColor = ChangeBackgroun dColor
myForeColor = Color.Black
Else
myBackColor = Me.BackColor
myForeColor = Me.ForeColor
End If
End If
' Create a brush of the background color, and fill the field area
brush.Color = myBackColor
e.Graphics.Fill Rectangle(brush , e.Bounds)
' Create a brush of the foreground color and draw the text using
the value of the display field
brush.Color = myForeColor
e.Graphics.Draw String(myRow(Me .DisplayMember) , Me.Font, brush,
e.Bounds.X, e.Bounds.Y)
e.DrawFocusRect angle()
myRow = Nothing
End Sub

You may also try to test with fewer datarow in your coloredlistbox to see
if the problem persists.
I have also tested with a popup form, the render will complete less than
one second after the form is show on about 8000 rows data.
Did the problem occurs when you popup your form with coloredlistbox on the
second time?
(i.e. you click a button will popup the form with coloredlistbox , close
the form and popup it again)
If you have any concern on this issue, please post here.

Regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.

[James Radke]

Peter,

The application is working fine now. It seems like if I recompiled the
application as Release versus Debug, many of the performance issues went
away. This type of performance change between release and debug was not
something that I had experienced before.

So, for now, I would say that this is fine!

Thanks for the help!

Jim

"James Radke" <jr*****@wi.rr. com> wrote in message
news:OV******** ******@TK2MSFTN GP12.phx.gbl...

Good Morning Peter,

On my application, I am using the listbox on a sub-form (i.e. modal pop-up). When the pop up is loaded using the standard listbox, as soon as the page
appears, all data is already showing in the listbox (very fast load). When I use the ColoredListbox in the pop up in place of the Listbox, the time is very close using your measuring method to show the pop-up screen; however,
when the page is rendered the listbox does not have any data in it yet, and it seems to take a couple seconds 3-4 before the data slowly gets rendered
in the listbox and the items appear.

Once it has been created, it appears that the scrolling using the scroll
bars is about the same as the listbox.

What could be causing the delay between when the ColoredListbox is first
presented empty, and the slow actual rendering of the items in the listbox? Is there another override that I missed that I need to do in my class?

Thanks!

Jim

"Peter Huang" <v-******@online.m icrosoft.com> wrote in message
news:fH******** ******@cpmsftng xa07.phx.gbl...

Hi James,

I tested your code on my machine with the Orders table in the Northwind
database.
The performance is just one second on my machine similar with the ListBox.
Private Sub Form1_Load(ByVa l sender As System.Object, ByVal e As
System.EventArg s) Handles MyBase.Load
Dim o As DateTime
o = Now
Dim lstbx As ColoredListBox
SqlDataAdapter1 .Fill(Me.DataSe t31)
lstbx = New ColoredListBox
lstbx.DrawMode = DrawMode.OwnerD rawFixed
Me.Controls.Add (lstbx)
lstbx.DataSourc e = Me.DataSet31.Or ders
lstbx.DisplayMe mber = "ShipName"
lstbx.ChangeBac kgroundMember = "ShipVia"
lstbx.ChangeBac kgroundColor = Color.Red
Dim ts As New TimeSpan(Now.Ti cks - o.Ticks)
MsgBox(ts.Ticks )
MsgBox(ts.Secon ds)
End Sub

In the ColoredListBox, I just change one code line to adapt my test
table(Orders)

If myRow(ChangeBac kgroundMember) >= 1 Then

and this will cause the ColoredListBox render about 800 rows of data in
ColoredListBox.

You may create a new project and try my code to see if the problem

persist.

My test environment is PIII733, 512MB RAM.
If you have any concern on this issue, please post here.

Regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.