Итак, у меня есть flexgrid в моем проекте vb6, над которым я работаю. В каждой строке есть имена, и у меня есть выпадающий список, чтобы пользователь мог выбрать, для какого имени он хочет видеть больше информации, вот что у меня есть.
Dim target_name As String
Dim r As Integer
' Get the name.
target_name = Combo1
If Len(target_name) = 0 Then Exit Sub
' Search for the name, skipping the column heading row.
target_name = LCase$(target_name)
For r = 1 To MSFlexGrid1.Rows - 1
If LCase$(MSFlexGrid1.TextMatrix(r, 0)) = _
target_name Then
' We found the target. Select this row.
MSFlexGrid1.Row = r
MSFlexGrid1.RowSel = r
MSFlexGrid1.Col = 0
MSFlexGrid1.ColSel = MSFlexGrid1.Cols - 1
' Make the row visible.
MSFlexGrid1.TopRow = r
Exit Sub
End If
Next r
Это хорошо работает, но оно также показывает все, что находится под этим именем, я бы хотел выделить только выбранное имя.
Любая помощь будет великолепна.