ListView高亮显示的问题？(相当于帮组文件中的Index功能)

[sugar]

有一Text框和ListView控件，要实现的是文本框中输入的字符与ListItem中的字符
匹配时，该ListItem要求高亮显示，而焦点仍在文本框？

[sugar]

我做时，要把焦点给ListView时才可以？？？

[BrentIvan]

用Selected属性

Private Sub Form_Load()
ListView1.FullRowSelect = True
ListView1.ListItems.Add , , "123"
ListView1.ListItems.Add , , "456"
ListView1.ListItems.Add , , "789"
End Sub

Private Sub Text1_Change()
Dim i As Integer

For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems.Item(i).Text = Text1.Text Then
ListView1.ListItems.Item(i).Selected = True
Exit For
End If
Next
End Sub

[lj770724]

if .... end if 中最好加上：
Set ListView.SelectedItem=View1.ListItems.Item(i)

[linlexin]

使用DropHighlight和HitTest属性如果是的话,给加分吧,谢谢下面是源程序
自己创建一个窗体和listview吧
Private Sub Form_Load()

Dim i As Integer
For i = 0 To 20
ListView1.ListItems.Add , "P" + CStr(i), "txt" + CStr(i)
Next
End Sub


Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
ListView1.SelectedItem.Selected = False
Set ListView1.DropHighlight = ListView1.HitTest(x, y)
End Sub

[linlexin]

哦,对不起,刚才没有看题目,现在才是答案,和刚才的方法同出一则
Private Sub Form_Load()

Dim i As Integer
For i = 0 To 20
ListView1.ListItems.Add , "P" + CStr(i), "txt" + CStr(i)
Next
End Sub



Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Integer
If KeyCode = 13 Then
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Text = Text1.Text Then
Set ListView1.DropHighlight = ListView1.ListItems(i)
ListView1.Refresh
Exit For
End If
Next

End If
End Sub

[sugar]

thanks all

[sugar]

如何给分啊？