ممكن احد يعدل على هذا الكود - أسامة - 10-10-13
الكود عبارة عن اضافة 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
RE: ممكن احد يعدل على هذا الكود - 3booody - 10-10-13
نفس كودك مع تعديل
كود :
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
RE: ممكن احد يعدل على هذا الكود - أسامة - 10-10-13
(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
شكرآ جزيلآ
RE: ممكن احد يعدل على هذا الكود - 3booody - 10-10-13
عفوآآآآ اخي ونسيت نقطة وهي كود الحدث ايضآ نفس الشي
كود :
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
RE: ممكن احد يعدل على هذا الكود - ghaner joseph - 06-04-16
أجل هذا هو الكود
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
|