[faridfarid]

أريد كود توليد مجموعة أرقام  من 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 x = Val(Text1.Text) To 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]

السلام عليكم
اخي الحبيب للامانة العلمية هذا كود من كتابة الاستاذ ابو الليث الله يحفظه بالخير
اما بالنسبة لموضوع ثقل او بطؤ العملية ربما يعود الى امور ربما سرعة الجهاز
والرامات
تحياتي لك

  list.rar (الحجم : 1.41 ك ب / التحميلات : 69)

[Fantastico]

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

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