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

السلام عليكم


 عندي كود هاذا

 IO.File.WriteAllBytes

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


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

وشكرا

السلام عليكم

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

http://www.mediafire.com/download/5ep595...t_file.rar

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

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

http://www.mediafire.com/download/5ep595...t_file.rar

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

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

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

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

(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

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