• 0
Romantic_touch

سؤال: اضافة حدث لكنترول انشئ برمجيا

سؤال

قمت بانشاء label و textbox برمجيا

عن طريق الكود التالي

dim lbl as new label()
lbl.name = "testlabel"
me.controls.add(lbl)

المطلوب الان كيف اضيف حدث لهذا الكنترول؟؟ مثل لو ضغط عليه مرة او مرتين ؟؟

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

6 إجابة على هذا السؤال .

  • 0

يجب أن تعرفه بالصورة التالية:

dim withevents lbl as new lablel

ثم بعد ذلك تقوم بعمل handler له

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

استخدم الكلمة المحجوزةWithEvents عند التعريف

Dim WithEvents lbl As Label = New Label

وهكذا يتم تعريف الكائن بجميع احداثه

او يمكنك استخدام الكلمة المحجوزة AddHandler فى اصطياد الحدث :D

Dim lbl As Label = New Label

       AddHandler lbl.Click, AddressOf lblEvent
       Me.Controls.Add(lbl)
   
   Private Sub lblEvent(ByVal sender As Object, ByVal e As EventArgs)
       MsgBox("click")
   End Sub

تم تعديل بواسطه SOLO.NET
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

يعطيكم العافية

ماقصرتو والله

بالنسبة للحل الأولاني انا اصلا جربته ومازبط معايا والخطأ انه كتابة كلمة withevents مابتتعرف local

وجربت الطريقة الثانية وشغالة 100%

الف شكر حبايبي

تم تعديل بواسطه Romantic_touch
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
بالنسبة للحل الأولاني انا اصلا جربته ومازبط معايا والخطأ انه كتابة كلمة withevents مابتتعرف local

المفروض الا يتم تعريف الكنترول محليا فكيف ستصل اليها من الاجراءات الاخرى

واذا كنت تريد انشاءها فى لحظة معينة فى التطبيق عرف المتغير فقط على مستوى الفورم وقم بانشاء كائن يشير اليه فى اى وقت تريد

وهكذا يصبح ممكن الوصول اليه من اى اجراء داخل الفورم

Public Class Form1
   Dim WithEvents txt As TextBox
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       txt = New TextBox
       Me.Controls.Add(txt)
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       MsgBox(txt.Text)
   End Sub
End Class

لو تم تعريف وانشاء الكنترول بداخل الاجراءButton1_Click لما تمكنت من الوصول اليه من خلال الاجراءButton2_Click

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
بالنسبة للحل الأولاني انا اصلا جربته ومازبط معايا والخطأ انه كتابة كلمة withevents مابتتعرف local

المفروض الا يتم تعريف الكنترول محليا فكيف ستصل اليها من الاجراءات الاخرى

واذا كنت تريد انشاءها فى لحظة معينة فى التطبيق عرف المتغير فقط على مستوى الفورم وقم بانشاء كائن يشير اليه فى اى وقت تريد

وهكذا يصبح ممكن الوصول اليه من اى اجراء داخل الفورم

Public Class Form1
   Dim WithEvents txt As TextBox
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       txt = New TextBox
       Me.Controls.Add(txt)
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       MsgBox(txt.Text)
   End Sub
End Class

لو تم تعريف وانشاء الكنترول بداخل الاجراءButton1_Click لما تمكنت من الوصول اليه من خلال الاجراءButton2_Click

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
بالنسبة للحل الأولاني انا اصلا جربته ومازبط معايا والخطأ انه كتابة كلمة withevents مابتتعرف local

المفروض الا يتم تعريف الكنترول محليا فكيف ستصل اليها من الاجراءات الاخرى

واذا كنت تريد انشاءها فى لحظة معينة فى التطبيق عرف المتغير فقط على مستوى الفورم وقم بانشاء كائن يشير اليه فى اى وقت تريد

وهكذا يصبح ممكن الوصول اليه من اى اجراء داخل الفورم

Public Class Form1
   Dim WithEvents txt As TextBox
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       txt = New TextBox
       Me.Controls.Add(txt)
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       MsgBox(txt.Text)
   End Sub
End Class

لو تم تعريف وانشاء الكنترول بداخل الاجراءButton1_Click لما تمكنت من الوصول اليه من خلال الاجراءButton2_Click

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .