ДОбрый день. задача следующая:
Помещаю в ListView данные, при помощи кнопки ins имитирую выбор item (изменям ццвет элемента), перемещаем selected на следующую строчку, но вот фокус Listview не соотвествует позиции selected
т.е. при обновление ListView всегда отображается с 1-ой строчки...необходимо чтобы на экран выводился фокус выброного item
Вот мой код.
If e.KeyCode = Keys.Insert Then
Dim indexes As ListView.SelectedIndexCollection = _
Me.lwCheckProgrammAudit.SelectedIndices
Dim index As Integer
value = lwCheckProgrammAudit.FocusedItem 'index
For Each index In indexes
ar(r) = lwCheckProgrammAudit.Items(index).SubItems(2).Text
r = r + 1
If r > 99 Then
MsgBox("Привышен предел массива Справочника планов работ", vbOKOnly, "Error")
End If
Next
WriteListView()
lwCheckProgrammAudit.Items(index + 1).Selected = True
пробовала
lwCheckProgrammAudit.FocusedItem = value
дает Notfing