22-05-13, 06:08 PM
asto كتب :السلام عليكماخي العزيز يمكنك عمل ذلك عن طريق عمل مصفوفة من التيكست بوكس والتي تدعى (Control Array) وعن طريق خاصية الIndex يمكنك الوصول الى اي تيكست بوكس تريد
المطلوب تحويل ال text1 ل texti
اي حرف الـ i هو متحول
يعني مثلا
عندما اعطيه امر ان ال i=1000
يعطي امر باظهار تكست 1000
و كل ذلك بسطر واحد عوضا عن الف سطر
ويمكنك عمل المصفوفة عن طريق اضافة تيكست بوكس للفورم ثم انسخ هذه التيكست بوكس واعمل لها لصق على نفس الصفحة ستظهر رسالة تسئلك بهل تريد عمل مصفوفة من هذه الادات فقط اجب بنعم في هذه الحالة سوف يكون لديك تيكس بوكس عدد 2 يحملون نفس الاسم ولكن يختلفون في الرقم الموجود بالخاصية Index وبتكرار هذه العملية تستطيع الحصول على مصفوفة من التيكست بوكس بالعدد الذي تريده وللوصول الى اي تيكست بوكس تريد ماعليك الى استدعائها بالطريقة التالية
كود :
dim I as integer
I=3
text(I).text="AAAA"