تقييم الموضوع :
  • 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
الكود يقوم بانشاء ازرار مع تعيين حدث النقر لكل زر
المشكلة انه اذا اظفنا اداة اخرى على الفورم  مثل بيكتر بوكس او واب براوزر   يقع مشكل ولا يفتح الفورم
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#2
(25-02-17, 06:15 PM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
ضع رسالة الخطأ لنتمكن من مساعدتك

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


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

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

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

تفظل اخي


الملفات المرفقة
.rar   اضافة ازرار.rar (الحجم : 87.08 ك ب / التحميلات : 32)
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:
#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 كتب : لقد تم التعديل على المشروع بناء لطلبك :


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

الف الف شكر لك اخي
وساعمل بنصيحتك
ساصبر حتي يكره الصب صبري  ههههههههههه
شكرا لك ربنا يرضى عليك ويهنيك
[صورة مرفقة: 000.gif]
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تم الحل : اضافة ازرار التنقل بين السجلات محمد خيري 5 197 26-04-19, 06:16 PM
آخر رد: elgokr
  [VB.NET] [تم الحل] كيفية انشاء صندوق نص و زر شفاف textbox & button الماجيك مسعد 4 289 09-04-19, 02:25 AM
آخر رد: بدري
Wink [سؤال] سؤال حول انشاء مجلد ونسخ ملفات الى هذا المجلد ahmadpal 2 156 18-03-19, 12:39 AM
آخر رد: ahmadpal
  انشاء فورم يظهر مرة واحدة عند البدء بالبرنامج العتيق 13 517 17-03-19, 01:58 PM
آخر رد: عبد العزيز البسكري
  اريد انشاء قاعدة بيانات سمير جمال 2 180 14-03-19, 04:29 AM
آخر رد: سمير جمال
  [VB.NET] انشاء فورم لتنبيهك بالقيمة الدنيا للمنتوج technomedia 0 149 03-03-19, 06:17 PM
آخر رد: technomedia
  اريد تغير اسماء ازرار MessageBox سمير جمال 1 188 20-02-19, 11:02 PM
آخر رد: asemshahen5
  [سؤال] عايز دورة انشاء برنامج مثل الهين والامبراطورية من فضلكم omarzerrouki 6 1,380 21-01-19, 06:15 PM
آخر رد: elgokr
  مساعدة فى انشاء تقرير atef_020 12 492 20-01-19, 06:46 PM
آخر رد: atef_020
Heart انشاء تقرير كريستال ريبورت ahmadpal 2 275 03-12-18, 05:54 PM
آخر رد: ahmadpal

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


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