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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حل مشكلة الكود الاتي - سهل- CLARO 3 67 أمس, 04:06 PM
آخر رد: ali.alfoly
  ما هو الخطاء فى هذا الكود "كود التعديل" السيد الجوهري 1 62 26-11-16, 03:22 AM
آخر رد: أبو عمر
  [VB.NET] ربط الداتا بيز بالكريستال ريبورت عن طريق الكود thevirus 3 92 22-11-16, 02:38 PM
آخر رد: thevirus
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 188 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  [سؤال] هل يمكن عرض عناصر الكومبوبوكس عن طريق الكود ؟؟؟؟؟؟؟؟؟؟؟؟ thevirus 1 95 10-11-16, 06:25 PM
آخر رد: أبو عمر
Question [VB.NET] ممكن احد يشرح لي المطلوب :( a_abdullah 2 82 05-11-16, 08:43 PM
آخر رد: a_abdullah
  ممكن مساعدة اخواني في Inherits ابراهيم كركوكي 2 70 03-11-16, 09:19 PM
آخر رد: ابراهيم كركوكي
  كيف اضيف هذا الكود في module nabil.1710 6 122 01-11-16, 03:23 PM
آخر رد: silverlight
  ممكن طريقة عرض بيانات على ListView ؟ mmm650 2 116 30-10-16, 10:14 PM
آخر رد: adel27
  كيف انقل هذا الكود منForm2 اليForm1 3asfa~mdmra 2 71 30-10-16, 01:47 PM
آخر رد: 3asfa~mdmra

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


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