Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
DeMONiZ
-
- Продвинутый пользователь
-
-
- Сообщения: 162
- Зарегистрирован: 03.01.2009 (Сб) 18:32
DeMONiZ » 14.01.2009 (Ср) 20:52
Есть ListView1 заполняю его файлами с разными разрешениями (*.jpg, *.bmp, и так далее.....) как сделать чтобы из ListView1 удалить все записи с разрешение jpg? Дайте пример пожалусто.
-
iGrok
-
- Артефакт VBStreets
-
-
- Сообщения: 4272
- Зарегистрирован: 10.05.2007 (Чт) 16:11
- Откуда: Сетевое сознание
iGrok » 14.01.2009 (Ср) 21:32
Что такое "записи с разрешение jpg" я не знаю, но если ты вдруг совершенно случайно имел в виду "с расширением .jpg", тогда нужно сделать следующее:
Пройти циклом по всем записям.
Для каждой сравнивать последние 4 символа с ".jpg".
Если они совпадают - удалять запись.
Логично, правда?
label:
cli
jmp label
-
DeMONiZ
-
- Продвинутый пользователь
-
-
- Сообщения: 162
- Зарегистрирован: 03.01.2009 (Сб) 18:32
DeMONiZ » 14.01.2009 (Ср) 21:39
Конечно логично это я то знаю что нужно сделать так. Но я прошу пример? например как мне сдеать сверку с последними символами? и как мне удалять записи вообще из ListView? первый раз с ним связался
-
Megas13
-
- Новичок
-
-
- Сообщения: 40
- Зарегистрирован: 03.08.2006 (Чт) 9:46
- Откуда: IL
Megas13 » 15.01.2009 (Чт) 0:38
- Код: Выделить всё
For i = List1.ListCount - 1 To 0 Step -1
If LCase(Right(List1.List(i), 4)) = ".jpg" Then _
List1.RemoveItem (i)
Next
Компьютер не подчиняется законам физики.Только в нем глюки возникают из ничего, файлы исчезают в никуда, а объем измеряется в метрах и называется весом.
-
DeMONiZ
-
- Продвинутый пользователь
-
-
- Сообщения: 162
- Зарегистрирован: 03.01.2009 (Сб) 18:32
DeMONiZ » 15.01.2009 (Чт) 11:14
что то я делаю не так у меня выскакивает ошибка "Index out of bounds"
код:
For i = lvCache.ListItems.Count - 1 To 0 Step -1
If LCase(Right(lvCache.ListItems(i), 4)) = ".jpg" Then
lvCache.ListItems.Remove (i)
Next
-
Megas13
-
- Новичок
-
-
- Сообщения: 40
- Зарегистрирован: 03.08.2006 (Чт) 9:46
- Откуда: IL
Megas13 » 15.01.2009 (Чт) 11:59
А... ListView, я спутал с обычным List. Тогда так:
- Код: Выделить всё
For i = ListView1.ListItems.Count To 1 Step -1
If LCase(Right(ListView1.ListItems(i).Text, 4)) = ".jpg" Then _
ListView1.ListItems.Remove i
Next
Компьютер не подчиняется законам физики.Только в нем глюки возникают из ничего, файлы исчезают в никуда, а объем измеряется в метрах и называется весом.
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот, Yandex-бот и гости: 58