[RaggiTech]

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

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


================


نقوم بفتح مشروع جديد ونضع عليه زر امر Button وندرج أداة ColorDialog من صندوق الأداوات ToolBox


فى حدث Click لزر الأمر نضع هذا الكود :

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.BackColor = ColorDialog1.Color
End If
End Sub

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









الكائن ColorDialog موجود بصندوق الأدوات


أدرجه فى الفورم

أضف زر أمر Button

ضع هذا الكود فى زر الأمر

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.BackColor = ColorDialog1.Color
End If

End Sub

أعتقد المثال واضح وسهل

[RaggiTech]

مثل السابق لكن أوقفنا امكانية تكوين لون

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' هنا نوقف الامكانيات

ColorDialog1.AllowFullOpen = False


If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.BackColor = ColorDialog1.Color
End If
End Sub

مرفق ملف عبارة عن مثال على الكود السابق



صفحة الكائن فى مكتبة مايكروسوفت

http://msdn2.microsoft.com/en-us/lib...og(VS.90).aspx

[RaggiTech]

هنا سنظهر شاشة الحوار ولكن بامكانيات أكبر

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' الامكانيات كلها
ColorDialog1.FullOpen = True

If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.BackColor = ColorDialog1.Color
End If
End Sub

[RaggiTech]

هنا أظهرنا زر المساعدة

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

' هنا سنظهر زر المساعدة

ColorDialog1.ShowHelp = True

If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
Me.BackColor = ColorDialog1.Color
End If
End Sub

[RaggiTech]

فى الكود السابق يقوم باظهار زر Help لكن عندما تضغط عليه لا يحدث شئ

للقيام بذلك تستخدم الحدث HelpReques الخاص بالأداة ColorDialog

تحمل ملف معين أو ماتريد من مساعدة

كود :

Private Sub ColorDialog1_HelpRequest(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles ColorDialog1.HelpRequest

MessageBox.Show("أى طلب تطلبه - اتصل بــ 00000000000")

End Sub