الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف يمكن ربط Progress Bar بـ زر يقوم بأمر

بدأه anas-anas في 8 أغسطس 2011 · 6 رد · 837 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

كيف يمكنني ربط Progress Bar بـ زر يقوم بأمر

حيت لدي Button1_Click يقوم بنقل ملف من مكان الى آخر , لكن أريد أن يتم ربطه مع Progress Bar بحيت عندما يتم تنفيذ الأمر تقوم الأدة بإظهار الوقت المتبقي لإتمام العماية 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.FileSystem.CopyDirectory("مسار الملف2", "مسار الملف1")

و شكراً لكم على مجهوداتكم النبيلة.

#2

أرجو المساعدة إن أمكن .

وفقكم الله .

#3

السلام عليكم ورحمه الله وبركاته

اخي انصحك بنقل الملف عن طريق ال FileStream كبايتات وعلى اساسها قم بحساب نسبة البيانات التي تم نسخها

.:: Wish to become better and better ::.

#4
VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اخي انصحك بنقل الملف عن طريق ال FileStream كبايتات وعلى اساسها قم بحساب نسبة البيانات التي تم نسخها

عزيزي ألا يمكن عمل ذلك من خلال ربط عملية النسخ بأداة ProgressBar ؟

إذا لم يكن ممكن أرجو أن تشرح أكثر كيف يمكنني ذلك حسب إقتراحك؟

لك مني جزيل الشكر.

#5

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي

Dim fs1 As New FileStream("SourceFile",FileMode.Open,FileAccess.Read)
Dim fs2 As New FileStream("DestinationFile",FileMode.Creat,FileAccess.Write)
Dim data(1024) As Byte
Dim readBytes As integer
Dim totalBytes As Double
Do
readBytes=fs1.Read(data,0,data.Length)
totalBytes+=Convert.ToDouble(readBytes)
fs2.Write(data,0,data.Length)
ProgressBar1.Value=Convert.ToInt32(totalBytes/Convert.ToDouble(fs1.Length)*Convert.ToDouble(100))
Loop Until readBytes=0
fs1.Close()
fs2.Close()

.:: Wish to become better and better ::.

#6
VB Helper كتب:

السلام عليكم ورحمه الله وبركاته

اخي جرب الكود التالي

Dim fs1 As New FileStream("SourceFile",FileMode.Open,FileAccess.Read)
Dim fs2 As New FileStream("DestinationFile",FileMode.Creat,FileAccess.Write)
Dim data(1024) As Byte
Dim readBytes As integer
Dim totalBytes As Double
Do
readBytes=fs1.Read(data,0,data.Length)
totalBytes+=Convert.ToDouble(readBytes)
fs2.Write(data,0,data.Length)
ProgressBar1.Value=Convert.ToInt32(totalBytes/Convert.ToDouble(fs1.Length)*Convert.ToDouble(100))
Loop Until readBytes=0
fs1.Close()
fs2.Close()

آسف و لكن الكود لم ينجح حيت هناك خطأ

حيت لم يتم التعرف على كلمة FileStream في الكود من قبل المترجم

Type FileStream is not defined

لكن على أي حال أشكرك جزيل الشكر .

تم تعديل هذه المشاركة بواسطة anas-anas في 9 أغسطس 2011 في 04:17

#7

السلام عليكم ورحمه الله وبركاته

اخي قم بتصريح الـ System.IO

.:: Wish to become better and better ::.

مواضيع مشابهة