Listview içinde veri bulma

[Terkanli]

Merhaba,

Userform içinde aşağıdaki gibi bir kodum var, TextBox2' ye yazdığım veriyi listView içinde bulup satırı işaretliyor. burda bir sorun yok.
Fakat yapmak istediğim, bulunan satır Listview içinde en üste gelsin ve diğer benzer isimler alt, alta gelsin istiyorum.
not : kodlar İngilizce bir siteden

Private Sub TextBox2_Change()
ListView1.Sorted = True ' ListView sıralanacak
ListView1.SortKey = 3 ' 3. kolona göre ListView sıralanıyor
End Sub

Private Sub CmdBul_Click()
Dim lvwItm As ListItem
Dim itm As Integer
Dim SubItm As Integer
Dim Srchx As String
Set lvwItm = ListView1.FindItem(TextBox2.Text, , , lvwPartial)
If lvwItm Is Nothing Then
itm = 0: SubItm = 0
For itm = 1 To ListView1.ListItems.Count
For SubItm = 3 To 3 ' 3. kolonda arama yapacak
Srchx = Left(ListView1.ListItems.Item(itm).ListSubItems.Item(SubItm).Text, Len(TextBox2.Text))
If UCase(Srchx) = UCase(TextBox2.Text) Then
Set lvwItm = ListView1.ListItems.Item(itm)
GoTo out01
End If
Next SubItm
Next itm
MsgBox " Kayıt bulunamadı !!", , "KAYIT"
TextBox2.Value = ""
Exit Sub
out01:
lvwItm.EnsureVisible
lvwItm.Selected = True ' ListView da satırı buldu
ListView1.SetFocus ' ListView e geçiyor
Else
lvwItm.EnsureVisible
lvwItm.Selected = True
ListView1.SetFocus
End If
End Sub

Saygımla,
Tansu

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.

 

[Terkanli]

Merhaba Levent Bey,
Dosyam ektedir.
Yardımlarınız için teşekkürler.
Saygımla,
Tansu

 

[Levent Menteşoğlu]

Yukarıdaki kodu aşağıdaki ile değiştirerek denermisiniz.

Private Sub CmdBul_Click()
Dim lvwItm As ListItem
Dim itm As Integer
Dim SubItm As Integer
Dim Srchx As String
Set lvwItm = ListView1.FindItem(TextBox2.Text, , , lvwPartial)
If lvwItm Is Nothing Then
itm = 0: SubItm = 0
For itm = 1 To ListView1.ListItems.Count
 For SubItm = 1 To 3
  Srchx = Left(ListView1.ListItems.Item(itm).ListSubItems.Item(SubItm).Text, Len(TextBox2.Text))
   If UCase(Srchx) = UCase(TextBox2.Text) Then
    Set lvwItm = ListView1.ListItems.Item(itm)
    GoTo out01
   End If
   Label1 = itm
 Next SubItm
Next itm
MsgBox "    Kayıt bulunamadı !!", , "KAYIT"
TextBox2.Value = ""
Exit Sub
out01:
say = ListView1.ListItems.Count
If lvwItm.Index + 18 < say Then
ListView1.ListItems(lvwItm.Index + 18).EnsureVisible
Else
ListView1.ListItems(say).EnsureVisible
End If
lvwItm.Selected = True
ListView1.SetFocus
End If
End Sub

 

[Terkanli]

Günaydın Levent Bey,
kodlamanız çalışıyor, çok teşekkür ederim.
yıllar önce DOS kullanırken, Quick basic ile program yazardım, şu index olayı o zamanlarda da hep derdim olmuştu!!.
Tekrar teşekkürler,
Tansu