30-07-18, 03:37 PM (آخر تعديل لهذه المشاركة : 30-07-18, 04:22 PM {2} بواسطة wolf1120.)
السلام عليكم ورحمة الله وبركته
اريد ادراج ProgressBar1
في المعادلة التالية
Private Sub chose_file()
On Error Resume Next
Close
With CommonDialog1
.FileName = ""
.DialogTitle = "Open File"
.CancelError = True
.Filter = "All Files (*.*)|*.*"
.ShowOpen
strfile = .FileName
End With
End Sub
مع العلم انا الملف يتم ادراجه داخل List1
حجم الملف 2,00 Mo
من 000000 الى 1FFFF0
ممكن تعديل علا الكود
أهلا بك أخي الكريم , أكيد أنك تستخدم حلقة تكرارية For أو Do لتحميل بيانات الملف في أداة الـ List1 لذلك يجب أن تجهز أداة الـ ProgressBar1 للإستخدام حيث تضع كود تجهيزه قبل الحلقة التكرارية قبل كلمة For أو Do وكود تجهيزه هو أن تضع قيمة خاصية الـ Value تساوي 0 وأيضا خاصية الـ Min ولكن خاصية الـ Max يجب أن يكون عدد السطور التي ستضيفها في أداة الـ List1 , مثلا عدد سطور الملف 500 سطر فسيكون كود تجهيز أداة الـ ProgressBar1 هو كالتالي :
31-07-18, 02:20 PM (آخر تعديل لهذه المشاركة : 31-07-18, 02:21 PM {2} بواسطة wolf1120.)
السلام عليكم
الملف 1 عندما يتم استراده يضهر عادي في list حجم الملف 1 8 ko
اما الملف 2 عند الاستراد يخذ وقت طويل لاضهر الملف في list اظن انا في الدالة خطا ما لان حجم الملف 2 2mb
ممكن التعديل علا استراد الملف الثاني ليتضهر النتيجة ولا يشل الكومبوتر عن الحركة
المطلوب التعديل علا المثال
اريد ادراج ProgressBar1 الا اريد الحفظ في نفس الملف كما في المثال عند حفظ الملف اريد الملف الجديد ان يكون اسمه = اسم الملف + كلمة mod.bin
مثلا اسم الملف= 1 تكون النيجة الجديدة عند الحفظ 1mod.bin
(01-08-18, 08:25 AM)Ahmed_Mansoor كتب : وعليكم السلام ورحمة الله وبركاته
أهلا بك أخي الكريم , تم تعديل المثال .
عفوا لا توجد اداة RgheedProgressBar2003.ocx
---------------------------
---------------------------
'C:\Users\PC\Desktop\project_1\RgheedProgressBar2003.ocx' could not be loaded--Continue Loading Project
---------------------------
---------------------------
أهلا أخي الكريم , أرجو المعذرة هذه أداة كنت قد أدرجتها في المثال أود تجربتها في المثال وهي أداة ProgressBar ونسيت حذفها , قم بإلغائها فقط من قائمة أدوات المثال وإن لم تستطع ذلك هذا المثال مرفق بدون هذه الأداة .
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next