[RESOLVED] How do I highlight a single listview gridline?

[gracehskuo]

please help, How do I highlight a single listview gridline?And how to make the checkboxes become disable after the checkboxes was Clicked?

This is the current code:

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
If ListView1.CheckBoxes = True Then
     ListView1.Gridlines = True
     FrmLat.Show   
End If
End Sub

please help.THANKS!

[Siddharth Rout]

How do I highlight a single listview gridline

Set the property .FullRowSelect = True

And how to make the checkboxes become disable after the checkboxes was Clicked?

Try using the property .Tag = "L"

Hope this helps...

[akhileshbc]

Try using the property .Tag = "L"

Can you explain the idea ?

[Siddharth Rout]

Can you explain the idea ?

The 'idea' is an evil one

Private Sub Form_Load()
    Dim lstItem As ListItem
    For i = 1 To 5
        Set lstItem = ListView1.ListItems.Add(, , "Sample Text" & Str$(i))
    Next
    '~~> so that item 1 cannot be unclicked.
    ListView1.ListItems(1).Tag = "L"
End Sub

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    If Item.Tag = "L" Then Item.Checked = True
    If Item.Index = 1 Then Item.Checked = True
End Sub

One more alternative would be to fake it by using disbaled checkbox images. This reminds me on one thread where you use icons... Let me search the thread for you...

Edit: Damn! The link was in in my signature while all this time and I was searching for it... "Listview Sub Item Image" (See post 6 and post 8) in that thread...

[akhileshbc]

Thanks sid for explaining it...

But can you check this one:

Option Explicit

Private Sub Form_Load()
    Dim lstItem As ListItem
    Dim i As Long
    
    For i = 1 To 5
        Set lstItem = ListView1.ListItems.Add(, , "Sample Text" & Str$(i))
    Next
End Sub

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    
    If Item.Checked = False Then Item.Checked = True    '~~~ This will prevents the unchecking of the checkboxes.

End Sub

...

[gracehskuo]

hi,thanks is done.but how to make the highlight listview gridlines appear when clicked checkboxes= true.


this is the current code:

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
If ListView1.CheckBoxes = True Then
   FrmLat.Show
   ListView1.FullRowSelect = True  'highlight listview gridlines
End If
If Item.Checked = False Then Item.Checked = True
End Sub

please help.Thanks!

[baja_yu]

You don't have to set the FullRowSelect on every click/check event. Just set it once on Form Load or even in design mode. Also, this line

If Item.Checked = False Then Item.Checked = True

will make it impossible to uncheck an item.

To highligh the checked item try

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
   Item.Selected = True
End Sub

And, just to note because I think you missunderstood the purpose, If ListView1.CheckBoxes = True does not check if an item is Checked or not but if the ListView has checkboxes turned on or not. If you set it to false Checkboxes wont be displayed.

[akhileshbc]

I think, for highlighting the items, try changing their font color from the default....

Eg:
[ ] Item1
[ ] Item2
[X] Item3
[ ] Item4
[X] Item5

[Siddharth Rout]

@Akhi: Yes that will work too (I am refering to post 5). The .Tag can be used if you want specific listitems to display that behaviour. For example in the code that I gave in post 4, it is just specific to listitem 1

@Grace: Like Baja mentioned that you can set the FullRowSelect at design time. If you want to display it only if an item is checked then try this...

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    
    '~~> Check if any item is checked in the listview
    For i = 0 To ListView1.ListItems.Count
        If ListViewName.ListItems.Item(i).Checked = True Then
            ListView1.FullRowSelect = True
            'FrmLat.Show
            Exit For
        Else
            ListView1.FullRowSelect = False
        End If
    Next
    
    '~~> Ensure that user is not able to uncheck
    If Item.Checked = False Then Item.Checked = True
End Sub

[akhileshbc]

Thanks for the info, sid...

[gracehskuo]

koolsid:
hi ,i try to run the code as below:

If ListViewName.ListItems.Item(i).Checked = True Then

ListviewName show error Variable not defined.

please help thanks

[baja_yu]

I think he meant for you to replace ListViewName with the name of the Listview you have/use.

[gracehskuo]

baja_yu:
i have changed the listviewname to listview1 ,but have another error message appaear " index out of bound".

please help.thanks!

[akhileshbc]

Try changing the starting value from 0 to 1:

For i = 1 To ListView1.ListItems.Count

....

[gracehskuo]

akhileshbc:
hi,the code is work.but when the for highlighting the items doesn't work.

Eg:
[ ] Item1
[ ] Item2
[X] Item3
[ ] Item4
[X] Item5

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.listitem)
Dim i As Integer
  
   For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems.Item(i).Checked = True Then
            ListView1.FullRowSelect = True
            FrmLat.Show
            Exit For
        Else
            ListView1.FullRowSelect = False
        End If
    Next
    
    If Item.Checked = False Then Item.Checked = True

End Sub

[akhileshbc]

Try this:

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
'~~~ set the MultiSelect property of ListView to TRUE
    Item.Selected = True
    If Item.Checked = False Then Item.Checked = True
End Sub

Don't forget to set the MultiSelect property of ListView to TRUE.

Good luck...

[gracehskuo]

akhileshbc:
hi,thanks is done.now i have another problem appear when i selected the checkboxes on row 3 ,but the 1 row also highlighted.supposing is only highlight on selected checkboxes on row 3.

please help.thanks

[akhileshbc]

Use this code in Form_Load event or after you populate the ListView:

ListView1.ListItems(1).Selected = False

It will unselect the 1st item. So, you can start a fresh selection...

Edit:
Sample usage:

Option Explicit

Private Sub Form_Load()
    '~~~ Populating the ListView
    ListView1.ListItems.Add , , "hi"
    ListView1.ListItems.Add , , "hi"
    ListView1.ListItems.Add , , "hi"
    ListView1.ListItems.Add , , "hi"
    ListView1.ListItems.Add , , "hi"

    '~~~ Deselecting the first item
    ListView1.ListItems(1).Selected = False
End Sub

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    '~~~ set the MultiSelect option ListView to TRUE
    Item.Selected = True
    If Item.Checked = False Then Item.Checked = True
End Sub

[gracehskuo]

akhileshbc:
thanks is work.

Ps:thanks all for help.

[akhileshbc]

You're welcome...