تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معلومة ::: ColorDialog
#1
كاتب الموضوع : 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



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



}}}}
تم الشكر بواسطة:
#2
مثل السابق لكن أوقفنا امكانية تكوين لون



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


الملفات المرفقة
.rar   BADRMEDIA.rar (الحجم : 45.18 ك ب / التحميلات : 27)
}}}}
تم الشكر بواسطة:
#3

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


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

}}}}
تم الشكر بواسطة:
#4
هنا أظهرنا زر المساعدة



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

}}}}
تم الشكر بواسطة:
#5
فى الكود السابق يقوم باظهار زر 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  معلومة ::: ListBox Blue Sky 14 2,401 14-11-16, 11:32 PM
آخر رد: فارس جراح
  معلومة مهمه فى المصفوفات ali.alfoly 2 792 30-08-13, 02:25 AM
آخر رد: ali.alfoly
  من المنتدى القديم - معلومة ::: ProgressBar ( للاخ BADRMEDIA ) المبرمج علي نوري 2 1,266 23-08-13, 11:17 PM
آخر رد: nin9e
  معلومة :: تعلم كيف تحفظ صورة في My.Settings بدون الإحتياج إلى مسارها! أسامة أحمد 3 1,016 16-12-12, 06:25 PM
آخر رد: 3amo
  من المنتدى القديم - معلومة ::: CheckBox ( للاخ BADRMEDIA ) المبرمج علي نوري 1 571 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 543 06-10-12, 11:03 PM
آخر رد: RaggiTech
  معلومة : TryCast مهمة RaggiTech 0 461 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 ) ضيف كريم