كاتب الموضوع : BADRMEDIA
بسم الله الرحمن الرحيم
صادف أني فتحت فيجوال اصدار 6 من أيام وأخذت أتذكر الأيام - وإذا بي أري شئ عجيب
رأبت أداوت Shape - Line - سألت نفسى أين هى فى الدوت نت - هل نسيت ميكروسوفت أن تضعها فى اصدار الدوت نت
أخذت أبحث حتى توصلت لأمر
مجموعة Microsoft Visual Basic 2005 Power Packs 2.0
حملها الآن من هنا :
Power Packs 2.0
حملها وقم باعدادها على جهازك - بحيث عندما تفتح بيئة الدوت نت تجدها موجودة فى شريط الأدوات
حتي نبدأ نتكلم عنها وعن كيفة استخدامها
الآن أنت حملت الأداة واعددتها على جهازك بحيث تجدها فى صندوق الأدوات ToolBox
من ToolBox أضف عنصر RectangleShape وعنصر OvalShape على الفورم
RectangleShape مثل OvalShape لكن الفرق
RectangleShape : يعطيك شكل مستطيل او مربع
RectangleShape : يزداد بخاصية CornerRadius التى تعطيها قيمة للمنحنى فى أطراف المربع
OvalShape : يعطيك أشكال بيضاوية ودوائر
نجد أن أهم خاصية للأداتين هى خاصية FillStyle
وعند الذهاب إليها فى شاشة الخصائص نجد هناك كثير من الاختيارات
ولنطبقها ونري الفرق بينهم
لننظر فى الصورة أنها نفس الأداة لكن كيف نقوم بذلك ؟
نجعل
FillStyle = Solid
نجعل الخاصية FillColor نختار لها اللون SkyBlue
نجعل الخاصية FillGradientColor نختار لها اللون Blue
ونختار من الخاصية FillGradientStyle ما يناسبنا
كما فى الصورة حجم الاطار للاداة مختلف وشكله مختلف
بالنسبة لشكلة من الخاصية BorderStyle نختار ما نريد
بالنسبة لحجمه من الخاصية BorderWidth نكتب الحجم المطلوب
كل ما قمنا بعمله - نستطيع الوصول له بالكود
هذا مثال فى حدث التحميل للفورم - نقوم بانشاء عنصر ونعطيه بعض الخصائص
كود :
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
هل الدائرة الملونة هى RectangleShape أم OvalShape
الملونة هى RectangleShape والفارغة هي OvalShape
لكن الاثنين دائرة لأن كما شرحنا
RectangleShape لها خاصية CornerRadius وجعلناها تساوي 50 فأصبحت كأنها دائرة