[COLOR=#000000]
[/COLOR][color=#0000FF]Private Sub [/color][color=#000000]Button1_Click([/color][color=#0000FF]ByVal [/color][color=#000000]sender [/color][color=#0000FF]As [/color][color=#000000]System.[/color][color=#2B91AF]Object[/color][color=#000000], [/color][color=#0000FF]ByVal [/color][color=#000000]e [/color][color=#0000FF]As [/color][color=#000000]System.[/color][color=#2B91AF]EventArgs[/color][color=#000000]) [/color][color=#0000FF]Handles [/color][COLOR=#000000]Button1.Click
[/COLOR][color=#0000FF]Dim [/color][color=#000000]lbl(100) [/color][color=#0000FF]As [/color][COLOR=#2B91AF]Label
[/COLOR][color=#0000FF]Dim [/color][color=#000000]n [/color][color=#0000FF]As Short [/color][COLOR=#000000]= 0
[/COLOR][color=#0000FF]For [/color][color=#000000]i [/color][color=#0000FF]As Short [/color][color=#000000]= 0 [/color][color=#0000FF]To [/color][COLOR=#000000]100
lbl(i) = [/COLOR][color=#0000FF]New [/color][COLOR=#2B91AF]Label
[/COLOR][color=#000000]lbl(i).Text = [/color][color=#A31515]"Label" [/color][COLOR=#000000]& i
lbl(i).Visible = [/COLOR][COLOR=#0000FF]True
[/COLOR][color=#000000]lbl(i).Location = [/color][color=#0000FF]New [/color][color=#2B91AF]Point[/color][COLOR=#000000](i + 10, i * 10)
[/COLOR][color=#0000FF]Me[/color][COLOR=#000000].Controls.Add(lbl(i))
lbl(i).BringToFront()
n = i
[/COLOR][COLOR=#ff0000] Application.DoEvents()
[/COLOR] [COLOR=#0000FF]Next
[/COLOR][color=#000000]MsgBox([/color][color=#A31515]"تم اضافة " [/color][color=#000000]& n & [/color][color=#A31515]"اداة"[/color][COLOR=#000000])
[/COLOR][COLOR=#0000FF]End Sub
[/COLOR]
جزاك الله خيرا اخى وحبيبى الغالى
ارجو منك توضبح حول هذه الدالة المحددة بالون الاحمر
MSDOS كتب :طريقة ترتيب الإضافة أن اللأداة المضافة تأتي تحت الأولى، لهذا لم تراها ولكنها موجودة،
والموضوع ما يحتاج Me.Refresh ولا Application.DoEvents لأنها أداة أي Object وليست رسماً
ضع أمر lbl(i).BringToFront بعد الإضافة لتجعلها فوق الأدوات لتراها،
ومن باب الزيادة غير لون خلفية الأداة المضافة lbl(i).BackColor بلون مختلف عن لون خلفية الفورم.
من غير المعقول أن ينتهي الصب قبل إجراء حلقة التكرار، لأن تنفيذ البرمجة هو منطقي أي حسب تستسل الأمر، مسألة تعدد المهام باستخدام Threading بشكلل الخاص أو باستخدام BackgroundWorker شيء آخر.
استنى بس ده انتا كده فتحت عليا با ما كنت اعرف عنه شئ
انا لسه متعرف على BackgroundWorker والان لسه فى كمات Threading
جارى البحث المشدد ودراسة الموضوع بدقة
تقوم بعمل الحدث بدون تعليق للبرنامج أي عمل باقي الاحداث بشكل طبيعي مثلآ لو كان هناك عبارة Do تعمل بشكل مستمر وجربت تخرج من البرنامج راح تلاحظ البرنامج ضل مفتوح مع انه اختفى!لكن لو وضعت Application.DoEvents راح يخرج عادي
شوف هذه الاكواد والفرق بينهما
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 0 To 10000
ListBox1.Items.Add(i)
Next
End Sub
وهذا
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 0 To 10000
ListBox1.Items.Add(i)
Application.DoEvents()
Next
End Sub
ايه الدلع ده ايوه كده هوه ده الكلام انا كنت متاكد ان فيه حل ههههه
كنت بكره اى تكرار
الان اصبحت احب كل التكرررات ههههه
جزاك الله خيرا وجعله فى موازين حسناتك
