اضافة الحدث بعض اضافة الاداة برمجيا

الحل بسيط جدا ولكن ركز جيدا

الكود القديم

Dim Button10 As New Button()
Button10.Text = "Message Box"
Button10.Location = New Point(0, 89)
Me.Controls.Add(Button10)
AddHandler Button10.Click, New EventHandler(AddressOf Button10)

الكود بعد التعديل

 

Public Class Form1
	Friend WithEvents Button10 As Button
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Button10 = New Button
		Button10.Text = "Message Box"
		Button10.Location = New Point(0, 89)
		Me.Controls.Add(Button10)

	End Sub
	Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
		MsgBox("Clicked")
	End Sub
End Class

وإذا كان لديك أي إستفسار أنا مستعد

شكرررررررررا كتير

بس في عندس سوالين

1-كل اشي تمام بس بعد ما اضغط الزر الى انضاف ما يطلع المسج بوكس

2- ممكن اعرف ليش استخدمت التعريف friend بدلا من dim أو public

يعيني ممكن يسير ولا مش ممكن انو نضيف لالداة برمجيا و نضيف حدث ويتنفذ

أسف على التأخير

اقتباس

2- ممكن اعرف ليش استخدمت التعريف friend بدلا من dim أو public

لا يمكن كتباة الكلمة Dim

في مكان عام

لا وجد فرق كبير عند إستعمال كلمة

Friend

أو كلمة

Public

اقتباس

1-كل اشي تمام بس بعد ما اضغط الزر الى انضاف ما يطلع المسج بوكس

أرفق المشروع في المرفقات

وسأحله لك

أخي crazy Programm2007er يبدو أن الكود

اقتباس

الكود بعد التعديل

Public Class Form1
	Friend WithEvents Button10 As Button
	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Button10 = New Button
		Button10.Text = "Message Box"
		Button10.Location = New Point(0, 89)
		Me.Controls.Add(Button10)

	End Sub
	Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
		MsgBox("Clicked")
	End Sub
End Class

سيعطي خطأ في Handles Button10.click لأن الزر Button10 غير موجود ...

و أخي Lana2008 سيكون الكود التعديل

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

		Dim Button10 As New Button()
		Button10.Text = "Message Box"
		Button10.Location = New Point(0, 89)
		Me.Controls.Add(Button10)
		AddHandler Button10.Click, New EventHandler(AddressOf Button10_Click)

	End Sub

	Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

		MsgBox("I did it")

	End Sub