تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد ادراج ProgressBar1
#1
السلام عليكم ورحمة الله وبركته 

اريد ادراج  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
ممكن تعديل علا الكود
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , أكيد أنك تستخدم حلقة تكرارية 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 كود :
1
ProgressBar1
.Value 
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: Microformt , Microformt , wolf1120
#3
السلام عليكم 

الملف 1 عندما يتم استراده يضهر عادي في list   حجم الملف 1          8  ko 
اما الملف 2 عند الاستراد يخذ وقت طويل لاضهر الملف في list  اظن انا في الدالة خطا ما  لان حجم الملف 2             2mb

ممكن التعديل علا استراد الملف الثاني ليتضهر النتيجة ولا يشل الكومبوتر عن الحركة 

المطلوب التعديل علا المثال 

اريد ادراج  ProgressBar1
الا اريد الحفظ في نفس الملف كما في المثال 
عند حفظ الملف اريد الملف الجديد ان يكون اسمه =    اسم الملف +  كلمة  mod.bin

مثلا اسم الملف=  1 
  تكون النيجة الجديدة عند الحفظ         1mod.bin


الملفات المرفقة
.rar   project.rar (الحجم : 813.63 ك ب / التحميلات : 32)
الرد }}}
تم الشكر بواسطة:
#4
وعليكم السلام ورحمة الله وبركاته

أهلا بك أخي الكريم , تم تعديل المثال .


الملفات المرفقة
.rar   project_1.rar (الحجم : 817.71 ك ب / التحميلات : 44)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: wolf1120 , Microformt , Microformt
#5
الف شكر خالص لك اخي احمد حقا انت من كبار الشخصيات الهامة 

اكرر لك شكري الف شكر وتحية الله لايحرمنا منك ومن امثالك على المساعدة 

حقا انت فنان ومبدع بمعنى الكلمة .
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor , Microformt , Microformt
#6
(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
---------------------------
---------------------------

ارجو ارفاق الاداة
الرد }}}
تم الشكر بواسطة: Microformt , Microformt , Ahmed_Mansoor
#7
السلام عليكم ورحمة الله وبركاته

أهلا أخي الكريم , أرجو المعذرة هذه أداة كنت قد أدرجتها في المثال أود تجربتها في المثال وهي أداة ProgressBar ونسيت حذفها , قم بإلغائها فقط من قائمة أدوات المثال وإن لم تستطع ذلك هذا المثال مرفق بدون هذه الأداة .


الملفات المرفقة
.rar   project_2.rar (الحجم : 817.65 ك ب / التحميلات : 82)
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] ادراج رمز بالداتاجريد haitham Muhammed 0 261 17-11-23, 04:28 AM
آخر رد: haitham Muhammed
  اريد تصحيح الخلل abde6726 2 350 04-11-23, 11:11 PM
آخر رد: abde6726
  اريد طريقة تصدير بيانات الاكتف ريبورت لملف اكسل scsi7000 0 299 03-11-23, 10:41 AM
آخر رد: scsi7000
  اريد طريقه او مثال ...للطباعة من الجهتين في الاكتيف ريبورت scsi7000 4 433 02-11-23, 11:06 PM
آخر رد: Microformt
  اريد طريقة لطباعة مستند مكون من صفحتين علي ورقة وحدة من الجهتين scsi7000 2 371 25-10-23, 07:38 PM
آخر رد: scsi7000
Question [vb6.0] عندي مشكلة في هذا الكود حيث انه لا يقبل الا رقم فقط اريد ان يقبل الارقام والاحرف ؟ Microformt 1 269 25-10-23, 04:10 PM
آخر رد: Amir_Alzubidy
Question [vb6.0] اريد إذا كان قيمة المحول صفر يظهر لي رسالة هل يمكن ذلك ؟ Microformt 0 371 20-03-23, 08:33 PM
آخر رد: Microformt
  [كود] اريد المساعده mohamed memoo 0 370 01-12-22, 07:23 PM
آخر رد: mohamed memoo
Question [vb6.0] كيف امنع المستخدم إدخال في Text نص عربي اريد إدخال انجليزي فقط ؟ Microformt 5 914 26-11-22, 01:25 PM
آخر رد: عبدالمؤمن
  هذا كود اريد كود مختصر والتعديل عليه abde6726 0 624 30-05-22, 03:25 AM
آخر رد: abde6726

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


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