منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اضهار تقدم العملية في البروق بار - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اضهار تقدم العملية في البروق بار (/showthread.php?tid=11474)

اضهار تقدم العملية في البروق بار - hassan - 18-02-15

السلام عليكم


 عندي كود هاذا

 IO.File.WriteAllBytes

ابي تقدم علمية هاذا الامر يضهر في البروق بار 


وياليت يكون في BackgroundWorker

وشكرا

RE: اضهار تقدم العملية في البروق بار - tariq2812 - 19-02-15

السلام عليكم

المشروع المرفق يقوم بتقسيم الملفات واضهار تقدم العملية

http://www.mediafire.com/download/5ep59565ug570p4/Split_file.rar

RE: اضهار تقدم العملية في البروق بار - hassan - 20-02-15

(19-02-15, 11:35 PM)tariq2812 كتب : السلام عليكم

المشروع المرفق يقوم بتقسيم الملفات واضهار تقدم العملية

http://www.mediafire.com/download/5ep59565ug570p4/Split_file.rar

اخي لا احتاج للتقسيم 

شكرا على اهتمامك

RE: اضهار تقدم العملية في البروق بار - ربيع - 20-02-15

نحمده ونصلي على رسوله الكريم

على افتراض ان file هي مصفوفة من نوع byte

كود :
progressBar1.Maximum = 100
Dim i As Integer = 0

Using fs As New FileStream(مسار الحفظ, FileMode.Create)
    For Each b As Byte In file
        fs.WriteByte(b)

        i += 1
        progressBar1.Value = 100 * i \ file.Length
        Application.DoEvents()
    Next b
End Using

progressBar1.Value = 0


RE: اضهار تقدم العملية في البروق بار - hassan - 21-02-15

(20-02-15, 10:46 PM)ربيع كتب : نحمده ونصلي على رسوله الكريم

على افتراض ان file هي مصفوفة من نوع byte


كود :
progressBar1.Maximum = 100
Dim i As Integer = 0

Using fs As New FileStream(مسار الحفظ, FileMode.Create)
    For Each b As Byte In file
        fs.WriteByte(b)

        i += 1
        progressBar1.Value = 100 * i \ file.Length
        Application.DoEvents()
    Next b
End Using

progressBar1.Value = 0

الله يعطيك العافيه