تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن طريقة انهاء يومية للكاشير atef_020 4 102 أمس, 01:10 AM
آخر رد: atef_020
  اريد تحويل هذا الكود للسى شارب لو سمحتم ابو روضة 2 100 17-03-19, 10:21 AM
آخر رد: ابو روضة
  لو سمحتم اساتذتى ممكن شرح كودات وطريقه عمل سندات القبض والصرف؟ خالد كامل1 0 34 16-03-19, 04:01 PM
آخر رد: خالد كامل1
  ممكن اجابة ارجوكم حاتمي 2 84 28-02-19, 11:02 PM
آخر رد: حاتمي
  مساعده شباب اريد تعديل الكود يشتغل عليDataGridView بدل ListView -اين المحترفين Fransesco 5 172 25-02-19, 10:49 AM
آخر رد: elgokr
  [VB.NET] مساعده في تصحيح الكود dubai.eig 4 144 20-02-19, 05:48 PM
آخر رد: elgokr
  [VB.NET] استفسار :- هل صحيح كتابه الكود بهذه الطريقه dubai.eig 8 241 14-02-19, 06:52 PM
آخر رد: ابراهيم ايبو
  مطلوب معاينة المثال والمساعدة في تعديل الكود وفقكم الله فراس الغزي 8 294 29-01-19, 10:43 PM
آخر رد: فراس الغزي
  ممكن طريقة انهاء يومية للكاشير atef_020 14 542 22-01-19, 03:58 AM
آخر رد: asemshahen5
  [VB.NET] محتاج التعديل على الكود dubai.eig 1 192 17-01-19, 09:50 AM
آخر رد: dubai.eig

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


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