تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود يقوم بتغير اللون للحقول
#1
السلام عليكم ورحمة الله وبركاته

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

أرجو أن يكون كود إحترافي ومختصر

ولكم كل الشكر



 
الرد
تم الشكر بواسطة:
#2
أين ردودكم أحبابي
الرد
تم الشكر بواسطة:
#3
هذا كود يحفظ بـ Settingsالخاص بالبرنامج .

كود :
'حقول المطلوب وجودها في Settings و هي من نوع String
'DgvColor1
'DgvColor2
'DgvColor3
'DgvColor4
'DgvColor5
'DgvColor6
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadDgvColore(DataGridView1)'كود تحميل ألوان الداتا غريد فيو
End Sub

Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click'حفظ ألوان حقول الجدول في Settings الخاص بالبرنامج
       My.Settings.DgvColor1 = DgvTest.DefaultCellStyle.BackColor.R
       My.Settings.DgvColor2 = DgvTest.DefaultCellStyle.BackColor.G
       My.Settings.DgvColor3 = DgvTest.DefaultCellStyle.BackColor.B
       My.Settings.DgvColor4 = DgvTest.AlternatingRowsDefaultCellStyle.BackColor.R
       My.Settings.DgvColor5 = DgvTest.AlternatingRowsDefaultCellStyle.BackColor.G
       My.Settings.DgvColor6 = DgvTest.AlternatingRowsDefaultCellStyle.BackColor.B
       My.Settings.Save()
       MsgBox("تمت عملية الحفظ بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "حفظ")
End Sub

Public Sub LoadDgvColore(DgvTabel As DataGridView)'ضع هذا في مديول لتستطيع إستعماله في أي فورم
       DgvTabel.DefaultCellStyle.BackColor = Color.FromArgb(My.Settings.DgvColor1, My.Settings.DgvColor2, My.Settings.DgvColor3)
       DgvTabel.AlternatingRowsDefaultCellStyle.BackColor = Color.FromArgb(My.Settings.DgvColor4, My.Settings.DgvColor5, My.Settings.DgvColor6)
End Sub

وهذا كود اختيار الألوان الخاصة بالجدول .

كود :
    Private Sub BtnFirstColor_Click(sender As Object, e As EventArgs) Handles BtnFirstColor.Click
       Dim ColorXT As New ColorDialog
       If ColorXT.ShowDialog = Windows.Forms.DialogResult.OK Then
           DgvTest.DefaultCellStyle.BackColor = ColorXT.Color
       End If
   End Sub
   Private Sub BtnSecondColor_Click(sender As Object, e As EventArgs) Handles BtnSecndColor.Click
       Dim ColorXT As New ColorDialog
       If ColorXT.ShowDialog = Windows.Forms.DialogResult.OK Then
           DgvTest.AlternatingRowsDefaultCellStyle.BackColor = ColorXT.Color
       End If
   End Sub


الملفات المرفقة صورة/صور
   

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
#4
مشكور أخي asemshahen5 ولاكن طلبي كان بخصوص تلوين الأدوات مثل TextBox و Button من خلال أداة ColorDialog
 

بالنسبة لي لدي القدرة على برمجة كود يعطي اللون لكل أداة من  TextBox على حده مثل TextBox1 و TextBox2

ولاكن طلبي كود يقوم بتغير اللون لأداة TextBox لكامل المشروع بضغطة زر واحدة 

مشكور على الرد وأرجو الحصول على طلبي
الرد
تم الشكر بواسطة:
#5
هل تريد معها حفظ ألوان التكست فقط مع لون الخط الخاص بها مع نوع الخط و خاصية الفلات ستايل بتاع الازرار و صورة خلفية موحدة لكل الفورم الموجودة بالمشروع .


الملفات المرفقة صورة/صور
           

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
أخي أريد أن أغير لون BackColor لكل أداة TextBox موجودة على أي فورم بالمشروع من خلال أداة ColorDialog بضغطه واحدة وحفظ هذا التغيير حتى لو أقفلت المشروع وفتحته من جديد
الرد
تم الشكر بواسطة:
#7
بسيطة 5 دقائق

كود :
'فقط ضع TextBoxBackColor في Settings
  Public Sub LoadSavedThems(FormXT As Form)'ضع هذا في مديول
       For Each crl In FormXT.Controls
           If TypeOf (crl) Is GroupBox Or TypeOf (crl) Is Panel Or TypeOf (crl) Is SplitContainer Or TypeOf (crl) Is TabControl Then
               For Each cln In crl.controls
                   If TypeOf (cln) Is TextBox Then
                       cln.BackColor = Color.FromName(My.Settings.TextBoxBackColor)
                   End If
               Next
           End If
           If TypeOf (crl) Is TextBox Then
               crl.BackColor = Color.FromName(My.Settings.TextBoxBackColor)
           End If
       Next
   End Sub
   
   Private Sub BtnTextBoxBackColor_Click(sender As Object, e As EventArgs) Handles BtnTextBoxBackColor.Click'زر تغيير لون التكست
      Dim ColorXT As New ColorDialog
      If ColorXT.ShowDialog = Windows.Forms.DialogResult.OK Then
          TextBox1.BackColor = ColorXT.Color
      End If
  End Sub
 
  Private Sub BtnSave_Click(sender As Object, e As EventArgs) Handles BtnSave.Click'زر حفظ اللون
       My.Settings.TextBoxBackColor = TextBox1.BackColor.Name
       My.Settings.Save()
       MsgBox("تمت عملية الحفظ بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRtlReading + MsgBoxStyle.MsgBoxRight, "حفظ")
  End Sub
 
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        LoadSavedThems(Me)'كود الاستدعاء
  End Sub

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة: ابراهيم ايبو
#8
ياريت توضيح لكيفية وضع TextBoxBackColor في Settings 

أخي ياريت الكود يقوم بتغير كل أدوات TextBox بدون ذكر أسمائهم أي ليس كما فعلت أنت بهذا الكود
الرد
تم الشكر بواسطة:
#9
(26-10-18, 01:41 AM)sads كتب : ياريت توضيح أكثر للكود ولو بشي من التفصيل

هذا لوب يبحث عن كل الأدوات الموجودة في الفورم و الغروب بوكس مع تحديد نوعها يوضع في مديول بالمشروع .

كود :
Public Sub LoadSavedThems(FormXT As Form)'ضع هذا في مديول
      For Each crl In FormXT.Controls
          If TypeOf (crl) Is GroupBox Or TypeOf (crl) Is Panel Or TypeOf (crl) Is SplitContainer Or TypeOf (crl) Is TabControl Then
              For Each cln In crl.controls
                  If TypeOf (cln) Is TextBox Then
                      cln.BackColor = Color.FromName(My.Settings.TextBoxBackColor)
                  End If
              Next
          End If
          If TypeOf (crl) Is TextBox Then
              crl.BackColor = Color.FromName(My.Settings.TextBoxBackColor)
          End If
      Next
  End Sub

و الباقي شارح نفسه زر إختيار اللون و زر حفظ للتعديل و الاستدعاء في الفورم لود .


الملفات المرفقة صورة/صور
   

سبحان الله وبحمده و الحمد لله ولا اله الا الله والله اكبر
الرد
تم الشكر بواسطة: sads , sads
#10
ياريت توضيح لكيفية وضع TextBoxBackColor في Settings 

أخي من خصائص دخلت على Settings ووضعت TextBoxBackColor في خانة Name وتركت الباقي كما هوا 
هل مافعلته صحيح لأن هناك خطأ عند التنفيذ

الخطأ كالتالي
Control does not support transparent background colors.
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اجعل زر الحفظ يقوم بعمل حفظ وتعديل atef_020 15 289 01-12-18, 08:09 PM
آخر رد: حريف برمجة
  [كود] مطلوب كود يقوم بحفظ محتوى textbox فى ملف notepad elgokr 7 1,229 13-09-18, 06:27 PM
آخر رد: YousefOkasha
  تغيير اللون الى لون غير معروف 43:43:43 hichem1 13 585 22-06-18, 09:43 PM
آخر رد: hichem1
  احتاج كود يقوم بتقريب هذا الرقم 2.500 الي 5 farah112233 2 211 01-06-18, 06:25 AM
آخر رد: sendbad100
  [VB.NET] برنامج يقوم بالفحص عن الجروبات المشترك فيها muhnnad002016 3 656 01-06-18, 12:57 AM
آخر رد: YousefOkasha
  احتاج كود يقوم بتقريب هذا الرقم 2.500 الي 5 farah112233 3 195 13-05-18, 11:14 PM
آخر رد: عبدالله الدوسري
  هل يوجد ملف يقوم بتنصيب جميع اصدارات الفريم ورك دفعتا واحدة nabil.1710 2 190 30-04-18, 04:58 AM
آخر رد: عبد العزيز البسكري
  كود يقوم باحتساب عدد الكلمات داخل textbox nabil.1710 2 268 02-03-18, 11:57 PM
آخر رد: nabil.1710
  مطلوب مبرمج محترف يقوم بكتابة الكود التالي mohamedgadain61 0 151 17-02-18, 05:01 PM
آخر رد: mohamedgadain61
  سلام عليكم احتاج كود يقوم بطباعة Report Viewer 1 بشكل اتوماتيكي مجرد فتح الفورم mohamedgadain61 0 187 16-02-18, 04:30 PM
آخر رد: mohamedgadain61

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


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