تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية توليد مجموعة أرقام
#1
أريد كود توليد مجموعة أرقام  من 0 إلى 1000000 و إضافتها ليست بوكس و حفضها في ملف نصي 
قمت بالعمل بهذا الكود
PHP كود :
Private Sub Command1_Click()
Timer1.Enabled True
End Sub
Private Sub Command3_Click()
List1.Clear
End Sub
Private Sub Command4_Click()
Timer1.Enabled False
End Sub
Private Sub Timer1_Timer()
Dim x As Long
For Val(Text1.TextTo Val(Text2.Text)
List1.AddItem x
Label1
.Caption x
Label2
.Caption Val(100 Val(List1.ListCount))
If 
List1.ListCount Text2.Text Then
Timer1
.Enabled False
End 
If
Next x
End Sub 


لكن البرنامج يصبح ثقيل
هل من حل
الرد
تم الشكر بواسطة: Amir_alzubidy
#2
السلام عليكم
اخي الحبيب للامانة العلمية هذا كود من كتابة الاستاذ ابو الليث الله يحفظه بالخير
اما بالنسبة لموضوع ثقل او بطؤ العملية ربما يعود الى امور ربما سرعة الجهاز
والرامات
تحياتي لك

.rar   list.rar (الحجم : 1.41 ك ب / التحميلات : 39)
 اللهم اغفر لي و لوالديّ و للمؤمنين و المؤمنات 
و المسلمين و المسلمات الأحياء منهم و الأموات 
سبحان الله وبحمده Heart سبحان الله العظيم
الرد
#3
لإضافة عناصر الى القائمة دفعة واحدة من دون ان تسبب تباطئ في البرنامج
إستخدم الأمر ListBox1.BeginUpdate قبل الشروع بالإضافة
وبعد اكمال اضافة العناصر كلها استخدم الأمر ListBox1.EndUpdate ليتم تحديثها مرة واحدة

هذه الطريقة تعمل على vb.net ولست متأكدا من عملها على vb6.0 أو لا
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية نسخ قاعدة بيانات جديدة وباسم في هذا المثال khezzani 5 72 15-10-18, 10:55 PM
آخر رد: سعداء
  سؤال عن كيفية ربط برنامج فجوال بيسي6 بقاعدة بيانات على النت amrou 4 174 19-09-18, 08:37 PM
آخر رد: amrou
  كيفية عمل زر print screen للفورم المفتوحة mohamed arafa 1 85 14-09-18, 08:15 AM
آخر رد: Ahmed_Mansoor
  [سؤال] كيفية استخراج تقرير ملف PDF من برنامج مصمم بالفيجوال بيسك 6 mohamed arafa 4 141 11-09-18, 05:10 PM
آخر رد: mohamed arafa
  كيفية ربط ملف صوتي عند فتح البرنامج يعمل مباشرة حتي وان لم يوجد علي الجهاز؟ mohamed arafa 3 120 09-09-18, 12:46 PM
آخر رد: جاسم عبد
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 14 3,137 01-09-18, 03:41 PM
آخر رد: MicroDoha
  [vb6.0] كيفية ربط رقم المعالج بإمكانية فتح أو غلق البرنامج بعد إظهاره mohamed arafa 2 105 01-09-18, 04:42 AM
آخر رد: mohamed arafa
  [vb6.0] طلب كود بحث عن مجلد يحتوي على مجموعة صور و التعديل عل اسم الصورة adad 3 166 09-08-18, 06:36 PM
آخر رد: elgokr
  [VB.NET] سؤال كيفية تخزين ملف صوتي فsql server alipro 0 71 02-08-18, 05:09 AM
آخر رد: alipro
  [vb6.0] كيفية تحول النص الى دالة رياضية NEW _MAN 4 394 07-04-18, 12:28 PM
آخر رد: Mohamad Anan

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


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