تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] انشاء ازرار مع تعيين حدث النقر لكل زر
#1
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim pt As Point = New Point(10, 10)
       For i As Integer = 0 To 5
           Dim btn As Button = New Button
           With btn
               btn.Location = pt
               btn.Text = "button" & (i + 1).ToString
               ' إضبط خصائص الباتون كيفما شئت
           End With
           ' هنا يتم ضبط مكان كل باتون
           pt.Y += btn.Height + 1
           Me.Controls.Add(btn)
       Next

       ' هنا نضيف الحدث لكل باتون
       For Each b As Button In Me.Controls
           AddHandler b.Click, AddressOf Btn_Click
       Next

   End Sub

   Private Sub Btn_Click(sender As Object, e As EventArgs)
       ' اكتب ما تريده في الحدث
       ' هنا نختار الباتون بناء علي التكست الخاص به
       ' ثم نحدد ما يجب أن يحدث عند الضغط علي الباتون
       Dim b As Button = CType(sender, Button)
       Select Case b.Text
           Case "button1"
               Me.Close()
           Case "button2"
               Me.BackColor = Color.Blue
           Case "button3"
               Me.Text = "any text"
           Case "button4"

           Case "button5"

           Case "button6"

       End Select

   End Sub
الكود يقوم بانشاء ازرار مع تعيين حدث النقر لكل زر
المشكلة انه اذا اظفنا اداة اخرى على الفورم  مثل بيكتر بوكس او واب براوزر   يقع مشكل ولا يفتح الفورم
الرد }}}
تم الشكر بواسطة: sherf , asemshahen5
#2
(25-02-17, 06:15 PM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
ضع رسالة الخطأ لنتمكن من مساعدتك

تفظل الصورة عند اضافة كنترول اخر للفورم


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#3
(25-02-17, 06:36 PM)khodor1985 كتب : أرفق المشروع لو سمحت للتعديل عليه

حسب ما فهمت من رسالة الخطأ أن المشكلة في إضافة الأزرار إلى WebBrowser Control.

لازم شوف المشروع المعطيات ناقصة

تفظل اخي


الملفات المرفقة
.rar   اضافة ازرار.rar (الحجم : 87.08 ك ب / التحميلات : 116)
الرد }}}
تم الشكر بواسطة:
#4
السلام عليكم

المشروع لم يعمل لديك لاختلاف الاصدار

ولكن بالنظر للكود، اتضح أنك تقرأ جميع الأدوات Controls التي في الفورم Me وتعتبرها Button، وهنا سيظهر خطأ عندما يصادف أي أداة ليست Button

هذا تعديل لطريقة انتقاء أداة Button فقط من مجموعة أدوات Controls التي في الفورم Me
كود :
' هنا نضيف الحدث لكل باتون
For Each b As Button In Me.Controls.OfType(Of Button)
الرد }}}
تم الشكر بواسطة: bidaya
#5
(25-02-17, 08:22 PM)مساعدة كتب : السلام عليكم

المشروع لم يعمل لديك لاختلاف الاصدار

ولكن بالنظر للكود، اتضح أنك تقرأ جميع الأدوات Controls التي في الفورم Me وتعتبرها Button، وهنا سيظهر خطأ عندما يصادف أي أداة ليست Button

هذا تعديل لطريقة انتقاء أداة Button فقط من مجموعة أدوات Controls التي في الفورم Me
كود :
' هنا نضيف الحدث لكل باتون
For Each b As Button In Me.Controls.OfType(Of Button)

الله يبارك فيك اخي اجابة في منتهى الروعة والدقة شرح جميل
الله يجعل ايامك كلها جمال
الله يرضى عليك

(25-02-17, 07:25 PM)khodor1985 كتب : لقد تم التعديل على المشروع بناء لطلبك :


أتمنى لك التوفيق

الف الف شكر لك اخي
وساعمل بنصيحتك
ساصبر حتي يكره الصب صبري  ههههههههههه
شكرا لك ربنا يرضى عليك ويهنيك
الرد }}}
تم الشكر بواسطة:
#6
(25-02-17, 04:27 PM)bidaya كتب :
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim pt As Point = New Point(10, 10)
       For i As Integer = 0 To 5
           Dim btn As Button = New Button
           With btn
               btn.Location = pt
               btn.Text = "button" & (i + 1).ToString
               ' إضبط خصائص الباتون كيفما شئت
           End With
           ' هنا يتم ضبط مكان كل باتون
           pt.Y += btn.Height + 1
           Me.Controls.Add(btn)
       Next

       ' هنا نضيف الحدث لكل باتون
       For Each b As Button In Me.Controls
           AddHandler b.Click, AddressOf Btn_Click
       Next

   End Sub

   Private Sub Btn_Click(sender As Object, e As EventArgs)
       ' اكتب ما تريده في الحدث
       ' هنا نختار الباتون بناء علي التكست الخاص به
       ' ثم نحدد ما يجب أن يحدث عند الضغط علي الباتون
       Dim b As Button = CType(sender, Button)
       Select Case b.Text
           Case "button1"
               Me.Close()
           Case "button2"
               Me.BackColor = Color.Blue
           Case "button3"
               Me.Text = "any text"
           Case "button4"

           Case "button5"

           Case "button6"

       End Select

   End Sub
الكود يقوم بانشاء ازرار مع تعيين حدث النقر لكل زر
المشكلة انه اذا اظفنا اداة اخرى على الفورم  مثل بيكتر بوكس او واب براوزر   يقع مشكل ولا يفتح الفورم

انشاء فورم مع زار وتعيين الحدث لفورم المنشاء
وشكرا لكم
الرد }}}
تم الشكر بواسطة:
#7
(25-02-17, 06:31 PM)bidaya كتب :
(25-02-17, 06:15 PM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
ضع رسالة الخطأ لنتمكن من مساعدتك


حذف مافى الفؤرمه مثل الكائن WebBrowser1

تفظل الصورة عند اضافة كنترول اخر للفورم
الرد }}}
تم الشكر بواسطة:
#8
هل يوجد كود بعد انشاء ازرار بالكود تعين مثل تغير الاسم او اخفاء ازرار اوتعين حدث له
الرد }}}
تم الشكر بواسطة:
#9
(24-11-20, 06:04 PM)sherf كتب : هل يوجد كود بعد انشاء ازرار بالكود تعين مثل تغير الاسم او اخفاء ازرار اوتعين حدث له

وضح اخي ما تريد عمله بعد انشاء الازرار بالكود 

في المشاركات اعلى طريقة تغير الخصائص وكذلك تعيين حدث له
الرد }}}
تم الشكر بواسطة:



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


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