السلام عليكم ورحمة الله وبركته
اريد ادراج 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 هو كالتالي :
PHP كود :
ProgressBar1.Value = 0
ProgressBar1.Min = 0
ProgressBar1.Max = 500
وفي داخل كود الحلقة التكرارية قم بزيادة قيمة الخاصية Value
PHP كود :
i = i + 1
ProgressBar1.Value = i
السلام عليكم
الملف 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 ونسيت حذفها , قم بإلغائها فقط من قائمة أدوات المثال وإن لم تستطع ذلك هذا المثال مرفق بدون هذه الأداة .