Highlighted Text

[JarekM]

Hi,
I need help. When I check a checkbox I want the text in listview to be highlighted in blue, I am having a problem where whenever I do check the checkbox the text does not highlight blue unless I move my cursor into the listview. Also whenever I check each individual checkbox in the listview it won't highlight in blue. but if I have the main checkbox checked and I have my cursor over the listview the text will be highlighted in blue and if wanted to uncheck each individual text then it won't unhighlight the text.

Here are some pictures for reference:

[/URL][/IMG]

[/URL][/IMG]

In the first picture I would have the checkbox checked, but the text won't be highlighted. In the second image we moved the cursor into the listview and the text was highlighted. I want it so it is highlighted even without having to move the cursor into the listview.

Here is also the code that I use:

Private Sub CheckBox3_Change()

Dim i As Integer
        
Call OptimizeCode_Start
        
        
        If CheckBox3.Value = True Then
            For i = 1 To lvRequests.ListItems.Count
                lvRequests.ListItems(i).Selected = True
                lvRequests.ListItems.Item(i).Checked = True
            Next i
        Else
            For i = 1 To lvRequests.ListItems.Count
                lvRequests.ListItems(i).Selected = False
                lvRequests.ListItems.Item(i).Checked = False
            Next i
        End If

Call OptimizeCode_End
        
        
        
End Sub

Thanks in advance

 

[Logit]

.
Untested here but does this work :

Private Sub CheckBox3_Change()


Dim i As Integer
        
Call OptimizeCode_Start
        
        
        If CheckBox3.Value = True Then
            For i = 1 To lvRequests.ListItems.Count
                lvRequests.ListItems(i).Selected = True
                lvRequests.ListItems.Item(i).Checked = True
            Next i
[B]        ElseIf CheckBox3.Value = False Then[/B]
            For i = 1 To lvRequests.ListItems.Count
                lvRequests.ListItems(i).Selected = False
                lvRequests.ListItems.Item(i).Checked = False
            Next i
        End If


Call OptimizeCode_End
        
        
        
End Sub

 

[JarekM]

I have tired the code, but it still won't work.
I actually have made a code where if I check an individual checkbox in the listview then the text will be highlighted, but I still have a problem where if I were to check the main checkbox that highlights every text in the listview, it still won't work if I check it.

I will attach all of the routines that refer to the listview, maybe they are the ones that cause the checkbox to not work properly:

Private Sub lvRequests_ItemCheck(ByVal Item As MSComctlLib.ListItem)
Dim i As Integer

lvRequests.ListItems(Item.Index).Selected = True

For i = 1 To lvRequests.ListItems.Count
    If lvRequests.ListItems(i).Checked = True Then
        lvRequests.ListItems.Item(i).Selected = True
        Else
        lvRequests.ListItems.Item(i).Selected = False
    End If
Next i

End Sub

Private Sub lvRequests_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim i As Integer

CheckBox3.Value = False

lvRequests.ListItems(Item.Index).Selected = True

For i = 1 To lvRequests.ListItems.Count
    If lvRequests.ListItems(i).Selected = True Then
        lvRequests.ListItems.Item(i).Checked = True
        Else
        lvRequests.ListItems.Item(i).Checked = False
    End If
Next i
End Sub

Private Sub lvRequests_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
HookListBoxScroll1 Me, Me.lvRequests
End Sub

The third code I have so I can scroll on the mouse wheel in the listview.

Thank you.

 

[Logit]

.
Please post your workbook for download. You will need to use a Cloud Site like DropBox.com

 

[JarekM]

Hi,
Here is the link to the DropBox:
https://www.dropbox.com/s/lacwrgow8g31aox/checkbox that highlights .xlsm?dl=0

 

[Logit]

.
Your workbook / code is missing a lot. The Listview control is absent / the checkboxes are absent.

Did you send the correct workbook ?

 

[JarekM]

Yes. I checked and everything that was needed was there. I even tested it out to see if it works on a different computer and it worked.