[vennesschan]

Hi, can some provide some information how to change the following lv font color base on the values?

For example:
If the values are negative in red color, positive in green.

ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(CDbl(reader("Close").ToString) - (reader("Open").ToString))

Also, I am having a problem on rounding the decimal place value on the above code.

For example:
If the result comes out xx.xx, then the my lv shows the value as xx.xxxxxxxxx. Actually I would like it to display only 2 decimal places.

Thank you for your help!

[Luc001]

Hi,

For your first question you can try something like this:

ListViewItem1.Font = New Font(ListViewItem1.Font, _ 
   ListViewItem1.Font.Style Or FontStyle.Bold)

I couldn't test it.

[vennesschan]

Thanks Luc001, but that will change the whole column's values font color.

Do While (reader.Read())
ListView1.Items.Add(reader("Name").ToString)
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(CDate(reader("Date")).ToString("MM/dd/yyyy"))
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(reader("Open").ToString)
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(reader("Close").ToString)
ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(Math.Round(CDbl(reader("Close").ToString) - (reader("Open").ToString), 3))
Loop

From the above codes, when the reader reads the "Close" - "Open" if the value returns in negative, then the font color is red; if the value returns in positive then the font color is green.

Any pointer here is great.

Thank you!

[CharlieMay]

One way I've done it is to immediately go back through and colorize based on the subitems values.

        For Each itm As ListViewItem In ListView1.Items
            itm.UseItemStyleForSubItems = False
            if convert.toint16(itm.subitems(3).text) < 0 then
              itm.SubItems(3).ForeColor = Color.Red
            end if
        Next

by putting this immediately after your loop in your code.

To do it during the addition of the subitem it's easiest to do by building the listviewitem and then adding it to the listview. You will also have to set .UseItemStyleForSubItems to false for this to work. Here is an example where we are filling a listview with random data, but we want to color the 4th column red if the value is negative. After we have populated the text and subitems of the listviewitem then prior to adding the item to the listview, we check subitem(3)'s value and if it's negative, set the forecolor to red, otherwise, ensure that it is black. Once we've established the forecolor, we add the newly created listitem to listview1.

        For y As Integer = 1 To 30
            Dim x As Integer = CInt(Int(10 * Rnd(1)))
            Dim lv As New ListViewItem
            lv.UseItemStyleForSubItems = False
            lv.Text = "Hello #" & y
            lv.SubItems.Add(CStr(y))
            lv.SubItems.Add("sub" & y)
            lv.SubItems.Add(CStr(x - y))
            If x - y < 0 Then
                lv.SubItems(3).ForeColor = Color.Red
            Else
                lv.SubItems(3).ForeColor = Color.Black
            End If
            ListView1.Items.Add(lv)
        Next

This post has been edited by CharlieMay: 27 June 2010 - 10:37 AM

[vennesschan]

Thanks Charlie.

I have tried the first method to colorize the subitem but returned an error "A first chance exception of type 'System.FormatException' occurred in mscorlib.dll"

[CharlieMay]

Can you post your exact code where you're trying to do it. I can populate using the database objects like you're using to see if I've overlooked something.

Also, specify the line where you're getting the error.

UPDATE:
I created both methods using columns from the database and was able to get both examples to work so now I'm definitely interested in seeing your code. After making the necessary changes to get the calculation to work with Option Strict on, I really think the error has to do with your converting the values from the database column.tostring to double and then performing the calculation.

This post has been edited by CharlieMay: 28 June 2010 - 12:59 PM

[vennesschan]

Hi,

I just simply put the code right below the loop as below:

Do While (reader.Read())  

ListView1.Items.Add(reader("Name").ToString)  

ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(CDate(reader("Date")).ToString("MM/dd/yyyy"))  

ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(reader("Open").ToString)  

ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(FormatNumber(reader("Close").ToString))  

ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(Math.Round(CDbl(reader("Close").ToString) - (reader("Open").ToString), 3))  

Loop 


                For Each itm As ListViewItem In ListView1.Items
                    itm.UseItemStyleForSubItems = False
                    If Convert.ToInt16(itm.SubItems(4).Text) < 0 Then
                        itm.SubItems(4).ForeColor = Color.Red
                    End If
                Next

[CharlieMay]

Try this

For Each itm As ListViewItem In ListView1.Items
  itm.UseItemStyleForSubItems = False
  If Convert.ToDouble(itm.SubItems(4).Text) < 0 Then
  itm.SubItems(4).ForeColor = Color.Red
  End If
Next

Change toInt16 to ToDouble my demo was using integers, you're using decimals

This post has been edited by CharlieMay: 28 June 2010 - 01:03 PM

[vennesschan]

Tks, it works.

[CharlieMay]

vennesschan, on 28 June 2010 - 02:57 PM, said:

Tks, it works.

Cool, glad I could help