تقييم الموضوع :
  • 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 ك ب / التحميلات : 25)
" لا حول و لا قوة الا بالله "


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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اضافة ملف للريسورس واستدعائها عند الحاجة bidaya 2 135 07-10-17, 01:18 PM
آخر رد: bidaya
  كيفية توجيه مربع نص إلى جدولين بإستخدام Adodc المبرمج العتيق 1 78 12-09-17, 03:28 PM
آخر رد: عبد العزيز البسكري
  [سؤال] كيفية عرض نص موجود على الانترنت داخل اداة مربع نص (الحصول على بيانات من صفحة ويب) Mohamad Anan 10 351 10-09-17, 11:54 PM
آخر رد: Mohamad Anan
  [كورس] استفسار عن كيفية عمل نموزج لفاتورة المبيعات المبرمج العتيق 4 159 31-08-17, 10:35 AM
آخر رد: Ahmed_Mansoor
  توليد أرقام عشوائية dr.mostashar 1 87 14-07-17, 11:57 AM
آخر رد: Amir_alzubidy
Photo كيفية فتح ملف في قاعدة البيانات khezzani 2 127 14-07-17, 01:52 AM
آخر رد: khezzani
  كيفية اتصال قاعدة البيانات بالانترنت عن طريق google drive HaniLeo 18 568 08-07-17, 12:31 PM
آخر رد: Ahmed_Mansoor
  [مثال] كيفية وضع ايقونة للبرنامج بجوار الساعة أبوسعود 2 174 08-07-17, 02:14 AM
آخر رد: أبوسعود
  كيفية الحصول على رقم ال hard disk لمنع سرقة البرنامج مبرمج مصرى 3 149 04-07-17, 12:46 AM
آخر رد: Ahmed_Mansoor
Question [سؤال] كيفية استخدام أداة WebBrowser ahmed101 5 2,190 17-06-17, 08:04 AM
آخر رد: lval6402@gmail.com

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


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