منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال .. عمل حدث اثناء التشغيل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال .. عمل حدث اثناء التشغيل (/showthread.php?tid=12812)

سؤال .. عمل حدث اثناء التشغيل - A7medNI - 25-07-15

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

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

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





RE: سؤال .. عمل حدث اثناء التشغيل - الطالب - 25-07-15

سلام

المره القادمه لاتضع الكود على شكل صوره لتوفر علينا الوقت
كود :
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

موفقين

RE: سؤال .. عمل حدث اثناء التشغيل - A7medNI - 19-01-16

شكرا لك أخي على الرد القيم 
الطريقة فعالة 100%