+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : كيفية توليد مجموعة أرقام (/showthread.php?tid=14985)
كيفية توليد مجموعة أرقام - faridfarid - 04-03-16
أريد كود توليد مجموعة أرقام من 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
لكن البرنامج يصبح ثقيل
هل من حل
RE: كيفية توليد مجموعة أرقام - Amir_Alzubidy - 04-03-16
السلام عليكم
اخي الحبيب للامانة العلمية هذا كود من كتابة الاستاذ ابو الليث الله يحفظه بالخير
اما بالنسبة لموضوع ثقل او بطؤ العملية ربما يعود الى امور ربما سرعة الجهاز
والرامات
تحياتي لك
[attachment=9683]
RE: كيفية توليد مجموعة أرقام - Fantastico - 04-03-16
لإضافة عناصر الى القائمة دفعة واحدة من دون ان تسبب تباطئ في البرنامج
إستخدم الأمر ListBox1.BeginUpdate قبل الشروع بالإضافة
وبعد اكمال اضافة العناصر كلها استخدم الأمر ListBox1.EndUpdate ليتم تحديثها مرة واحدة
هذه الطريقة تعمل على vb.net ولست متأكدا من عملها على vb6.0 أو لا