Changing Code?

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

VB Code:

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

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

VB Code:

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

Dude, that's almost exactly what I tryed.

VB Code:

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

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.

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 :p :p :p ...... dont criticize people

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

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.

VB Code:

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.

:)

Quote:

---

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.

[QUOTE]Originally posted by rjlohan
[B]

VB Code:

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?

listview1.listitems.count

or

listview1.listitems.listcount

its one of them. cant remember

Quote:

---

Originally posted by rjlohan

VB Code:

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

VB Code:

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

he forgot the End If

VB Code:

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

I still get a type mismatch error

VB Code:

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

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.

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

man whoever typed this before was really bad at this stuff :p

VB Code:

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

MidgetsBro originly wrote:

VB Code:

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

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

well does my code wrok for you?

Yes and No

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

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

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.

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

---

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

Code:

---

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.