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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 13 2,376 21-05-18, 01:41 AM
آخر رد: abdelkader
  [vb6.0] كيفية تحول النص الى دالة رياضية NEW _MAN 4 309 07-04-18, 12:28 PM
آخر رد: Mohamad Anan
  [vb6.0] كيفية عمل قاموس ناطق بالفرنسية فى الفجوال بيسك 6.0 ahmedngah36 0 114 03-03-18, 08:02 PM
آخر رد: ahmedngah36
  [سؤال] اضافة مجموعة على الداتا amro_demon 4 95 13-02-18, 01:46 PM
آخر رد: amro_demon
  عمل مجموعة أرقام اسلام الكبابى 6 118 23-01-18, 06:52 PM
آخر رد: اسلام الكبابى
  كيفية استعمال هذا الفنكشن bidaya 2 165 08-01-18, 04:22 PM
آخر رد: bidaya
  كيفية انشاء مجلد في المسار التالي bidaya 15 502 04-01-18, 01:33 AM
آخر رد: eiocm
  كيفية قراءة البرنامج في جهاز آخر aridj 1 141 18-11-17, 08:53 PM
آخر رد: Amir_Alzubidy
  حفظ مجموعة تكست بوكس فى قاعدة البيانات بضغطة حفظ واحدة المبرمج العتيق 6 289 28-10-17, 07:11 PM
آخر رد: المبرمج العتيق
  كيفية اضافة ملف للريسورس واستدعائها عند الحاجة bidaya 2 282 07-10-17, 01:18 PM
آخر رد: bidaya

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


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