منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طلب كود في اداة ColorDialog1
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 

اخواني اريد كود عند الضغط علي اللون ثم ok اريده يكتب اسم اللون في تكست بوكس
وياريت بسرعة
تفضل
Dim colordialog As New ColorDialog
colordialog.ShowDialog()
MsgBox(colordialog.Color.Name)
(09-08-16, 05:04 PM)LoveVb كتب : [ -> ]       Dim colordialog As New ColorDialog
       colordialog.ShowDialog()
       MsgBox(colordialog.Color.Name)
اخي العزيز الكود دي كتبتو قبل كدة لكن كان في مشكلة هي مش كل الالوان تبقي باسماها مرة يكون احمر red مظبوط ومرة اخرة يكون F8f8f8 وهكذا اخي  Big Grin
جميع الالوان على الشاشه هي مزيج من 3 الوان > أحمر , أزرق , أخضر
ليس كل الالوان لها اسماء حتى ستراها ايضا عند اختيار لون الفورم من نافذة الخصائص
بعض الالوان لن يظهر اسمها فقط درجات الاضاءة الناتجه عن اللون المحدد
هذا فقط مااعرفه يمكنك القراءة عن نظام الالوان
شكرا علي اي حال طاب هو انا اقدر اخلي الاداة تظهر اللوان معاينة Big Grin
لا اعتقد ذلك
هناك خاصية CustomColors يمكنك تحديد الالوان
لكن الالوان ستظهر في الاسفل

وفقط تطلب درجات الإضاءة هكذا
MyDialog.CustomColors = New Integer() {6916092, 15195440, 16107657, 1836924, _
  3758726, 12566463, 7526079, 7405793, 6945974, 241502, 2296476, 5130294, _
  3102017, 7324121, 14993507, 11730944}

MSDN
-
حل اخر يمكنك تصميم فورم ووضع PictureBox او Panel وتغيير الوانها
اذا كنت تريد ذلك ساقوم بعمل مشروع لكن غدا ,, حاول فيه

لماذا ستحتاج لاسماء الالوان وهل ستستخدمها؟
(09-08-16, 09:42 PM)LoveVb كتب : [ -> ]لا اعتقد ذلك
هناك خاصية CustomColors يمكنك تحديد الالوان
لكن الالوان ستظهر في الاسفل

وفقط تطلب درجات الإضاءة هكذا
MyDialog.CustomColors = New Integer() {6916092, 15195440, 16107657, 1836924, _
  3758726, 12566463, 7526079, 7405793, 6945974, 241502, 2296476, 5130294, _
  3102017, 7324121, 14993507, 11730944}

MSDN
-
حل اخر يمكنك تصميم فورم ووضع PictureBox او Panel وتغيير الوانها
اذا كنت تريد ذلك ساقوم بعمل مشروع لكن غدا ,, حاول فيه

لماذا ستحتاج لاسماء الالوان وهل ستستخدمها؟

خلاص مش لازم وشكرا علي مجهودك  Smile