تقييم الموضوع :
  • 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 ك ب / التحميلات : 14)
سأعود قريباً ان شاء الله

الرد }}}}
#3
لإضافة عناصر الى القائمة دفعة واحدة من دون ان تسبب تباطئ في البرنامج
إستخدم الأمر ListBox1.BeginUpdate قبل الشروع بالإضافة
وبعد اكمال اضافة العناصر كلها استخدم الأمر ListBox1.EndUpdate ليتم تحديثها مرة واحدة

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اظهار التاريخ الهجري في البرنامج allobaed 5 95 29-11-16, 02:20 PM
آخر رد: allobaed
  كيفية اضافة قائمة علوية لبرنامجي bidaya 2 59 28-11-16, 01:33 AM
آخر رد: bidaya
  كيفية استعادة سجل بعد حذفة haiderkh 1 80 03-11-16, 11:10 AM
آخر رد: أبوبكر سويدان
Exclamation [سؤال] كيفية تحديث بيانات جدول داخل قاعدة بيانات sql 2000 engabuhema 6 227 27-10-16, 11:28 AM
آخر رد: engabuhema
  [سؤال] كيف اعطل مجموعة من التكست بوكس او جميعها او اي اداة على الفورم allobaed 4 86 25-10-16, 03:48 PM
آخر رد: allobaed
  [vb6.0] كيف يمكن جعل مجموعة من التكست بوكس تعمل مثل الداتا قريد larbihamri 7 343 20-10-16, 10:02 PM
آخر رد: loghbil
  [vb6.0] سؤال فى داتا ريبورت عن كيفية طباعة سجل واحد فقط المبرمج العتيق 4 163 02-10-16, 12:53 AM
آخر رد: Ahmed_Mansoor
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 10 843 27-09-16, 12:13 AM
آخر رد: زياد مقداد
  كيفية ربط جداول مختلفة في نفس قاعدة البيانات زياد مقداد 2 164 26-09-16, 11:57 PM
آخر رد: زياد مقداد
  [سؤال] كيفية عمل تقرير يومي وشهري vb6 بقاعدة بيانات اكسسس abazrmhamed 1 151 31-08-16, 09:17 PM
آخر رد: Amir_alzubidy

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


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