السلام عليكم ورحمة الله وبركاته
أخي الكريم
مائة حلقة تكرارية وعديناها ... يمكن في ببالك حاجة وحابب تعملها
أما مائة أداة ListBox :confused: هذي اللي ما انبلعت معي أبدا :mad:
ههههههههههه
ولأ كل هذا الجهد وفي النهاية ما تضيف إلا القيمة الأخيرة من الحلقات التكرارية :eek:
المهم تفضل هذا اختصار للكود بس إذا حصل شيء لجهازك ترى أنا أخلي كامل مسئوليتي
بالتوفيق
أخي الكريم
مائة حلقة تكرارية وعديناها ... يمكن في ببالك حاجة وحابب تعملها

أما مائة أداة ListBox :confused: هذي اللي ما انبلعت معي أبدا :mad:
ههههههههههه
ولأ كل هذا الجهد وفي النهاية ما تضيف إلا القيمة الأخيرة من الحلقات التكرارية :eek:

المهم تفضل هذا اختصار للكود بس إذا حصل شيء لجهازك ترى أنا أخلي كامل مسئوليتي

كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
For X1 As Integer = 0 To 100
If X1 = 100 Then
L1.Items.Add(X1)
End If
If X1 + 100 = 200 Then
L2.Items.Add(X1 + 100)
End If
If X1 + 200 = 300 Then
L3.Items.Add(X1 + 200)
End If
If X1 + 300 = 400 Then
L4.Items.Add(X1 + 300)
End If
If X1 + 400 = 500 Then
L5.Items.Add(X1 + 400)
End If
.
.
.
.
.
.
If X1 + 9900 = 10000 Then
L100.Items.Add(X1 + 9900)
End If
Next
'هنا لسان حال الجهاز يقول أوووووف أخيرا خلصت
End Subبالتوفيق

