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

كود :
       Dim input As Shell32.Folder = sc.NameSpace(Application.StartupPath + "\test\zz.zip")
       ProgressBar2.Maximum = CInt(input.Items.Count)
       For i = 0 To input.Items.Count - 1
           ProgressBar2.Value = i
       Next

اريد ان اجعل Maximum = Count لاكن لا يعمل حل من حل ؟
الرد
تم الشكر بواسطة:



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


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