كيف اربط كود نسخ ملف بال progrss par مع العلم ان الكود الذى استخدمة هو كالاتى
Private Sub Browse_Click()
On Error Resume Next
CommonDialog1.FileName = ""
CommonDialog1.Filter = "Backup files (*.smm) |*.smm|"
CommonDialog1.ShowSave
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub Copy_Click()
FileCopy (App.Path & "\File.doc"), CommonDialog1.FileName
MsgBox "done succesfully", vbOKOnly + vbInformation, "copy"
Unload Me
End Sub
كيف اربط هذا الكود مع ال progrss par
مرفق المثال على سؤالى
السلام عليكم...
الجملة FileCopy هي جملة مبنية في VB6 و تقوم بنسخ الملف بشكل كامل دون أن نتمكن من التداخل معها لمعرفة نسبة النسخ.
لإظهار معدل التقدم في عملية النسخ تحتاج إلى إنشاء روتين خاص بك يقوم بفتح الملف المصدر و إنشاء ملف هدف، ثم القراءة من الملف المصدر و الكتابة في الملف الهدف في شكل كتل من البايتات، و كلما تمت كتابة كتلة من البايتات تقوم بتقديم الـ ProgressBar.
نرجو الاستفادة و السلام.
وَ قُلِ اعْمَلُوا فَسَيَرَى اللهُ عَمَلَكُمْ وَ رَسُولُهُ وَ الْمُؤْمِنُونَ
صدق الله العظيم