[RESOLVED] check box to remove items from list?

[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

[MartinLiss]

Try something like this

Option Explict
mstrSave As String
 
 
If chkboxuf1.Value = True Then
    Dim lngIndex As Long
    
    For lngIndex = List1.ListCount - 1 To 0 Step -1
        If List1.List(lngIndex) = "AAA" Then
            [HL="#FFFF80"]mstrSave = List1.List(lngIndex).List[/HL]
            List1.RemoveItem lngIndex
        End If
    Next

And then in the Click sub

List1.AddItem mstrSave

[stevevb6]

http://hx.pri.ee/dsrc/dice.php
this is actually very close to the program i want to make. It is for a game that i play, some guy wanted it on the forum of the site and i figured it is a good way to get some vb6 skills.

[stevevb6]

i got this one on my own. i used this code.

Dim s As Integer
 
For s = 0 To List1.ListCount - 1
If List1.Selected(s) Then
List3.AddItem List1.List(s)
End If
Next

And then

Dim i As Integer
    
    Randomize
    i = Rnd(List1.ListCount) * List3.ListCount
    Label4.Caption = List3.List(i)

Ironed out a few wrinckles, and all is well. Thanks for all your help!