Nabídka portálu se při zobrazení článku přesouvá na konec pravého sloupce nabídek.
 Jak vyhledávat v ListView? (Visual Basic) |
Autor: Kočí Marek
| Zdroj:
| Vytvořeno: 9.12.2003
| Publikováno: 11.12.2003
| Čtenářů: 4059
| Unikátních: 3898
|
Potřebujete inteligentní vyhledávání v ListView?
Ukázka jak psaním v TextBoxu se v ListView automaticky označuje řádek s odpovídajícím textem.
Nejprve vložte na formulář 1x TextBox a 1xListView (pozor ne ListBox).
Nastavte vlastnosti ListView takto:
View = 2 - lvwList:
HideSelection (nezaškrnuto)
Do formuláře vložte následující kód:
Private Sub Form_Load()
'Naplni listview daty
With ListView1.ListItems
.Add Key:="k1", Text:="Marek"
.Add Key:="k2", Text:="Martin"
.Add Key:="k3", Text:="Michal"
.Add Key:="k4", Text:="Nosorožec"
.Add Key:="k5", Text:="Xenon"
.Add Key:="k6", Text:="Buben"
End With
End Sub
Private Sub Text1_Change()
Dim itm As ListItem
With ListView1
'Najdi odpovidajici
Set itm = .FindItem(Text1.Text, lvwText, , lvwPartial)
'Naleznes tak vyber radek
If Not itm Is Nothing Then
.ListItems(itm.Index).Selected = True
.SetFocus
doevents
End If
End With
Set itm = Nothing
'prepni na textbox
Text1.SetFocus
End Sub
A to je vše, nyní můžete testovat a upravovat kód podle libosti :o)
|
Novinky e-mailem
Nejčtenější články
Anketa
Nabídka portálu