[love_hell]

بما انك تجيد التعامل مع  For  ...... next  فانت عارف ان الجملة دي لتكرار امر معين لعدد  معلوم  من المرات

اما بالنسبة ل  For each  فهنا هي هتكرر امر معين بناء على عدد العناصر الي في ليسته  كمثال

هفرض ان فيه combox وفيه عدد من العناصر وعايزه يطلعلى العناصر دي في textbox  وكل عنصر في سطر الامر هيكون كالتالي

كود :

For Each item In ComboBox1.Items
TextBox1.Text = TextBox1.Text + item & vbCrLf
       Next

اغلب استخدامها بيكون اثناء استخراج داتا من جداول قاعدة البيانات

اما بالنسبة لان الاولى تحل محل الاخيرة فالاجابة  ممكن  بس لا احبذ هذا وكمثال 

     

كود :

  For r = 0 To ComboBox1.Items.Count - 1
            TextBox1.Text = TextBox1.Text + ComboBox1.Items(r) & vbCrLf
        Next

نفس الامر السابق بس for -----  next