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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [مثال] كيفية وضع ايقونة للبرنامج بجوار الساعة أبوسعود 1 42 23-05-17, 12:15 PM
آخر رد: alma2
  [سؤال] كيفية اضافة استعلام وحفظه في قاعدة بيانات أبوسعود 4 100 17-05-17, 02:56 PM
آخر رد: أبوسعود
  [سؤال] كيفية انشاء حقل من نوع ترقيم تلقائي بالفيجول بيسك 6 أبوسعود 6 171 27-04-17, 09:46 PM
آخر رد: أبوسعود
  [vb6.0] سؤال فى داتا ريبورت عن كيفية طباعة سجل واحد فقط المبرمج العتيق 5 444 24-03-17, 06:06 PM
آخر رد: المبرمج العتيق
  [vb6.0] السؤال فى كيفية اضافة مجموعة من الادوات على الفورم المبرمج العتيق 2 162 24-03-17, 06:04 PM
آخر رد: المبرمج العتيق
  كيفية تعديل مواصفات حقل فى جدول abosara 0 103 21-02-17, 04:23 AM
آخر رد: abosara
  كيفية نسخ محتويات الأداة List الخير طهوري 2 165 14-02-17, 10:49 PM
آخر رد: الخير طهوري
  [سؤال] عايز كيفية التعامل مع scanner ابو عيسى 0 146 12-02-17, 04:54 PM
آخر رد: ابو عيسى
  كيفية ضبط هذه المقارنة بشكل صحيح في تاريح عمر سالم 13 307 08-02-17, 02:36 PM
آخر رد: عمر سالم
  اريد مجموعة سعر الكمية امباعة بتاريخ محدد في هذا الكود عمر سالم 5 255 31-01-17, 01:18 PM
آخر رد: ahmedabdelaliem

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


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