منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله وبركاتة

كيف اضيف حدث لاي اداة اريدها . مثلا في حالتي اريد ان اضيف حدث ( امر )
لل toolstripmenuitem علما اني قمت باضافة الاداة اثناء التشغيل ( في البرمجة )

هذا الكود الي اضفت به الاداة

سلام

المره القادمه لاتضع الكود على شكل صوره لتوفر علينا الوقت

كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    Dim mycon As New ContextMenuStrip

    Dim arr(2) As ToolStripMenuItem

    arr(0) = New ToolStripMenuItem("لص&ق")

    AddHandler arr(0).Click, AddressOf mnuPaste

    arr(1) = New ToolStripMenuItem("ن&سخ")

    AddHandler arr(1).Click, AddressOf mnuCopy

    arr(2) = New ToolStripMenuItem("ق&ص")

    AddHandler arr(2).Click, AddressOf mnuCut

    mycon.Items.AddRange(arr)

    TextBox1.ContextMenuStrip = mycon

End Sub

Private Sub mnuPaste()

    MsgBox("لصق")

End Sub

Private Sub mnuCopy()

    MsgBox("نسخ")

End Sub

Private Sub mnuCut()

    MsgBox("قص")

End Sub

موفقين

شكرا لك أخي على الرد القيم

الطريقة فعالة 100%

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

A7medNI

الطالب

A7medNI