Question

vb6.0 中想实现 “文本框”的内容，匹配listview中列的值

在文本框内输入“货号”，按回车，如果文本框里面的数值与listview中的数值相等，那个需要将listview中的整行高亮显示。

Answer 1

'如果货号有重复，需要通过改变颜色实现高亮，不能用DropHighlight
Private Sub Form_Load()
Dim i As Integer
ListView1.View = lvwReport
ListView1.FullRowSelect = True
ListView1.Checkboxes = True
ListView1.ColumnHeaders.Add , , "序号", 800
ListView1.ColumnHeaders.Add , , "名称", 800
ListView1.ColumnHeaders.Add , , "货号", 800
For i = 1 To 9
    ListView1.ListItems.Add , , i
    ListView1.ListItems(ListView1.ListItems.Count).SubItems(2) = i & i & i
Next i
End Sub
Private Sub ListView1_Click()
Set ListView1.DropHighlight = Nothing
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim i As Integer
If KeyAscii = 13 Then
    For i = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(i).SubItems(2) = Text1.Text Then
            Set ListView1.DropHighlight = ListView1.ListItems(i)
            ListView1.ListItems(i).EnsureVisible
            Text1.Text = ""
        End If
    Next i
End If
End Sub

追问

我按照您的方法 ，我在文本框内输入了货号，按回车没有反应啊，并且也没有匹配到listview中的数据

追答

你先实验我给你的代码，实验好了，再把原理应用过去
我自己试验是可以的

追问

这个text1.text文本框 只能输入一个字符

Answer 2

你说的“整行高亮显示”是指选中？

追问

不是选中，就是如果匹配上以后将整行的颜色改变一下，一直执行到所有行都成整体颜色

追答

看2L