تقييم الموضوع :
  • 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 أو لا
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تعديل مواصفات حقل فى جدول abosara 0 36 21-02-17, 04:23 AM
آخر رد: abosara
  كيفية نسخ محتويات الأداة List جورج190 2 79 14-02-17, 10:49 PM
آخر رد: جورج190
  [سؤال] عايز كيفية التعامل مع scanner ابو عيسى 0 40 12-02-17, 04:54 PM
آخر رد: ابو عيسى
  كيفية ضبط هذه المقارنة بشكل صحيح في تاريح عمر سالم 13 202 08-02-17, 02:36 PM
آخر رد: عمر سالم
  اريد مجموعة سعر الكمية امباعة بتاريخ محدد في هذا الكود عمر سالم 5 149 31-01-17, 01:18 PM
آخر رد: ahmedabdelaliem
  [vb6.0] السؤال فى كيفية اضافة مجموعة من الادوات على الفورم المبرمج العتيق 1 74 29-01-17, 01:54 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] طريقة جمع أو ضرب أرقام موجودة وسط نص فى التيكست بوكس copy77 11 271 27-01-17, 03:31 PM
آخر رد: copy77
  طلب بسيط نقل أرقام؟؟؟ KamelArab 2 117 10-12-16, 06:45 PM
آخر رد: sendbad100
Thumbs Down سؤال عن توليد خمس خانات من رقمين؟؟؟؟ KamelArab 7 249 09-12-16, 07:06 PM
آخر رد: KamelArab
  كيفية ربط قاعدة البيانات القوائم المنسدلة bidaya 12 363 05-12-16, 01:54 PM
آخر رد: bidaya

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


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