تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معلومة ::: Power Packs
#1
كاتب الموضوع : BADRMEDIA


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

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

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


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

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


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




Power Packs 2.0




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


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




}}}}
تم الشكر بواسطة:
#2
الآن أنت حملت الأداة واعددتها على جهازك بحيث تجدها فى صندوق الأدوات ToolBox

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


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

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


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

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

ولنطبقها ونري الفرق بينهم
}}}}
تم الشكر بواسطة:
#3
لننظر فى الصورة أنها نفس الأداة لكن كيف نقوم بذلك ؟


نجعل

FillStyle = Solid

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

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

ونختار من الخاصية FillGradientStyle ما يناسبنا
}}}}
تم الشكر بواسطة:
#4
كما فى الصورة حجم الاطار للاداة مختلف وشكله مختلف


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

بالنسبة لحجمه من الخاصية BorderWidth نكتب الحجم المطلوب
}}}}
تم الشكر بواسطة:
#5
كل ما قمنا بعمله - نستطيع الوصول له بالكود


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


كود :
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


}}}}
تم الشكر بواسطة:
#6
هل الدائرة الملونة هى RectangleShape أم OvalShape


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

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


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


}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معلومة ::: ListBox Blue Sky 14 2,420 14-11-16, 11:32 PM
آخر رد: فارس جراح
  معلومة مهمه فى المصفوفات ali.alfoly 2 794 30-08-13, 02:25 AM
آخر رد: ali.alfoly
  من المنتدى القديم - معلومة ::: ProgressBar ( للاخ BADRMEDIA ) المبرمج علي نوري 2 1,267 23-08-13, 11:17 PM
آخر رد: nin9e
  معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! أسامة أحمد 3 1,022 16-12-12, 06:25 PM
آخر رد: 3amo
  من المنتدى القديم - معلومة ::: CheckBox ( للاخ BADRMEDIA ) المبرمج علي نوري 1 572 30-11-12, 05:54 PM
آخر رد: مبرمج أوتار
  معلومة :: الحل لمشكلة الخطأ في الكود For Each i As Button In Me.Controls Aly El-Haddad 2 680 10-11-12, 09:15 PM
آخر رد: Mr. DotNet
  معلومة : Partial Class RaggiTech 1 545 06-10-12, 11:03 PM
آخر رد: RaggiTech
  معلومة : TryCast مهمة RaggiTech 0 462 06-10-12, 11:02 PM
آخر رد: RaggiTech
  معلومة : XML Comments مهمة RaggiTech 1 423 06-10-12, 11:01 PM
آخر رد: RaggiTech
  معلومة - الاستثناءات ( Exceptions ) RaggiTech 0 534 06-10-12, 11:00 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم