تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث في اللست فيو
#1

PHP كود :
Private Sub Form_Load()
With ListView1
.ListItems.Add Key:="k1"Text:="Fred"
.ListItems.Add Key:="k2"Text:="Barney"
.ListItems.Add Key:="k3"Text:="Wilma"
.ListItems.Add Key:="k4"Text:="Betty"
.ListItems.Add Key:="k5"Text:="Pebbles"
.ListItems.Add Key:="k6"Text:="Bam Bam"
End With
End Sub

Private Sub Command1_Click()
Dim itm As ListItem
With ListView1
Set itm 
= .FindItem(Text1.TextlvwText, , lvwPartial)
If 
Not itm Is Nothing Then
.ListItems(itm.Index).Selected True
.SetFocus
End 
If
End With
Set itm 
Nothing
End Sub 
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
#2
شكرا يا باشا واتمنى لك التوفيق
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم