تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
التاكد من ان الاداة تم رسمها على الفورم
#11
مشاركة alarb
شكراً شكر هذه المشاركة
أعجبني معجب بهذه المشاركة
الرد }}}
تم الشكر بواسطة:
#12
sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته

طيب أخي جرب الكود التالي

كود :
[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
جارى البحث المشدد ودراسة الموضوع بدقة
الرد }}}
تم الشكر بواسطة:
#13
Application.DoEvents

تقوم بعمل الحدث بدون تعليق للبرنامج أي عمل باقي الاحداث بشكل طبيعي مثلآ لو كان هناك عبارة 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
الرد }}}
تم الشكر بواسطة:
#14
ايه الدلع ده ايوه كده هوه ده الكلام انا كنت متاكد ان فيه حل ههههه
كنت بكره اى تكرار
الان اصبحت احب كل التكرررات ههههه
جزاك الله خيرا وجعله فى موازين حسناتك
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] مشكلة في شكل الفورم abuyazan 5 293 27-02-24, 09:38 PM
آخر رد: aljzazy
  [VB.NET] مشكلة ظهور textbox بعد حذفه من الفورم مبرمج صغير 1 1 221 27-01-24, 02:04 AM
آخر رد: مبرمج صغير 1
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 271 29-12-23, 10:44 PM
آخر رد: Kamil
  التحكم فى عرض طريقة التاريخ فى الاداة datetimepicker Ahmed.vb 3 508 08-11-23, 01:27 AM
آخر رد: الحزين اليماني
  كيفية التحكم فى حجم الفورم من خلال الكود Ahmed.vb 4 510 11-10-23, 07:17 PM
آخر رد: bidaya
  [VB.NET] حفظ الفورم (Form) (البرنامج) بعد التغيير visualist2015 6 6,359 29-09-23, 03:09 AM
آخر رد: Taha Okla
Photo [سؤال] كيف أقوم بإجبار التطبيق (الفورم) على حفظ الملف المستعاد من قاعدة البيانات SQL server salam82 3 456 20-09-23, 01:42 PM
آخر رد: salam82
  [VB.NET] نسخ الصور من الفورم الى الوورد صبيح 1 305 17-08-23, 03:03 PM
آخر رد: تركي الحلواني
  [VB.NET] احتاج كود يغلق جميع الفورم ويبقي فقط الفورم Home Ali_hassn 4 545 15-08-23, 06:43 PM
آخر رد: Alexander Max2
  كود للتغيير في تصميم الفورم Emam emam 2 430 15-07-23, 07:35 PM
آخر رد: Emam emam

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم