تقييم الموضوع :
  • 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 ك ب / التحميلات : 69)
الرد }}}
#3
لإضافة عناصر الى القائمة دفعة واحدة من دون ان تسبب تباطئ في البرنامج
إستخدم الأمر ListBox1.BeginUpdate قبل الشروع بالإضافة
وبعد اكمال اضافة العناصر كلها استخدم الأمر ListBox1.EndUpdate ليتم تحديثها مرة واحدة

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart كيفية تغيير نوعية الــ DataBase أبو خالد الشكري 4 239 10-01-24, 10:55 PM
آخر رد: أبو خالد الشكري
  [vb6.0] سؤال حول كيفية عمل زر كوماند داخل عمود Msflexgrid جلال اليمني 5 551 14-09-23, 05:12 AM
آخر رد: جلال اليمني
  [سؤال] كيفية حذف إسم شخص من listbox من دون الضغط على الإسم؟ ihabgh123 2 406 12-06-23, 10:09 PM
آخر رد: ihabgh123
  [vb6.0] كيفية برمجة ادات "Office Ribbon" في الفيجوال بيزك 0.6 Hammam Khalfi 0 428 21-04-23, 03:39 PM
آخر رد: Hammam Khalfi
  تعديل ترتيب أرقام الصفحات تصاعدياً مصمم هاوي 3 845 13-07-22, 03:20 AM
آخر رد: مصمم هاوي
  [سؤال] كيفية عمل group على اكثر من متغير ف تقرير active report 2 aboezzat84 1 847 12-02-22, 11:00 PM
آخر رد: Taha Okla
  [vb6.0] كيفية قلب نص TextBox من اليمين إلى اليسار أبو خالد الشكري 6 1,446 25-12-21, 07:54 PM
آخر رد: أبو خالد الشكري
  [vb6.0] سؤال مهم : كيفية عمل progress bar يتحرك فعليا مع تنفيذ العمليات التي يتم اجراؤها hamada salah90 2 1,325 22-12-21, 07:50 PM
آخر رد: hamada salah90
  [VB.NET] طلب مجموعة اكود لإنشاء مجلد جديد ، وحفظ صور بداخله Hassan.syria 0 983 17-12-21, 07:58 PM
آخر رد: Hassan.syria
  [vb6.0] كيفية تغيير خاصية Style للCommandButton في زمن التنفيذ ياسر عبد الكريم 0 921 16-11-20, 09:00 PM
آخر رد: ياسر عبد الكريم

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


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