How to make a particular value Bold in ListView in vb.net

Question

0.00/5 (No votes)

See more:

.NET3.5

Hi,
i am trying to make the text appear in bold and to change the text size for a particular colum in a list view, but i am unable to . i have tried with the following code.Thnx .

For Each row As DataRow In DataSt.Tables(0).Rows
                mitem = New ListViewItem
                mitem.UseItemStyleForSubItems = False


                mitem.Text = row.Item("IssID") 'In Lvw the first column should be Text
                mitem.SubItems.Add(row.Item("Descrptn"))

                If row.Item("Status") = True Then
                    mitem.SubItems.Add("Active").ForeColor = Color.Green
                    'Need to make it bold
  mitem.SubItems.Add("Active").Text = Font.Bold ' doesnt work
                ElseIf row.Item("Status") = False Then
                    mitem.SubItems.Add("Closed")
                    mitem.SubItems.Add("Active").ForeColor = Color.Red
                End If

Posted 29-Jul-10 7:41am

souvikd

Add a Solution

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Bill Doerfler · Answer 1 · 2014-02-18T08:42:00

Or just a bit simpler. I'm changing color and font based on returned ping values here:

VB

If replypingms < LVMainNodesList.Items(i).SubItems(2).Text Then  ' we're under
    LVMainNodesList.Items(i).BackColor = Color.Green
    LVMainNodesList.Items(i).ForeColor = Color.Black
    LVMainNodesList.Items(i).Font = New Font(LVMainNodesList.Font, FontStyle.Regular)
ElseIf replypingms > (LVMainNodesList.Items(i).SubItems(2).Text * 2) Then  ' WAY OVER
    LVMainNodesList.Items(i).BackColor = Color.Red
    LVMainNodesList.Items(i).ForeColor = Color.WhiteSmoke
    ' I'd like to set the font to BOLD to bring attention to it...
    LVMainNodesList.Items(i).Font = New Font(LVMainNodesList.Font, FontStyle.Bold)
Else  ' We're over a litle, don't panic
    LVMainNodesList.Items(i).BackColor = Color.Yellow
    LVMainNodesList.Items(i).ForeColor = Color.Black
    LVMainNodesList.Items(i).Font = New Font(LVMainNodesList.Font, FontStyle.Regular)
End If

DaveAuld · Answer 2 · 2010-07-29T08:17:00

Solution 2

See code below;

VB

Dim item1 As New ListViewItem
item1.Text = "Item 1 BOLD"
item1.UseItemStyleForSubItems = False                 'Set this to FALSE to allow changing the subitem font. It is TRUE by default.
item1.Font = New Font(ListView1.Font, FontStyle.Bold)
item1.SubItems.Add("Sub Item Normal")
item1.SubItems(1).Font = New Font(ListView1.Font, FontStyle.Regular)

Dim item2 As New ListViewItem
item2.Text = "Item 2 Normal"
item2.UseItemStyleForSubItems = False
item2.Font = New Font(ListView1.Font, FontStyle.Regular)
item2.SubItems.Add("Sub Item Bold")
item2.SubItems(1).Font = New Font(ListView1.Font, FontStyle.Bold)

ListView1.Items.Add(item1)
ListView1.Items.Add(item2)

Posted 29-Jul-10 8:17am

DaveAuld

Updated 29-Jul-10 8:45am

v4

Comments

souvikd 29-Jul-10 14:47pm

Hi Thanks for replying, may be i m doing some mistake but it doesnt work, please check the code

For Each row As DataRow In DataSt.Tables(0).Rows
mitem = New ListViewItem
mitem.UseItemStyleForSubItems = False

mitem2 = New ListViewItem
mitem2.UseItemStyleForSubItems = False
mitem2.Font = New Font(lvwMain_default.Font, FontStyle.Bold)

mitem.Text = row.Item("IssID") 'In Lvw the first column should be Text
mitem.SubItems.Add(row.Item("Descrptn"))

If row.Item("Status") = True Then
mitem2.SubItems.Add("Active").ForeColor = Color.Green
ElseIf row.Item("Status") = False Then
mitem2.SubItems.Add("Closed").ForeColor = Color.Red
End If

'Note to OP, see my comment below; create the subitem object and set the color before adding to the subitems collection of the listviewitem.

DaveAuld 29-Jul-10 14:58pm

create the subitem before adding it to the parent item;
Dim x As ListViewItem.ListViewSubItem
x.Text = "Something"
x.ForeColor = Color.Aqua
item1.SubItems.Add(x)

Yusuf · Answer 3 · 2010-07-29T07:54:00

Solution 1

mitem.SubItems.Add("Active").Text = Font.Bold ' doesnt work

you just setting the value of Font.Bold to be the text.

see MSDN documentation[^] to to set the font

Posted 29-Jul-10 7:54am

Yusuf