[RaggiTech]

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

بسم الله الرحمن الرحيم

صادف أني فتحت فيجوال اصدار 6 من أيام وأخذت أتذكر الأيام - وإذا بي أري شئ عجيب

رأبت أداوت Shape - Line - سألت نفسى أين هى فى الدوت نت - هل نسيت ميكروسوفت أن تضعها فى اصدار الدوت نت


أخذت أبحث حتى توصلت لأمر

مجموعة Microsoft Visual Basic 2005 Power Packs 2.0


حملها الآن من هنا :




Power Packs 2.0




حملها وقم باعدادها على جهازك - بحيث عندما تفتح بيئة الدوت نت تجدها موجودة فى شريط الأدوات


حتي نبدأ نتكلم عنها وعن كيفة استخدامها

[RaggiTech]

الآن أنت حملت الأداة واعددتها على جهازك بحيث تجدها فى صندوق الأدوات ToolBox

من ToolBox أضف عنصر RectangleShape وعنصر OvalShape على الفورم


RectangleShape مثل OvalShape لكن الفرق

RectangleShape : يعطيك شكل مستطيل او مربع
RectangleShape : يزداد بخاصية CornerRadius التى تعطيها قيمة للمنحنى فى أطراف المربع
OvalShape : يعطيك أشكال بيضاوية ودوائر


نجد أن أهم خاصية للأداتين هى خاصية FillStyle

وعند الذهاب إليها فى شاشة الخصائص نجد هناك كثير من الاختيارات

ولنطبقها ونري الفرق بينهم

[RaggiTech]

لننظر فى الصورة أنها نفس الأداة لكن كيف نقوم بذلك ؟


نجعل

FillStyle = Solid

نجعل الخاصية FillColor نختار لها اللون SkyBlue

نجعل الخاصية FillGradientColor نختار لها اللون Blue

ونختار من الخاصية FillGradientStyle ما يناسبنا

[RaggiTech]

كما فى الصورة حجم الاطار للاداة مختلف وشكله مختلف


بالنسبة لشكلة من الخاصية 　BorderStyle نختار ما نريد

بالنسبة لحجمه من الخاصية BorderWidth نكتب الحجم المطلوب

[RaggiTech]

كل ما قمنا بعمله - نستطيع الوصول له بالكود


هذا مثال فى حدث التحميل للفورم - نقوم بانشاء عنصر ونعطيه بعض الخصائص

كود :

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

Dim canvas As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
Dim rec As New Microsoft.VisualBasic.PowerPacks.RectangleShape
rec.FillColor = System.Drawing.SystemColors.ControlDark
rec.FillGradientColor = System.Drawing.Color.Maroon
rec.FillGradientStyle = Microsoft.VisualBasic.PowerPacks.FillGradientStyle.None
rec.FillStyle = PowerPacks.FillStyle.Wave
rec.Location = New System.Drawing.Point(10, 10)
rec.Name = "RectangleShape1"
rec.Size = New System.Drawing.Size(100, 100)
rec.Parent = canvas
canvas.Parent = Me

End Sub

[RaggiTech]

هل الدائرة الملونة هى RectangleShape أم OvalShape


الملونة هى RectangleShape والفارغة هي OvalShape

لكن الاثنين دائرة لأن كما شرحنا


RectangleShape لها خاصية CornerRadius وجعلناها تساوي 50 فأصبحت كأنها دائرة