منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب كود اضافة اداة عند الضغط على زر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لو سمحتوا ان اعمل على برنامج منبة واريد ان يقوم المستخدم بوضع ما يشاء من مواقيت التنبية وسينشئها من خلال زر عند الضغط علية
ارجوا اجابتى سريعا وشكرا مقدما
uuuuuuuuuuuuuuuuuuuuupppppppppppp
كود :
Dim btn As New Button
btn.Name = "btn"
btn.Text = "My Button"
btn.Visible = True
Me.Controls.Add(btn)
الف شكر لك اخى
ولكن لو سمحت هناك شئ بسيط
الكود لا يعمل ا مرة واحدة يعنى يضيف زر مرة واحدة فقط
وانا اريد امكانية اضافة اكثر من زر للكود
كود :
For X As Short = 1 To 10
            Dim btn As New Button
            btn.Name = "btn" & X
            btn.Text = "btn" & X
            btn.Location = New Point(btn.Location.X, (btn.Height * X) - btn.Height)
            Me.Controls.Add(btn)
        Next
السلام عليكم

لا تجرم في حق نفسك واستخدم List، الأدوات فقط لعرض البيانات، استخدم أداة ListView للعرض

مثلا مواعيد التنبيه تعرفها عامة

Dim Times As New List(Of Date)

للإضافة

Times.Add(New Date(الوقت والتاريخ))
أبو يعقوب كتب :السلام عليكم

لا تجرم في حق نفسك واستخدم List، الأدوات فقط لعرض البيانات، استخدم أداة ListView للعرض

مثلا مواعيد التنبيه تعرفها عامة

Dim Times As New List(Of Date)

للإضافة

Times.Add(New Date(الوقت والتاريخ))

السلام عليكم ورحمة الله وبركاته
هذه الكلمة حسيت فعلا انها موجها لى
كنت اعمل فى مشروع وعقدت على نفسى بعض الامور ولما قرءات هذه الكلمة هونت الامر على نفسى هههههه
جزاك الله خير وبارك لك فى وقتك واهلك ومالك
إقتباس :السلام عليكم ورحمة الله وبركاته
هذه الكلمة حسيت فعلا انها موجها لى
كنت اعمل فى مشروع وعقدت على نفسى بعض الامور ولما قرءات هذه الكلمة هونت الامر على نفسى هههههه
جزاك الله خير وبارك لك فى وقتك واهلك ومالك

خذها قاعدة أخي، إذ أحسست بأن المشروع بدأ يتعقد فاعلم انك في الطريق الخاطئ

كثيرا ما أقوم بإعادة مشاريع بسبب الهندسة السيئة