اضافة ادوات الى النموذج وقت التشغيل

السلام عليكم

الموضوع بسيط جداً عند تعريف العنصر إستخدم الكلمة WithEvents بهذا الشكل

Dim WithEvents b As New Button

السبب في إستخدام الكلمة WithEvents لكي يتمكن الزر الذي إنشأته من إستخدم إجراء أو حدث ما مثلاً الضغط على الزر

سيكون بهذا الشكل

  Private Sub btnCall_Click(ByVal sender As Object, ByVal e As EventArgs) Handles b.Click
        MsgBox("I have Events At run time")
    End Sub

هذه كل الحكاية . والله أعلم

شكرا اخي الله يعطيك العافية ...كنت محتاجة لهاي المعلومة لبخلي كنت احب اختصر شغلي

على فورم واحد واتلاعب بأضهار الأدوات واخفائها والتحكم في اماكنها وخصائصها مما

يجعل المستخدم يضن انة يتعامل مع اكثر من فورم وهو فقط يتعامل مع فورم واحد

بشكرك