[A7medNI]

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

كيف اضيف حدث لاي اداة اريدها . مثلا في حالتي اريد ان اضيف حدث ( امر ) 
لل 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

موفقين

[A7medNI]

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

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