أختي العزيزة
1. Dim colors() As String = _
{"Red", "Green", "Blue"}
هنا تعرفين مصفوفة من نوع سترنج فيها 3 قيم
2. Dim i as integre
تعرفين متغير من نوع عدد صحيح
For i = 0 To UBound(colors)
لا أعلم اسمه بالعربي ولكن ما يعمل أنه ينفذ الأمر على كل العناصر الموجودة في المصفوفة المعرفة فوق
أي انه أن الأموامر بعد هذا السطر الى
Next
سيتم تنفيذها 3 مرات وذلك لأن المصفوفة فيها 3 عناصر
طبعا الدالة UBound هي التي تحسب عدد العناصر في المصفوفة
وكما يبدو لي فإن النتيجة هي تغيير لون النص في عند ضغطك على زر button_1
ولست متأكدا اذا كان هذا هو ما يفعله الكود في اللوب
للأسف الشديد أختى العزيزة أنا لا أعرف فيجوال بيسك ولم أبرمج بها من 10 سنين وقد برمجت وقتها كما اذكر برامج بسيطة جدا للتسلية مثل آلة حاسبة ووو
الدالة الثانية تبدوا لي من الوهلة الأولى نفس الدالة الأولى
وأتمنى لك التوفيق
آخر تعديل بواسطة pal_12 ، 19-05-2011 الساعة 05:51 PM.
|
النمط التشعبي
