منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

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

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

فاذا استعملنا ال drive List Box فكيف سيكون الكود اعلاه

السلام عليكم

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

كود :

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

- تحياتي .

شكرا

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

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

asto

VB_Coder

asto