topic Re: Looping problem in VBA Forum

Looping problem

Anonymous — Thu, 03 May 2001 14:34:19 GMT

Below is the code I have to remove selected items from a list box. The problem is that if you select more than one item, the last item selected always remains. I have tried different loops to accomplish this. Any help would be greatly appreciated.

Private Sub cmdRemoveFiles_Click()
On Error Resume Next
Dim i As Integer
For i = 0 To lstArchiveFiles.ListCount - 1
If lstArchiveFiles.Selected(i) = True Then
lstArchiveFiles.RemoveItem (i)
End If
Next i
End Sub

Thank You,

Jamie Gamauf

Re: Looping problem

Anonymous — Thu, 03 May 2001 15:04:59 GMT

As soon as you remove the first item, the ListCount becomes
ListCount - 1 so you never reach the end of the list unless
the end of the list is the only selected item. I know
there's a way around but I'm drawing a blank at the moment.
Sorry.

--
http://www.acadx.com

Re: Looping problem

Anonymous — Thu, 03 May 2001 15:46:05 GMT

Try this, Run the loop backwards that way the index
numbers dont change as you remove items. substitute your FOR statement with
the one below.

For i = lstArchiveFiles.ListCount - 1 to
0 Step -1

Paul H

style="BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">

jgamauf <
href="mailto:jgamauf@ariainc.com">jgamauf@ariainc.com> wrote in message

href="news:f049b6e.-1@WebX.maYIadrTaRb">news:f049b6e.-1@WebX.maYIadrTaRb...
Below
is the code I have to remove selected items from a list box. The problem is
that if you select more than one item, the last item selected always remains.
I have tried different loops to accomplish this. Any help would be greatly
appreciated.

Private Sub cmdRemoveFiles_Click()
    On Error
Resume Next
    Dim i As Integer

    For i = 0 To lstArchiveFiles.ListCount - 1

        If
lstArchiveFiles.Selected(i) = True Then

            lstArchiveFiles.RemoveItem
(i)
        End If

    Next i
End Sub

Thank You,

Jamie Gamauf

Re:

Anonymous — Fri, 04 May 2001 00:22:05 GMT

Put zero(0) instead of i in this
color=#ff0000>lstArchiveFiles.RemoveItem (i) line.

Private Sub cmdRemoveFiles_Click()
    On Error
Resume Next
    Dim i As Integer

    For i = 0 To lstArchiveFiles.ListCount - 1

        If
lstArchiveFiles.Selected(i) = True Then


color=#ff0000>lstArchiveFiles.RemoveItem (0)

        End If

    Next i
End Sub

--

Madhanagopal
AutoCAD & MCAD Product Support, INDIA
WW Support
& Services, Autodesk
Discussion Q&A:
href="http://www.autodesk.com/discussion">http://www.autodesk.com/discussion

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

"Paul H" <paulh@rimex.com>
wrote in message
href="news:829D2632616902D1567A1B63A806B5AF@in.WebX.maYIadrTaRb">news:829D2632616902D1567A1B63A806B5AF@in.WebX.maYIadrTaRb...

Try this, Run the loop backwards that way the
index numbers dont change as you remove items. substitute your FOR
statement with the one below.

For i = lstArchiveFiles.ListCount -
1 to 0 Step -1



Paul H

style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">

jgamauf <
href="mailto:jgamauf@ariainc.com">jgamauf@ariainc.com> wrote in
message
href="news:f049b6e.-1@WebX.maYIadrTaRb">news:f049b6e.-1@WebX.maYIadrTaRb...
Below
is the code I have to remove selected items from a list box. The problem is
that if you select more than one item, the last item selected always
remains. I have tried different loops to accomplish this. Any help would be
greatly appreciated.

Private Sub cmdRemoveFiles_Click()
    On Error
Resume Next
    Dim i As Integer

    For i = 0 To lstArchiveFiles.ListCount - 1

        If
lstArchiveFiles.Selected(i) = True Then

            lstArchiveFiles.RemoveItem
(i)
        End If

    Next i
End Sub

Thank You,

Jamie Gamauf

Re:

Anonymous — Fri, 04 May 2001 06:18:54 GMT

> As soon as you remove the first item, the ListCount becomes
> ListCount - 1 so you never reach the end of the list unless
> the end of the list is the only selected item. I know
> there's a way around but I'm drawing a blank at the moment.

Without being able to see the code clearly amongst the " "'s from
what it looks like, you could do this be processing the list instead of
from "0 - list length - 1" you'd use "list length - 1 to 0".

--
Y-------------------------------------------------------------------+
| Darren J. Young | Minnesota CADWorks, Inc. |
| dyoung@mcwi.com | P.O. Box 7293 |
| ftp://ftp.mcwi.com | St. Cloud, Minnesota 56302-7293 |
| http://www.mcwi.com | Phone 1-320-654-9053 |
| CAD/CAM/CNC - Drafting Design Customization Training Programming |
0,0-----------------------------------------------------------------X
Support the amendment to ban commercial unsolicited Email (SPAM) To
join the fight, visit -> http://www.cauce.org/

Re:

Anonymous — Fri, 04 May 2001 06:32:11 GMT

That would remove the first item in the list whether it is
selected or not.

--
http://www.acadx.com

"Madhanagopal" wrote in message
news:C93332EAC1D1E9FC2549B9044F54F80D@in.WebX.maYIadrTaRb...
> Put zero(0) instead of i in this
lstArchiveFiles.RemoveItem (i) line.
> Private Sub cmdRemoveFiles_Click()
> On Error Resume Next
> Dim i As Integer
> For i = 0 To lstArchiveFiles.ListCount - 1
> If lstArchiveFiles.Selected(i) = True Then
> lstArchiveFiles.RemoveItem (0)
> End If
> Next i
> End Sub

Re:

Anonymous — Fri, 04 May 2001 07:46:21 GMT

Thanks alot Paul. It works great!

Jamie Gamauf