منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كاتب الموضوع : 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

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

وذلك بأن نقف على العنصر ونذهب لشاشة الخصائص ونختار الخاصية 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

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

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

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

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

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

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

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

كود :

ContextMenuStrip1.ShowImageMargin = False

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

RaggiTech

RaggiTech

RaggiTech

RaggiTech