+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تحويل من الفيجوال بيسك الى الدلفي (/showthread.php?tid=7336)
تحويل من الفيجوال بيسك الى الدلفي - anter2016 - 05-12-2015
PHP كود :
السلام عليكم ورحمة الله وبركاته
هذا الكود للبحث في LISTVIEW
VISUELB
طلب من الاخوة الافاضل التحويل الى دلفي او كود الفلترة والبحث في LISTVIEW
PHP كود :
For i = 0 To Lv_ListeSaisieP.Items.Count - 1
MsgBox(Lv_ListeSaisieP.Items.Item(i).SubItems(2).Text)
MsgBox(Rtuerie.Text)
If Lv_ListeSaisieP.Items.Item(i).SubItems(2).Text = Rtuerie.Text Then
Lv_ListeSaisieP.Items.Item(i).Selected = True
Lv_ListeSaisieP.Items.Item(i).EnsureVisible()
Exit Sub
End If
Next i