Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Как осуществить фильтрацыю данных в List View Добавлено: 25.05.09 14:21  

Автор вопроса:  Mc.WOLF

Ответить

  Ответы Всего ответов: 23  

Номер ответа: 16
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
  Web-сайт: okazani.ru
 Профиль | | #16 		Добавлено: 26.05.09 00:04
  1. ListView1.ListItems(1).ForeColor = &HFF0000
  2. Dim li As ListSubItem
  3. For Each li In ListView1.ListItems(1).ListSubItems
  4.     li.ForeColor = &HFF0000
  5. Next

Это изменит цвет шрифта в строке, если так не нравится придется подождать

Ответить

Номер ответа: 17
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
  Web-сайт: okazani.ru
 Профиль | | #17 		Добавлено: 26.05.09 02:54
Вот так лучше, на форму помести текстбокс с именем txtFilter, пикчебокс с именем pbfon и листвью с именем listview1
  1. Dim marks()
  2. Private Sub Form_Load()
  3.     pbfon.AutoRedraw = True
  4.     pbfon.BackColor = ListView1.BackColor
  5.     pbfon.ScaleMode = vbTwips
  6.     pbfon.BorderStyle = vbBSNone
  7.     pbfon.Visible = False
  8.     marks = Array("Micro Intel", "Micro Amd", "Memoria Usb", "Impresora Epson", "Monitor LG", "DVD Samsung")
  9.     For i = 0 To UBound(marks)
  10.         ListView1.ListItems.Add , , marks(i)
  11.     Next
  12.     txtFilter.Text = ""
  13. End Sub
  14. Sub markFind(find As String)
  15. Dim i As Integer
  16.     For i = 0 To UBound(marks)
  17.         If InStr(1, LCase(marks(i)), find) > 0 And Len(find) > 0 Then
  18.             setBColorLVRow ListView1, i,  &HFF&
  19.         Else
  20.             setBColorLVRow ListView1, i, ListView1.BackColor
  21.         End If
  22.     Next
  23. End Sub
  24. Function setBColorLVRow(lv As ListView, nRow As Integer, color As OLE_COLOR) As Integer
  25.     If nRow > ListView1.ListItems.Count Then setBColorLVRow = 1
  26.     If ListView1.ListItems.Count < 1 Then setBColorLVRow = 2
  27.     pbfon.Width = lv.Width
  28.     pbfon.Height = lv.ListItems(1).Height * (lv.ListItems.Count)
  29.     pbfon.ScaleHeight = lv.ListItems.Count
  30.     pbfon.ScaleWidth = 1
  31.     pbfon.DrawWidth = 1
  32.     pbfon.Line (0, nRow)-(1, nRow + 1), color, BF
  33.     lv.Picture = pbfon.Image
  34.     lv.Refresh
  35. End Function
  36.    
  37. Private Sub txtFilter_Change()
  38.     markFind txtFilter.Text
  39. End Sub




А по поводу
и помоги с фильтром .ListItems.Add.SubItems(2) = .Fields("Firma";)

Сначала покажи как ты заполняешь, может просто
  1. adodc1.recordset.filter="Firma like '%micro%'"

???

Ответить

Номер ответа: 18
Автор ответа:
 Mc.WOLF



Вопросов: 26
Ответов: 84
  Профиль | | #18 Добавлено: 26.05.09 12:41
Что-то ничего не получается я сделал так как ты показал на примере "Вот так лучше, на форму помести текстбокс с именем txtFilter, пикчебокс с именем pbfon и листвью с именем listview1"
розместил listview1; PictureBox с именем pbfon; Text1 с именем txtFilter, запускаю проект но не picture ни listView невидно!

Ответить

Номер ответа: 19
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
  Web-сайт: okazani.ru
 Профиль | | #19 		Добавлено: 26.05.09 14:53
http://narod.ru/disk/9145933000/Work_with_listview.rar.html

Ответить

Номер ответа: 20
Автор ответа:
 Mc.WOLF



Вопросов: 26
Ответов: 84
  Профиль | | #20 Добавлено: 26.05.09 16:37
Arvitaly НЕЗНАЮ ДАЖЕ КАК ТЕБЯ БЛАГОДАРИТЬ! ОГРОМЕШОЕ СПАСИБО ТЕБЕ ЗА ПОМОЩ!!!

Ответить

Номер ответа: 21
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #21 		Добавлено: 26.05.09 17:27
а вот еще классная тема) http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=68032&lngWId=1

Ответить

Номер ответа: 22
Автор ответа:
 Arvitaly



ICQ: 301746136 

Вопросов: 28
Ответов: 549
  Web-сайт: okazani.ru
 Профиль | | #22 		Добавлено: 26.05.09 17:33
Согласен :-) Ну свой контрол можно любой писать))

Ответить

Номер ответа: 23
Автор ответа:
 Mc.WOLF



Вопросов: 26
Ответов: 84
  Профиль | | #23 Добавлено: 27.05.09 00:04
ОГРОМНОЕ СПАСИБО ВСЕМ ПОМОГАЮЩИМ )

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам