تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] ممكن احد يعدل على هذا الكود
#1
Sad 
الكود عبارة عن اضافة ContextMenuStrip MenuItem
اريد من الكود اضافة فى MenuItem محددة MenuItemCollection
مثال كلمة الحمد الله جنبها كلمة الله اكبر مثال بى اداه ContextMenuStrip

مثال بى الكود

الكود
كود :
Dim a As MenuItem
    Dim sMenu As New ContextMenu
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        a = sMenu.MenuItems.Add("الحمد الله")
        AddHandler a.Click, AddressOf asss
    End Sub
    Private Sub asss()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sMenu.Show(Me, PointToClient(MousePosition))
    End Sub
الرد }}}}
تم الشكر بواسطة:
#2
نفس كودك مع تعديل

كود :
Dim a As MenuItem
    Dim sMenu As New ContextMenu
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        a = sMenu.MenuItems.Add("الحمد الله")
        sMenu.MenuItems.Item(0).MenuItems.Add("الله اكبر")
        AddHandler a.Click, AddressOf asss
    End Sub
    Private Sub asss()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sMenu.Show(Me, PointToClient(MousePosition))
    End Sub
الرد }}}}
تم الشكر بواسطة: أسامة , sooriaty03 , kslawy
#3
(10-10-13, 04:27 PM)3booody كتب : نفس كودك مع تعديل

كود :
Dim a As MenuItem
    Dim sMenu As New ContextMenu
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        a = sMenu.MenuItems.Add("الحمد الله")
        sMenu.MenuItems.Item(0).MenuItems.Add("الله اكبر")
        AddHandler a.Click, AddressOf asss
    End Sub
    Private Sub asss()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        sMenu.Show(Me, PointToClient(MousePosition))
    End Sub

شكرآ جزيلآ
الرد }}}}
تم الشكر بواسطة: kslawy
#4
عفوآآآآ اخي ونسيت نقطة وهي كود الحدث ايضآ نفس الشي

كود :
Dim b As MenuItem
        b = sMenu.MenuItems.Item(0).MenuItems.Add("الله اكبر")
        AddHandler b.Click, AddressOf b_Click

كود :
Private Sub b_Click(ByVal sender As Object, ByVal e As EventArgs)
        MsgBox("b_Clicked")
    End Sub
الرد }}}}
تم الشكر بواسطة: kslawy , أسامة
#5
أجل هذا هو الكود

Dim sMenu As New ContextMenu
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
("الحمد الله") a = sMenu.MenuItems.Add
("الله اكبر") sMenu.MenuItems.Item(0).MenuItems.Add
AddHandler a.Click, AddressOf asss
End Sub
() Private Sub asss
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
(( sMenu.Show(Me, PointToClient(MousePosition
End Sub

(06-04-16, 06:44 PM)ghaner joseph كتب : أجل هذا هو الكود

   Dim sMenu As New ContextMenu
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ("الحمد الله")   a = sMenu.MenuItems.Add
 ("الله اكبر")      sMenu.MenuItems.Item(0).MenuItems.Add
       AddHandler a.Click, AddressOf asss
   End Sub
  () Private Sub asss
   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   (( sMenu.Show(Me, PointToClient(MousePosition
   End Sub
صديقي العزيز توجد طريقة سهلة للحساب مثال

Dim a, b, c b8, b9, b10, b11 As Single
     
 عمليات حسابية

        a = TextBox1Text
        b = TextBox2.Text
      d = TextBox3.Text





Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = b
Label2.Text = d   
        d = b + a
        Label3.Text = d
    End Sub
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] تعديل على الكود mervandzz 2 29 أمس, 05:28 PM
آخر رد: mervandzz
Thumbs Up كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 7 916 أمس, 03:14 PM
آخر رد: رمضان محمد
  ممكن سؤال لأهل الخبره خاص بالتخزين sql server lemozza 5 67 20-10-17, 09:56 PM
آخر رد: lemozza
  [VB.NET] أحتاج محترف يعدل كود نقل adel27 3 333 17-10-17, 09:24 PM
آخر رد: Rabeea Qbaha
  [VB.NET] ممكن طلب بسيط MOSTAFA.KAMEL 4 94 14-10-17, 05:36 AM
آخر رد: حريف برمجة
  [VB.NET] اريد تعديل ع هذا الكود الرجاء مساعدتـي e-coder 0 42 13-10-17, 06:39 PM
آخر رد: e-coder
  [VB.NET] مطلوب التعديل علي الكود التالي محمد اسماعيل 2 65 11-10-17, 01:08 PM
آخر رد: محمد اسماعيل
  [VB.NET] التعديل على الكود - رقم التسلسلي dubai.eig 4 134 08-10-17, 11:30 PM
آخر رد: dubai.eig
  استشارة في الكود hikmat 1 58 28-09-17, 01:33 AM
آخر رد: wale90
  مساعدة في الكود hikmat 0 42 27-09-17, 10:08 AM
آخر رد: hikmat

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


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