تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[عنوان معدل] مساعدة في اداة Progress Bar
#1
سلام عليكم ورحمة الله وبركاته
ارجوا المسلعدة فى ربط عملية النسخ بال progres pare
ومرفق لكم رابط التطبيق لفشلى فى رفع الملف
http://vb4arab.com/vb/showthread.php?t=108958
وبراجاء المساعدة فى عملية الفع هل هناك مشكله
دمت فى احسن صحة وفقكم الله
}}}}
تم الشكر بواسطة:
#2
progressbar
http://social.msdn.microsoft.com/Forums/...0156f8c51/
}}}}
تم الشكر بواسطة:
#3
اخي اعطيك بعض النتائج
تنيجة 1
PHP كود :
Dim sr As New FileStream("[Input-file]"IO.FileMode.Open)        Dim sw As New FileStream("[Output-file]"IO.FileMode.Create)        Dim len As Long sr.Length 1        Dim buffer(1024) As Byte        Dim bytesread As Integer
        
While sr.Position len            bytesread = (sr.Read(buffer01024))            sw.Write(buffer0bytesread)            mainscreen.FileProgress.Value CInt(sr.Position len 100)            Application.DoEvents()        End While
        
sw.Flush()        sw.Close()        sr.Close() 

نتيجة 2

PHP كود :
Sub copyfilewithprogress()  Dim path As String Application.StartupPath "\"  Dim mediafile As String = "Amy Diamond What's in it for me.mp3"  Dim fi As New IO.FileInfo(mediafile)  Dim sr As New IO.FileStream(path & mediafile, IO.FileMode.Open) 'source file  Dim sw As New IO.FileStream(path "copy of " mediafileIO.FileMode.Create'target file, defaults overwrite  Dim len As Long = sr.Length - 1  For i As Long = 0 To len    sw.WriteByte(sr.ReadByte)    If i Mod 1000 = 0 Then 'only update UI every 1 Kb copied      ProgressBar1.Value 100 len      Application.DoEvents()    End If  Next  ProgressBar1.Value 0End Sub 
متغيب قليلاً للدراسة Smile
}}}}
تم الشكر بواسطة:
#4
جربت ولم افلح
ولا استطيع رفع المرفقات
برجاء المساعدة
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب مساعدة في اصلاح بعض الاخطاء trakktour 18 208 أمس, 05:51 PM
آخر رد: trakktour
  طلب مساعدة في اضافة save & restore trakktour 8 142 أمس, 03:16 AM
آخر رد: trakktour
  استفسار بخصوص عدم ظهور اداة عرض ملف pdf في الادوات عباسة 7 154 22-02-17, 08:07 PM
آخر رد: عباسة
Wink [VB.NET] استفسار بخصوص التعديل والحفظ علي اداة datagridview dark1459 9 131 20-02-17, 02:13 AM
آخر رد: khodor1985
Lightbulb للخبراء هل توجد مكتبة او اداة لعمل مثل هذا النموذج عن طريق vb.net ارجو المساعدة Amrjamil 6 108 18-02-17, 02:19 PM
آخر رد: Amrjamil
Heart [VB.NET] احتاج الى مساعدة في برنامج لمحل لحساب الفاتورة malek369 1 187 06-02-17, 02:44 AM
آخر رد: ٌRy SAEED
  [سؤال] كيف يمكنني استخدام متغير لمناداة اي اداة اليوم مبتدئة وغداً محترفة 3 103 04-02-17, 09:57 PM
آخر رد: عبد الرحمن
  مساعدة فى xml Mohamed20 2 100 02-02-17, 05:40 PM
آخر رد: Mohamed20
  كيفية ادراج نص في اداة RichTextBox مع الاحتفاظ بالنص soper 3 93 25-01-17, 02:23 PM
آخر رد: مساعدة
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 219 24-01-17, 08:32 PM
آخر رد: gmailali

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


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