منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] طلب شرح اضافة..... - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] طلب شرح اضافة..... (/showthread.php?tid=3784)



طلب شرح اضافة..... - amedo - 09-09-14

في هذا الموضوع -> رابط فرعي 1 شرح لعمل إضافات لمشروعك .

طلبي اريد ان اضف ايتم جديد في MenuStrip1
وان اضيف ايتم اخر فرعي في قائمة File في MenuStrip1
لغة البرمجة : VB.NET
وشكراًShy


RE: طلب شرح اضافة..... - amedo - 09-09-14

up up up up


RE: طلب شرح اضافة..... - amedo - 09-09-14

هل من حل ؟! Undecided


RE: طلب شرح اضافة..... - amedo - 09-09-14

انتظرSad .......


RE: طلب شرح اضافة..... - amedo - 09-09-14

هل السؤال خطأ ؟؟ ام ماذا ExclamationDodgy


RE: طلب شرح اضافة..... - amedo - 10-09-14

السلام عليكم ؟؟؟؟؟؟؟؟؟؟؟؟


RE: طلب شرح اضافة..... - vbnet - 10-09-14

.....

منقول

إنشاء عنصر قائمة ToolStripMenuItem برمجياً
كود :
' إنشاء عنصر قائمة جديد
Dim mnuFileNewItem As New System.Windows.Forms.ToolStripMenuItem

' تسمية العنصر الجديد
mnuFileNewItem.Name = "mnuFileNewItem"

' تغيير النص للعنصر الجديد
mnuFileNewItem.Text = "عنصر جديد"

' Click ربط العنصر الجديد بالحدث
AddHandler mnuFileNewItem.Click, AddressOf mnuFileNewItem_Click

' إضافة العنصر الجديد إلى القائمة المحددة
mnuFile.DropDownItems.Add(mnuFileNewItem)

الحدث mnuFileNewItem_Click
كود :
Private Sub mnuFileNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    MsgBox("تم الضغط على (" & sender.Text & ")", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading)
    ' إفعل شيئاً
End Sub

.....