Help with List view

[whirl]

Hello.
before I paste my code I will try and explain what I am trying to achieve.
I have loaded a txt file which contains 26,000 items into a listview
I want to be able to enter some text into a text box and when I press a
command button it
Removes all items from the listview that DOES NOT match what I have entered
in the text box.
Although the code below works, it is extremely SLOW.
can anyone help me improve this, (example code would be great)

Regards
Ian
Private Sub cmdok_Click()
Dim SearchItem As String
SearchItem = LCase$(Trim$(txtfind)) 'txtfind is a textbox
Dim i As Long
Me.MousePointer = vbHourglass

For i = listview1.ListItems.Count - 1 To 0 Step -1
If i = 0 Then GoTo done
If InStr(listview1.ListItems(i), SearchItem) > 0 Then

Else
With listview1.ListItems
.Remove (i)
End With
End If

Next
done:
Me.MousePointer = vbDefault

End Sub

[Don]

On Mon, 21 Jul 2003 19:30:37 +0100, "whirl" <wh***@whirl.org.uk> wrote:

Hello.
before I paste my code I will try and explain what I am trying to achieve.
I have loaded a txt file which contains 26,000 items into a listview
I want to be able to enter some text into a text box and when I press a
command button it
Removes all items from the listview that DOES NOT match what I have entered
in the text box.
Although the code below works, it is extremely SLOW.
can anyone help me improve this, (example code would be great)

Regards
Ian
Private Sub cmdok_Click()
Dim SearchItem As String
SearchItem = LCase$(Trim$(txtfind)) 'txtfind is a textbox
Dim i As Long
Me.MousePointer = vbHourglass
Something to try.. Not really sure how it will affect the display
listview1.visible = false 'then set it visilble=true on exit
If that is flaky then you might want to try the LockWindowUpdate API
Declare Function LockWindowUpdate Lib "user32" Alias _
"LockWindowUpdate" (ByVal hwndLock As Long) As Long
And call it like
LockWindowUpdate me.hwnd
and on exit
LockWindowUpdate 0&

Control Refreshs are a bugger... LOL
For i = listview1.ListItems.Count - 1 To 0 Step -1
If i = 0 Then GoTo done
If InStr(listview1.ListItems(i), SearchItem) > 0 Then

Else
With listview1.ListItems
.Remove (i)
End With
End If

Next
done:
Me.MousePointer = vbDefault

End Sub

Have a good day...

Don

[Dooley]

hello, would copying the matching text to another listbox work, I just read
your post and modified something I have been working on to solve issues for
others. if not let me know and I will modify it to just delete from the
listbox in question.
"whirl" <wh***@whirl.org.uk> wrote in message
news:cp*******************@news-binary.blueyonder.co.uk...

Hello.
before I paste my code I will try and explain what I am trying to achieve.
I have loaded a txt file which contains 26,000 items into a listview
I want to be able to enter some text into a text box and when I press a
command button it
Removes all items from the listview that DOES NOT match what I have entered in the text box.
Although the code below works, it is extremely SLOW.
can anyone help me improve this, (example code would be great)

Regards
Ian
Private Sub cmdok_Click()
Dim SearchItem As String
SearchItem = LCase$(Trim$(txtfind)) 'txtfind is a textbox
Dim i As Long
Me.MousePointer = vbHourglass

For i = listview1.ListItems.Count - 1 To 0 Step -1
If i = 0 Then GoTo done
If InStr(listview1.ListItems(i), SearchItem) > 0 Then

Else
With listview1.ListItems
.Remove (i)
End With
End If

Next
done:
Me.MousePointer = vbDefault

End Sub

[David Segall]

Posted and emailed:
"whirl" <wh***@whirl.org.uk> wrote:

Hello.
before I paste my code I will try and explain what I am trying to achieve.
I have loaded a txt file which contains 26,000 items into a listview
I want to be able to enter some text into a text box and when I press a
command button it
Removes all items from the listview that DOES NOT match what I have entered
in the text box.
Although the code below works, it is extremely SLOW.
can anyone help me improve this, (example code would be great)

Regards
Ian

[code snipped]

In a related competition for speed in comp.lang.basic.visual.misc Dag
Sunde provided an elegant and very fast solution by using the text
file ODBC driver and an SQL SELECT statement. In your case you can use
the same code to (re)populate the listview just by changing the SELECT
statement. The follow ups provide additional information about setting
up the ODBC driver. Here is the link to his post
http://www.google.com.au/groups?hl=en&lr=&ie=UTF-8&oe=UTF-8&frame=right&rnum=31&thl=1135047719,1134966979,11 34770359,1134751242,1134739727,1134737281,11346581 65,1134622808,1134521208,1134510182,1134484638,113 4439555&seekm=QXYL9.3785%24ZL2.337240%40juliett.da x.net#link32

[whirl]

Many thanks for all those who gave me the advice i was looking for

Cheers
"whirl" <wh***@whirl.org.uk> wrote in message
news:cp*******************@news-binary.blueyonder.co.uk...

Hello.
before I paste my code I will try and explain what I am trying to achieve.
I have loaded a txt file which contains 26,000 items into a listview
I want to be able to enter some text into a text box and when I press a
command button it
Removes all items from the listview that DOES NOT match what I have entered in the text box.
Although the code below works, it is extremely SLOW.
can anyone help me improve this, (example code would be great)

Regards
Ian
Private Sub cmdok_Click()
Dim SearchItem As String
SearchItem = LCase$(Trim$(txtfind)) 'txtfind is a textbox
Dim i As Long
Me.MousePointer = vbHourglass

For i = listview1.ListItems.Count - 1 To 0 Step -1
If i = 0 Then GoTo done
If InStr(listview1.ListItems(i), SearchItem) > 0 Then

Else
With listview1.ListItems
.Remove (i)
End With
End If

Next
done:
Me.MousePointer = vbDefault

End Sub