05-10-12, 06:48 PM
كيف نستخدم الكونترول
قم بعمل Build للكونترول ومن ثم سيظهر لك نسخة منه في نافذة الأدوات حيث يمكن بعد ذلك أن تضيفه الي أي فورم
ثم حدد أي صورة من علي جهازك باستخدام Image Property الخاصة بالكونترول
ثم عليك إستخدام أو إطلاق الحدث SelectedColorChanged ومن ثم تساوي متغير يعبر عن لون ما وتساويه مع SelectedColor Property الخاصة بالكونترول والكود التالي يوضح ذلك
عندما يعمل الفورم ستجد علي الكونترول دائرة صغيرة ................ حاول أن تحرك هذه الدائرة باستخدام الماوس واكتشف ماذا سوف يحدث
بالمرفقات ستجدون نسخة كاملة من الكلاس وكيفية استخدامه والكود بنسخة الفيجوال 2010 ولمستخدمي النسخ الأخري يمكنهم إعادة نسخ الكود الخاص بالكلاس والموجود بالمشاركة السابقة ومن ثم استخدامه كما يحلو لهم
ولمن يريد التطوير وتحويل الكونترول الي ColorPicker عادي فليستخدم الكود الموجود في المشاركة الأولي وتحديدا في المثال الثالث لكي يرسم ColorPicker العادية ومن ثم يستخدم الصورة الناتجة مع Image Property أو يمكنكم إعادة كتابة الكلاس بشكل يؤدي نفس الهدف ولمن لا يستطيع أن يفعل ذلك يمكنه أن يترك تعليقا وسوف أكتب له الكود لاحقا
تقبلوا تحياتي ولا تنسونا في دعائكم
أخوكم عمر
قم بعمل Build للكونترول ومن ثم سيظهر لك نسخة منه في نافذة الأدوات حيث يمكن بعد ذلك أن تضيفه الي أي فورم
ثم حدد أي صورة من علي جهازك باستخدام Image Property الخاصة بالكونترول
ثم عليك إستخدام أو إطلاق الحدث SelectedColorChanged ومن ثم تساوي متغير يعبر عن لون ما وتساويه مع SelectedColor Property الخاصة بالكونترول والكود التالي يوضح ذلك
عندما يعمل الفورم ستجد علي الكونترول دائرة صغيرة ................ حاول أن تحرك هذه الدائرة باستخدام الماوس واكتشف ماذا سوف يحدث
كود :
Public Class Form1
Private selectedColor As Drawing.Color = Drawing.Color.Empty
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.DoubleBuffered = True
End Sub
Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
MyBase.OnPaint(e)
Dim r As New Drawing.Rectangle(0, 0, Me.Width, 50)
Using sb As New Drawing.SolidBrush(selectedColor)
e.Graphics.FillRectangle(sb, r)
End Using
End Sub
Private Sub ImageColorPicker1_SelectedColorChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ImageColorPicker1.SelectedColorChanged
selectedColor = Me.ImageColorPicker1.SelectedColor
Me.Invalidate()
End Sub
End Classولمن يريد التطوير وتحويل الكونترول الي ColorPicker عادي فليستخدم الكود الموجود في المشاركة الأولي وتحديدا في المثال الثالث لكي يرسم ColorPicker العادية ومن ثم يستخدم الصورة الناتجة مع Image Property أو يمكنكم إعادة كتابة الكلاس بشكل يؤدي نفس الهدف ولمن لا يستطيع أن يفعل ذلك يمكنه أن يترك تعليقا وسوف أكتب له الكود لاحقا
تقبلوا تحياتي ولا تنسونا في دعائكم
أخوكم عمر
