[RaggiTech]

كاتب الموضوع : BADRMEDIA

القائمة الفرعية ContextMenuStrip

قم بادراجها من صندوق الأدوات ToolBox قم بتكوين عنصرين فيها

أثناء التصميم لو أحببت عمل فاصل بين العناصر - كل ما عليك أن تكتب علامة ( - ) للعنصر






لكى نظهر القائمة فى التطبيق


مثلا عندما يضط المستخدم على الفورم تظهر القائمة

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.ContextMenuStrip = ContextMenuStrip1
End Sub

ويمكن أن نربطه بمربع نص TextBox

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.ContextMenuStrip = ContextMenuStrip1
End Sub

[RaggiTech]

كما نرى فى الصورة يمكن أن نضع صورة بجانب العنصر

وذلك بأن نقف على العنصر ونذهب لشاشة الخصائص ونختار الخاصية Image ونختار الصورة


ويمكن ان ننشا العنصر ونسند له كل الخصائص بالكود

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim item As New ToolStripMenuItem
item.Text = "Open"
item.Image = Image.FromFile("C:\Work\Copy.bmp")
ContextMenuStrip1.Items.Add(item)
Me.ContextMenuStrip = ContextMenuStrip1

End Sub

[RaggiTech]

عندما تقف على العنصر وتذهب لترى شاشة الخصائص

ستجد أن هناك خاصية ImageScaling ولها اختيار SizeToFit - None

None تجعل الصورة تظهر بحجمها الحقيقى

SizeToFit يقوم بعمل تقليص لها بحيث تظهر مع ارتقاع العنصر


الخاصية ImageTransparentColor ومنها تحدد اللون الذى تريد الغاءه من الصورة

[RaggiTech]

الخاصية ShowImageMargin للأداة نفسها وليس من خصائص عناصرها - بل من خصائصها هي

تمكن ظهور او اخفاء المنطقة الجانبية من القائمة والتى توضع فيها الصورة

كود :

ContextMenuStrip1.ShowImageMargin = False