تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال .. عمل حدث اثناء التشغيل
#1
السلام عليكم ورحمة الله وبركاتة 

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

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



وكلت أمري الى الله 

سبحان الله وبحمدة ... سبحان الله العظيم

الرد
تم الشكر بواسطة:
#2
سلام

المره القادمه لاتضع الكود على شكل صوره لتوفر علينا الوقت
كود :
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
#3
شكرا لك أخي على الرد القيم 
الطريقة فعالة 100%
وكلت أمري الى الله 

سبحان الله وبحمدة ... سبحان الله العظيم

الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم