تقييم الموضوع :
  • 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 أو لا
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية قراءة البرنامج في جهاز آخر aridj 1 56 18-11-17, 08:53 PM
آخر رد: Amir_alzubidy
  حفظ مجموعة تكست بوكس فى قاعدة البيانات بضغطة حفظ واحدة المبرمج العتيق 6 167 28-10-17, 07:11 PM
آخر رد: المبرمج العتيق
  كيفية اضافة ملف للريسورس واستدعائها عند الحاجة bidaya 2 166 07-10-17, 01:18 PM
آخر رد: bidaya
  كيفية توجيه مربع نص إلى جدولين بإستخدام Adodc المبرمج العتيق 1 116 12-09-17, 03:28 PM
آخر رد: عبد العزيز البسكري
  [سؤال] كيفية عرض نص موجود على الانترنت داخل اداة مربع نص (الحصول على بيانات من صفحة ويب) Mohamad Anan 10 423 10-09-17, 11:54 PM
آخر رد: Mohamad Anan
  [كورس] استفسار عن كيفية عمل نموزج لفاتورة المبيعات المبرمج العتيق 4 216 31-08-17, 10:35 AM
آخر رد: Ahmed_Mansoor
  توليد أرقام عشوائية dr.mostashar 1 96 14-07-17, 11:57 AM
آخر رد: Amir_alzubidy
Photo كيفية فتح ملف في قاعدة البيانات khezzani 2 156 14-07-17, 01:52 AM
آخر رد: khezzani
  كيفية اتصال قاعدة البيانات بالانترنت عن طريق google drive HaniLeo 18 659 08-07-17, 12:31 PM
آخر رد: Ahmed_Mansoor
  [مثال] كيفية وضع ايقونة للبرنامج بجوار الساعة أبوسعود 2 211 08-07-17, 02:14 AM
آخر رد: أبوسعود

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


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