ListView

[RayShade]

Список моделей столов можно найти на msdn.microsoft.com

[Inferno]

Для тех кто будет вводить в тривью значения из базы советую поле ключей вначале отсортировать по имени и добалять только дочерние ветви в родительские- это поможет избежать лишних тормозов и ошибок.

[RayShade]

Автору топика, по всему видно, тормозов не избежать по любому

[OMEGUS]

Лично мне база данных не нужна

Я сам напишу неизменное дерево

Мне нужно только что бы пользователь мог просчтавлять галочки на каждой ветке.....

А по ним потом происходили бы условия.....

[sash]

2OMEGUS:

[OMEGUS]

2 Sash

Спасибо конечно но нету у меня такокго свойства....

я же не слепой ?!

[Igor_123]

может найдешь где-то(microsoft.com) обновление для своих контролов

[OMEGUS]

Получилось не не все !

Я создал новый проект и подключил все MS Windows Common Contols из списка в Components (из там 6 штук оказалось) и на панель объектов добавилось ДВА TreeView

Первый выглядел как старый а во втором было это свойство Chekboxes и я его успешно протестировал

Но в старом проекте я проставив все эти галочки второй иконки TreeView не нашел...

Беда в том что у меня уже написан довольно большой код программы и я не хотелбы его переписывать заново и заново рисовать все формы..

Что делать ?

[Sedge]

Хм. OMEGUS. А какая версия VB у тебя, а? И какой сервиспак?

[OMEGUS]

2 Sedqe

Меч - всего лишь неуклюжее орудие для рубки дров. М.Мусаси

[Sedge]

2 OMEGUS
Однако без заточки он не годится и для этого. Sedge.

[OMEGUS]

ВСЕ ПОЛУЧИЛОСЬ

Как сам не понял... где то снял галочки где то снова поставил все ! заработало!

СПАСИБО ВСЕМ !!!

PS Теперь бы мне пример использования этих галок, но это уже проще.... буду искать примеры ... кто знает где подскажите

[Igor_123]

MSDN помогает

[OMEGUS]

ЭЭЭЭ ... а у меня ее нету..... я при установке не установил иии теперь диски уже далеко... с инета ее можно поставить как то ???

[RayShade]

msdn.microsoft.com

Только оттуда напрямую просто так не поставить. Необходимо иметь Microsoft Internet Explorer BackOffice Extensibility Pack, он позволяет проводить установку компонентов прямо с сайта.

[Saturn.65]

Изучаю добавление информации в ListView. Т.е. выводится окно добавить файл. Выбираешь, добавляешь. Добавленные файлы записываются в txt. При загрузке формы они отображаются в ListView.
Это я вроде освоил. А вот как бы сделать, чтоб в ListView можно было бы удалить ненужные файлы из списка? Например: я загрузил в ListView 5 файлов. И вдруг третий по списку мне не стал нужен. Как его удалить и чтоб небыло в списке пустой строчки.
Прилагаю заготовку.

[Viper]

неужели

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

ListView1.ListItems.Remove 3

не догадался использовать для удаления третьей записи из списка?

З.Ы. Да еще и нкрофилия просто жуткая...

[Saturn.65]

Я этой третьей записью не занимался. Она пустая и бог с ней. Не в этом дело. Это просто заготовка.
Меня интересует удаление ненужной записи.
Или мне бы какой пример, чтоб можно было хранить инфу из ListView1.

[Viper]

Так а я про что? Такой вот методой и удаляй из списка третью запись. Или моя твоя не понимай. Или речь про удаление записи из файла?

[Saturn.65]

Так а я про что? Такой вот методой и удаляй из списка третью запись. Или моя твоя не понимай. Или речь про удаление записи из файла?

Как тебе объяснить? Может мы наполовину понимаем друг-друга.
Дело вот в чем. Ищу я нужные файлы, вставляю их в Listwiev. Для сохранения данных, они записываются в txt. При загрузке формы они воспроизводятся в Listwiev. Если я удалю запись в середине списка, то надо, чтоб и в txt эта запись тоже удалилась и строчки в txt соеденились с собой ( чтоб небыло пустой строки) иначе в Listwiev при загрузке эта пустая строка будет. Чтоб так тебыло:

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

aaaaa
bbbbb

cccccc
ddddd


Может я и дурью маюсь с этим сохранением данных, но у меня другого примера нет, этот то я и так сам слепил. А что-нибудь попроще не бывает? Как еще можно сохранить?

[Viper]

Вот теперь понятно!
Тебе надо переписывать файл с записями.
Вариант 1. После каждого удаления записи в ListView перезаписываешь файл с записями заново. Понятно, что при этом в него записываются лишь существующие записи.
Вариант 2. То же самое, но при закрытии программы.
Вариант 3. После удаления записи перезаписывать файл, наиная со следующей после удаленной записи.

Вот как то так.

[Saturn.65]

Viper
Да. Это то, что надо. Действительно перезаписать файл без пустых строчек. И проблемы не будет. Вроде какая то функция есть удалять пробелы. Или это не подойдет? Не скупись, выкладывай пример.

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

aaa        aaa
bbb    =  bbb 
           ccc
ccc


[AntonGV]

Вроде какая то функция есть удалять пробелы.

Trim

[Saturn.65]

Вроде какая то функция есть удалять пробелы.

Trim

Trim удаляет пробелы в начале и конце строки. А надо между строк.
Тут я конечно загнул. Чем так корячится, не начать ли мне изучение работы с базами данных? Там практически все готово: и записывается и сохраняется и считывается.

[Viper]

s = Replace$(s, " ", "")
и нет больше пробелов

[Saturn.65]

s = Replace$(s, " ", "")
и нет больше пробелов

Viper Спасибо конечно! Вот если б ты примерчик на скорую руку набросал. А то у меня голова тугая.

[Viper]

Эээ.... Примерчик чего? Юзанья Replace или же таки перезаписи файла? Первое постом выше, на второе лениво тратить время, ибо оно есть деньги.

[Saturn.65]

неужели

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

ListView1.ListItems.Remove 3

не догадался использовать для удаления третьей записи из списка?

такой код не подойдет. Мне надо. чтоб куда мышкой ткнешь, то и удалялось. А тут индекс стоит (3). Сделал по другому.

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

Private Sub ListView1_Click()
If ListView1.SelectedItem.Checked = True Then
MsgBox "Строка будет удалена"
ListView1.ListItems.Remove (Checked)
End If
End Sub


Пришлось checkboxы для строчек ListView1 поставить. Сейчас нужная строка удаляется. Осталось придумать, как при этом и в txt файле ее удалить. А случайно нельзя вывести данные колонки ListView1 в textbox? Так бы вывел без всяких пустых строчек в textbox и после перезаписал бы в файл. Выводить пробовал, но выводится та строка, которая выделена. А как так, чтоб без выделения, сразу весь список?

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

Dim LF As ListItem
   Dim LFS As ListSubItem
   Dim a As ListItem
   Dim Collumn1 As String
   Dim Collumn2 As String
   'Сейчас будем добавлять текст в ListView
   'Добавляем текст в "Меню" из файла Запись.txt и в "Подменю" текст из файла Запись1.txt
   Open App.path & "\Запись.txt" For Input As 1 'Читаем текст из файла Запись.txt
   Open App.path & "\Запись1.txt" For Input As 2 'Читаем текст из файла Запись1.txt
   Do Until EOF(1)
   Input #1, Collumn1
   Input #2, Collumn2
   
    'Заносим инормацию из Collumn1 в LF - это колонка "меню"
    Set LF = ListView1.ListItems.Add(, , Collumn1)
   
    'Заносим инормацию из Collumn2 в LFS - это колонка "подменю"
    Set LFS = LF.ListSubItems.Add(, , Collumn2)

Loop
Close


Вот этот код считывает данные из txt и помещает их в колонки.
Как бы сделать. чтоб записи из колонок помещались в txt?

[AntonGV]

Мне надо, чтоб куда мышкой ткнешь, то и удалялось

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

Private Sub ListView1_Click()
  ListView1.ListItems.Remove ListView1.SelectedItem.Index
End Sub

Как бы сделать. чтоб записи из колонок помещались в txt?

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

Private Sub UpdateFile()
  Dim i As Integer, NFile1 As Integer, NFile2 As Integer
  NFile1 = FreeFile
  Open App.path + "\Запись.txt" For Output As #NFile1
  NFile2 = FreeFile
  Open App.path + "\Запись1.txt" For Output As #NFile2
  For i = 1 To ListView1.ListItems.Count
    Print #NFile1, ListView1.ListItems(i).Text
    Print #NFile2, ListView1.ListItems(i).SubItems(1)
  Next i
  Close #NFile1
  Close #NFile2
End Sub

Может лучше хранить данные в одном файле?

[Saturn.65]

AntonGV
Огромное спасибо! Все получилось! А я целый день корячусь, и так и этак. Теперь, вроде, вопрос исчерпан.