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

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

dim withevents lbl as new lablel

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

السلام عليكم

استخدم الكلمة المحجوزة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

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

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

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

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

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

اقتباس

بالنسبة للحل الأولاني انا اصلا جربته ومازبط معايا والخطأ انه كتابة كلمة 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

بالتوفيق

اقتباس

بالنسبة للحل الأولاني انا اصلا جربته ومازبط معايا والخطأ انه كتابة كلمة 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

بالتوفيق

اقتباس

بالنسبة للحل الأولاني انا اصلا جربته ومازبط معايا والخطأ انه كتابة كلمة 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

بالتوفيق