Admin Admin
المساهمات : 188 تاريخ التسجيل : 03/04/2008
| موضوع: :For ….. next example الجمعة يوليو 25, 2008 3:50 am | |
| المشروع فى هيئة label 3,text 2,combo 1 من سنة كذا لسنة كذا فى داخل ال combo 1 تضع الكود الأتى "Combo1.additem"1900 "1901" بس كدة أحنا هنضيف 200 سطر ولتفادى ذلك نستخدم الأمر الأتى Dim c as integer For c = 1900 to 2100 Combo1.additem c Next c الكود دة فى ال form | |
|