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

نسخة كاملة : استخدام ال ProgressBar مع هذا الكود
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم اخوتى
كيف استخدم ال ProgressBar  مع هذا الكود الذى يحمل ملف من اليوتيوب

يعنى اريد ان اعرف وصل لآين فى التحميل لآنه يحمل ولا يظهر لى كم العدّ الذى وصل اليه
5% أو 20% أو أو أو
كود :
 Label1.Text = "جارى التحميل..."
       Dim video = YouTube.Default.GetVideo(txtUrl.Text)
       File.WriteAllBytes(FolderBrowserDialog1.SelectedPath & video.FullName, video.GetBytes())
       Label1.Text = "انتهى التحميل !"
كود :
 ProgressBar1.Increment(1)

      Label2.Text = ProgressBar1.Value & "%"
(14-01-19, 06:51 PM)بيسك لكل العرب كتب : [ -> ]
كود :
 ProgressBar1.Increment(1)

      Label2.Text = ProgressBar1.Value & "%"

بارك الله فيك أخى..
بيظهر لى 1 % فقط لا تتقدم
اعتقد الفكرة تدور حول حجم الملف .. جرب هذي الطريقة ،، او احذف الضرب والقسمة و 100  .. 


كود :
ProgressBar1.Increment(video.GetBytes() *100 / 100)
Label2.Text = ProgressBar1.Value
(14-01-19, 07:56 PM)حريف برمجة كتب : [ -> ]اعتقد الفكرة تدور حول حجم الملف .. جرب هذي الطريقة ،، او احذف الضرب والقسمة و 100  .. 


كود :
ProgressBar1.Increment(video.GetBytes() *100 / 100)
Label2.Text = ProgressBar1.Value

شكرا لك أخى لكن لم تضبط للأسف
(15-01-19, 04:45 AM)ابو روضة كتب : [ -> ]
(14-01-19, 07:56 PM)حريف برمجة كتب : [ -> ]اعتقد الفكرة تدور حول حجم الملف .. جرب هذي الطريقة ،، او احذف الضرب والقسمة و 100  .. 


كود :
ProgressBar1.Increment(video.GetBytes() *100 / 100)
Label2.Text = ProgressBar1.Value

شكرا لك أخى لكن لم تضبط للأسف

جرب تضع حجم الملف الأصلي في متغير

والحجم المحمل في متغير

وتعمل عملية حسابية للمتبقي وتضع القيمة في البروقريس بار