работа с ListView

[Saturn.65]

Как удалить нужную строку?
Ищу файл, добавляю в ListView. Он добавляется и пишется в тхт, для того, чтобы после загружаться в ListView.
Добавляю еще и еще. С этим нет проблем. Удалять их ListView удаляется, но вот как удалять эту строчку их тхт?

Private Sub Command100_Click()
Dim ofn As OPENFILENAME
ofn.lStructSize = Len(ofn)
ofn.hwndOwner = Form1.hWnd
ofn.hInstance = App.hInstance
ofn.lpstrFilter = "Исполняемые файлы (*.exe)" + Chr$(0) + "*.exe" + Chr$(0)
ofn.lpstrFile = Space$(254)
ofn.nMaxFile = 255
ofn.lpstrFileTitle = Space$(254) 'Название файла
ofn.nMaxFileTitle = 255
ofn.lpstrInitialDir = CurDir
ofn.lpstrTitle = "Добавить файл..."
ofn.flags = 0
Dim a
a = GetOpenFileName(ofn)
If (a) Then

Text8.Text = Trim$(ofn.lpstrFile)
Text9.Text = (ofn.lpstrFileTitle) 'Название файла
'Добавление в список
AddToList Trim$(ofn.lpstrFile), (ofn.lpstrFileTitle), Text8.Text
Command1_Click 'Запись данных Text8.Text в Запись.txt файл
Else
MsgBox "Cancel was pressed"
End If
End Sub

Private Sub Command1_Click() 'Запись данных Text8.Text в Запись.txt файл
Dim F
F = FreeFile
Open App.path & "\Запись.txt" For Append As #F
Print #F, Text8.Text
Close #F
End Sub

Кому не лень, напишите пример ибо отрывками фраз о разных функциях я все равно не дойду.

[Twister]

После удаления элемента из ListView просто снова перезаписывай текстовый файл содержимым списка, благо он не должен быть огромным.

Удалять их ListView удаляется, но вот как удалять эту строчку их тхт?

Сломалась клавиша с буковкой "з"?

[Денис]

Сломалась клавиша с буковкой "з"?

Это же моторная память! Палец один раз запомнил неправильное попадание по букве, и в дальнейшем при быстром наборе текста, промах получается автоматически.

[Saturn.65]

Кто может сказать, чем отличается ListView SP5 от ListView SP6? Нашел рабочий код, но когда меняю контрол, чтоб было под ХР выдает ошибку.

[Денис]

Кто может сказать, чем отличается ListView SP5 от ListView SP6? Нашел рабочий код, но когда меняю контрол, чтоб было под ХР выдает ошибку.

Отличия в методах объекта. Нужно изучить методы обоих листвьюшек, и переделать пример.

[Хакер]

Уже тысячу раз говорили. Из SP5 — обёртка над настоящим LV, из SP6 — клон.

[Saturn.65]

Как можно посмотреть не выделенные строки?
Text1.Text = ListView1.SelectedItem.SubItems(1)
Так видно только выделенные.

[Хакер]

Думай головой.

Это не заклинания, это код. Он морфируем.

[Saturn.65]

Думай головой.

Как не зайду на форум, что-нибудь спросить, так и ухожу без ничего. Практически все приходится самому изобретать или кубики переделывать. С одной стороны может оно и лучше, а с другой, если не решится тупиковая ситуация, то и проект закрывать приходится.
Нашел я как отобразить все содержимое ListView. Это уже хорошо.
И еще подскажите пожалуйста код, как нажатием одной кнопки выделять по очереди все строки ListView? Чтобы было как будто мышкой щелкаешь по строкам, начиная сверху. Один клик-одна строчка и все ниже и ниже. И так по кругу, если список будет пройден. Своим умом не дойду. Одна надежда на вас.

[Saturn.65]

Хорошо, подскажите тогда как отследить тот момент, когда выделена последняя строчка в ListView при листании списка с помощью клавиши vbKeyUp и что теперь пора нажимать клавишу vbKeyDown. Или что еще можно сделать, чтоб вернуться в начало списка?

[Хакер]

Зачем это может быть нужно?

[Saturn.65]

Зачем это может быть нужно?

Я пробую эмулировать нажатие клавиш Up и Dawn, чтобы считывать данные ListView построчно. Это то я нашел, а вот как вернуться снова наверх? Поэтому дойдя до последней строки надо вернуться вверх либо начать все по кругу считывать. Однако я уперся еще в один тупик: как же я буду передавать фокус ListView, чтобы считывать данные, когда форма будет не видима?

[Хакер]

Дай угадаю, ты эмулируешь нажатие клавиши вниз, а потом обращаешься через ListView1.SelectedItem ?

[Saturn.65]

Дай угадаю, ты эмулируешь нажатие клавиши вниз, а потом обращаешься через ListView1.SelectedItem ?

Вот для клавиши в низ

Код: Выделить всё

Private Sub Label10_Click()
Call keybd_event(vbKeyDown, 0, 0, 0)
   Call keybd_event(vbKeyDown, 0, 0, 0)
   Call keybd_event(vbKeyDown, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(vbKeyDown, 0, KEYEVENTF_KEYUP, 0)

For i = 1 To ListView1.ListItems.Count
ListView1_Click
Next i
End Sub

На верх тоже так же. Все так-то работает, как надо, если на Label10 кликать. Но если фокус от ListView1 уйдет (а он уйдет, если окно будет не видимым), то работать не будет. Одно дело клавиши запустить, а другое еще и фокус как-то сделать. Но мне больше в голову не идет, как можно программно считать весь ListView1 по строчкам?

[Хакер]

. Но мне больше в голову не идет, как можно программно считать весь ListView1 по строчкам?

Твои глаза не видят коллекции ListItems?

[Saturn.65]

Твои глаза не видят коллекции ListItems?

Короче пойду я от вас. И я вас замучил дурацкими вопросами и мне толку никакого. Все равно я не знаю куда эту коллекцию впиндюрить.

[Хакер]

Впендюрить в For Each цикл. Или в обычный цикл, по индексы элемента коллекции.

[SLIM]

SelectedItem - покажет тебе какой Item выбран. Если его Index равен ListCount, то ты в конце списка.
SelectedItem - он помоему Read\Write, т.е. можно переместить выбранный элемент куда угодно, например в начало списка.