Changing Code?

[New to VB 6]

Does anybody know how to adapt this Code to a "listview box"?

Private Sub Text1_Change()
Dim i As Integer
For i = 0 To List1.ListCount - 1
    If InStr(1, Left(List1.List(i), Len(Text1.Text)), Text1.Text, vbTextCompare) Then List1.Selected(i) = True: Exit For
Next
 
End Sub

[Rick Bull]

I haven't tested this, so it could be a little wrong, but try this:

Private Sub Text1_Change()
Dim i As Integer
For i = 0 To ListView1.ListItems.Count - 1
    If InStr(1, Left(ListView.ListItems(i).Caption, Len(Text1.Text)), Text1.Text, vbTextCompare) Then ListView.ListItems(i).Selected = True: Exit For
Next
 
End Sub

[New to VB 6]

Dude, that's almost exactly what I tryed.

Dim i As Integer
For i = 1 To ListView1.ListItems.Count
    If InStr(1, Left(ListView1.ListItems(i).Text, Len(Text1.Text)), Text1.Text, vbTextCompare) Then ListView1.ListItems(i).Selected = True: Exit For
Next

[phinds]

Well, "new to vb6" I haven't looked at the specifics of RickBull's post, but your response is stunning. "Almost exactly the same" counts in horseshoes and hand grenades, but not in programming.

If you don't understand that even a single comma can totally change what a program does, you should probably look for another line of work.

[BuggyProgrammer]

maybe if you looked at their codes, phinds, you would notice that the only difference is Caption and Text, and i dont think that a listview would have a caption property ...... dont criticize people

also the 0 and 1 difference but eh.......

[New to VB 6]

ListView doesn't have a Caption property and if I use 0 I get an invalid index error, so I used 1 and that got rid of the error.

The only this is that when I type in some text Nothing happens.

[rjlohan]

Private Sub Text1_Change()
   Dim i As Integer
   For i = 1 To Listview1.ListCount
      If InStr(1, Left(Listview1.List(i), Len(Text1.Text)), Text1.Text, Listview1.ListItems(i)) Then 
         Listview1.ListItems(i).Selected = True
         Exit For
   Next
End Sub

That should do it.

Just remember that for the common controls, all arrays are indexed from 1, not 0, as with the standard controls.

[rjlohan]

Originally posted by phinds
Well, "new to vb6" I haven't looked at the specifics of RickBull's post, but your response is stunning. "Almost exactly the same" counts in horseshoes and hand grenades, but not in programming.

If you don't understand that even a single comma can totally change what a program does, you should probably look for another line of work.

That sort of comment is pretty unnecessary.

[New to VB 6]

[QUOTE]Originally posted by rjlohan
[B]

Private Sub Text1_Change()
   Dim i As Integer
   For i = 1 To Listview1.ListCount
      If InStr(1, Left(Listview1.List(i), Len(Text1.Text)), Text1.Text, Listview1.ListItems(i)) Then 
         Listview1.ListItems(i).Selected = True
         Exit For
   Next
End Sub

ListView doesn't have a list or listcount property. Will this work?

[BuggyProgrammer]

listview1.listitems.count

or

listview1.listitems.listcount

its one of them. cant remember

[New to VB 6]

Originally posted by rjlohan

Private Sub Text1_Change()
   Dim i As Integer
   For i = 1 To Listview1.ListCount
      If InStr(1, Left(Listview1.List(i), Len(Text1.Text)), Text1.Text, Listview1.ListItems(i)) Then 
         Listview1.ListItems(i).Selected = True
         Exit For
   Next
End Sub

When I try it your way and change it to the way BuggyProgrammer showed I get an error "Next without For" and when I try

Dim i As Integer
   For i = 1 To ListView1.ListItems.Count
      If InStr(1, Left(ListView1.ListItems(i), Len(Text1.Text)), Text1.Text, ListView1.ListItems(i)) Then ListView1.ListItems(i).Selected = True: Exit For
   Next

I get a "Type mismatch" error

[BuggyProgrammer]

he forgot the End If

Private Sub Text1_Change()
   Dim i As Integer
   For i = 1 To Listview1.ListCount
      If InStr(1, Left(Listview1.List(i), Len(Text1.Text)), Text1.Text, Listview1.ListItems(i)) Then 
         Listview1.ListItems(i).Selected = True
         Exit For
       End If
   Next
End Sub

[New to VB 6]

I still get a type mismatch error

For i = 1 To ListView1.ListItems.Count
      If InStr(1, Left(ListView1.ListItems(i), Len(Text1.Text)), Text1.Text, ListView1.ListItems(i)) Then
         ListView1.ListItems(i).Selected = True
         Exit For
       End If
   Next

[New to VB 6]

Ok Let's get out stories straight...

Some of this isn't nedded. I was working on a list box because I was told to use one by someone else.

I thought ListView was better when I found out that ListView Used keys.

Let's work one either the list box or the listview.

[BuggyProgrammer]

nothing to do till soccer(or football ) comes on so ill test and fix it for you.

[BuggyProgrammer]

man whoever typed this before was really bad at this stuff

Dim i As Integer
   For i = 1 To ListView1.ListItems.Count
      If InStr(ListView1.ListItems(i), Text1.Text) > 0 Then ListView1.ListItems(i).Selected = True: Exit For
   Next

the problem was in the Instr, which for some funny reason did something so screwy it cannot be described, other than the person who wrote this code.


and you also dont need the left() part, unless you could tell me why

[New to VB 6]

MidgetsBro originly wrote:

Private Sub Text1_Change()
Dim i As Integer
For i = 0 To List1.ListCount - 1
    If InStr(1, Left(List1.List(i), Len(Text1.Text)), Text1.Text, vbTextCompare) Then List1.Selected(i) = True: Exit For
Next
 
End Sub

for a list box control

See this Thread

[New to VB 6]

I don't care about the code, I just want to compare the text in Text1 to the text in the ListView Control.

[BuggyProgrammer]

well does my code wrok for you?

[New to VB 6]

Yes and No

Yes it works as far as no error msg.
No it doesn't retrieve the listview item...

[BuggyProgrammer]

did you try setting focus to the listview? because it wont seem to highlight anything if it doesnt.

[JohnVB6]

This code will compare the text in Text1 to the ListView and select the
first listview item that matches. Place a textbox (Text1), a command
button (Command1) and a listview (ListView1) on a form and paste
this code.

Private Sub Form_Load()
'***************************************
  'fill your list here
'***************************************
  
  Text1.Text = ""
  Text1.TabIndex = 0
  Command1.Default = True
End Sub

Private Sub Command1_Click()
  Dim liFound As ListItem   ' FoundItem variable.
  
  Set liFound = ListView1.FindItem(Text1, , , lvwPartial)
  
  If liFound Is Nothing Then 'no match
    MsgBox "No match found"
    Exit Sub
  Else 'at least a partial match
    liFound.EnsureVisible ' Scroll ListView to show found ListItem.
    Set ListView1.SelectedItem = liFound 'select the ListItem
    'or you could use this line
    'liFound.Selected = True ' Select the ListItem.
    ListView1.SetFocus 'keep item selected
  End If
End Sub

Private Sub Text1_GotFocus()
  If Text1 = "" Then Exit Sub
  Text1.SelStart = 0
  Text1.SelLength = Len(Text1)
End Sub

[JohnVB6]

Note: in the above example, a match will only occur if the text matches
the upper most level in the list. To search child levels you must change

object.FindItem (string, [value], index, match)

[value] to the items level (0 is default). In code you could also cycle through
each level until a match occurs by changing [value] in the finditem string.