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

كنت قد سالت حول كود ضغط متتالي للست فيو فكان

For I = 1 To ListView1.ListItems.Count
ListView1.ListItems.Item(I).Selected = True
Text1.Text = ListView1.ListItems.Item(I).Tag
next

فاذا استعملنا ال drive List Box فكيف سيكون الكود اعلاه
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- سيكون بهذا الشكل :

كود :
Private Sub Timer1_Timer()
On Error Resume Next: Err.Clear

Static I As Integer

Drive1.ListIndex = I
Text1.Text = Drive1.List(I)

If I < Drive1.ListCount - 1 Then
   I = I + 1
Else
   I = 0
End If

End Sub

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: asto , تركي الحلواني
#3
شكرا

لكنني استعملته كالتالي :

كود :
Text1.Text = Drive1.ListCount - 1
Dim zzr, y, I As Integer
zzr = Text1.Text
On Error Resume Next: Err.Clear
For y = 0 To zzr
I = y
Drive1.ListIndex = I
Text2.Text = Drive1.List(I)
next y
الرد }}}}
تم الشكر بواسطة:


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


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