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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن مشروع فيه تقنية الرسم مع opengl samira20 0 57 25-03-17, 07:13 PM
آخر رد: samira20
  حل مشكلة الكود MOSTAFA.KAMEL 2 86 24-03-17, 11:53 PM
آخر رد: Master Hacker
  [VB.NET] تعديل الكود بخصوص Split 3asfa~mdmra 1 60 20-03-17, 04:34 PM
آخر رد: 3asfa~mdmra
  ممكن شرح لطريقة ربط أكثر من جدول اكسس ؟ أبووسم 10 252 18-03-17, 12:09 AM
آخر رد: أبووسم
  ما هو الكود لجعل اداة numericUpDown1 تتغير تلقائياً لحن الحياة 1 72 09-03-17, 07:19 AM
آخر رد: مساعدة
  تصحيح الكود bidaya 0 73 03-03-17, 03:23 PM
آخر رد: bidaya
  [VB.NET] كيف اوقف تفيذ امر هذا الكود 3asfa~mdmra 0 74 03-03-17, 01:21 PM
آخر رد: 3asfa~mdmra
  [VB.NET] خطأ في الكود ...مرفق مع المشروع....يرجي التعديل فقط 3asfa~mdmra 2 128 02-03-17, 04:26 PM
آخر رد: 3asfa~mdmra
  [VB.NET] مشكلة نقل الكود من Form2 الي Form1 3asfa~mdmra 2 110 17-02-17, 02:44 AM
آخر رد: الماجيك مسعد
  توليد الادوات في FlowLayoutPanel بواسطة الكود وحذفها (تم ارفاق المشروع) اليوم مبتدئة وغداً محترفة 16 430 13-02-17, 07:43 AM
آخر رد: اليوم مبتدئة وغداً محترفة

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


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