منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود للdrivelistbox - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كود للdrivelistbox (/showthread.php?tid=1094)

كود للdrivelistbox - asto - 27-11-13

السلام عليكم

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

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

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

RE: كود للdrivelistbox - VB_Coder - 27-11-13

السلام عليكم

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

كود :
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

- تحياتي .

RE: كود للdrivelistbox - asto - 28-11-13

شكرا

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

كود :
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