[RESOLVED] check box to remove items from list?

[stevevb6]

could you not use checkbox on change
then put

if checkbox.value = true then
  label.text = "Whatever you want to display here"
end if

or am i missing the point?

That is similar to the idea i have, however i want it so when the checkbox.value = true and the checkbox is for a certain word in the list, and the word comes up as the label.text, it randomizes again. but i cant get it to work.

[stevevb6]

im not really sure what i should do.

if checkbox.value = true ??????????
if label1.text = "xxxxx" then
Dim i As Integer
    
    Randomize
    i = Rnd(List1.ListCount) * List1.ListCount
    Label4.Caption = List1.List(i)
end if

im not sure if that is how i should do it. im not sure what i need to put in the area with the "????" or if this is the best way of doing this, or even if this way is possible.
i also just tried this but it didnt work.

If chkboxuf1.Value = True Then
    With List1
        .RemoveItem "AAA"
        End With
        End If

I have the lists load with the form, like this

Private Sub Form_Load()
With List1
    .AddItem "AAA"
    .AddItem "BBB"
    .AddItem "CCC"
    .AddItem "DDD"
    
    End With

[MartinLiss]

You can't remove an item from a listview based solely on it's value. You need to know the index of the value. The following does that. I go through the list backward in case there is more than one entry with the same value.

Dim lngIndex As Long
    
    For lngIndex = List1.ListCount - 1 To 0 Step -1
        If List1.List(lngIndex) = "AAA" Then
            List1.RemoveItem lngIndex
        End If
    Next

[stevevb6]

Do i just replace what i have with that?

If chkboxuf1.Value = True Then
    Dim lngIndex As Long
    
    For lngIndex = List1.ListCount - 1 To 0 Step -1
        If List1.List(lngIndex) = "AAA" Then
            List1.RemoveItem lngIndex
        End If
    Next

[MartinLiss]

Yes, and of course the line


If List1.List(lngIndex) = "AAA" Then

could be changed to something like

If List1.List(lngIndex) = Text1.Text Then

[stevevb6]

it isnt going to work for what i want it for. that code removes the item from the list, and when the checkbox is unchecked, it does not come back. i need something to make the program randomize again when the label1.caption = the caption of the check box, only when the checkbox.value = true.

[stevevb6]

how can i add an item to the list by clicking the check box,
like this?

If chkboxuf1.Value = True Then
      Dim lngIndex As Long
    End If
    For lngIndex = List1.ListCount - 1 To 0 Step -1
        If List1.List(lngIndex) = "UF1" Then
            List1.AddItem lngIndex
               End If
    Next