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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 143 15-01-17, 02:11 PM
آخر رد: abudawoodd
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 409 04-01-17, 01:12 AM
آخر رد: Namer
  [VB.NET] هل الكود هذا صحيح dubai.eig 10 211 01-01-17, 10:15 PM
آخر رد: مساعدة
  ممكن يا جماعة سورس كود لبرنامج إدارة كافيه المبرمج العبقري 0 53 01-01-17, 01:31 PM
آخر رد: المبرمج العبقري
  اين اكتب هذا الكود anis_derna 3 136 28-12-16, 12:18 PM
آخر رد: thevirus
  تصحيح الكود الاتي CLARO 2 61 23-12-16, 02:12 PM
آخر رد: CLARO
  شرح الكود و الادوات المستخدمة anis_derna 1 85 20-12-16, 06:40 AM
آخر رد: silverlight
  ممكن كود الفرق بين وقتين Riad Soft 3 1,804 18-12-16, 08:48 PM
آخر رد: gigantic
Information [VB.NET] تعديل بيسط على الكود 3asfa~mdmra 6 120 18-12-16, 04:31 AM
آخر رد: 3asfa~mdmra
  ما الخطأ فى هذا الكود ؟ what's error in my code ? twitter acount creator الماجيك مسعد 16 374 13-12-16, 01:21 AM
آخر رد: الماجيك مسعد

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


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