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

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

أود السؤال عن كود تلوين رؤوس أعمدة الداتاجريدفيو والصفوف كما بالصورة التالية [ID - Barcode - PName] إضافة إلى أعمدة الصفوف، وجزاكم الله خيراً.
جرب هذا
كود :
DataGridView1.EnableHeadersVisualStyles = False
DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.Red
DataGridView1.RowHeadersDefaultCellStyle.BackColor = Color.Blue
جزاك الله خيراً أخي الكريم عبدالله الدوسري، لم تُقصر في شرحك الله يرضى عنك وييسر أمرك. 
تفضل هذا المثال :
(01-10-18, 06:54 PM)rnmr كتب : [ -> ]جرب هذا
كود :
DataGridView1.EnableHeadersVisualStyles = False
DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.Red
DataGridView1.RowHeadersDefaultCellStyle.BackColor = Color.Blue

جزاك الله خيراً أخي الفاضل rnmr ، أكرمك الله وبارك في عمرك.
أسف لم أنتبه لما طلبت بالضبط هذا مثال أخر .

فقط انسخ الجدول و ألصقه بمشروعك .
(01-10-18, 07:57 PM)asemshahen5 كتب : [ -> ]تفضل هذا المثال :

سُبحان الله، بصدق كان مثال رائع جداً يا أخي [b]asemshahen5، كنت أحاول أفهم الأكواد الأولية فيا حبذا إذا تناولت هذه الأكواد بشرح فيديو أو بالكتابة في درس أو مقال فسيكون مفيد جداً، أنا وجدت أن جوهر التعديل في جزئية الداتاجريدفيو فحاولت إضافة كود يقوم على تكبير حجم الخط قليلاً ويجعله من النوع الثقيل فاستخدمت الكود التالي :[/b]
PHP كود :
           Dim mfont As Font = New Font("Arial"32FontStyle.Bold)
 
           Dim textSize As SizeF e.Graphics.MeasureString(e.Valuemfont

ولم يقوم بتفيذ المطلوب،أتمنى منك أخي الكريم أن تشير إلى الخطأ في عدم التنفيذ، وقد وضعته بين أكواد الداتاجريدفيو التالية:

PHP كود :
Private Sub DataGridView1_CellPainting(ByVal sender As ObjectByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgsHandles DataGridView1.CellPainting

        If e
.RowIndex = -1 Then
            Dim img 
As Image
            img 
Image.FromFile("D:\WindowsApplication1\Resources\Header.png")
 
           TekenAchtergrond(e.Graphicsimge.CellBounds1)
 
           Dim format1 As StringFormat
            format1 
= New StringFormat
            format1
.HotkeyPrefix System.Drawing.Text.HotkeyPrefix.Show
            Dim ef1 
As SizeF e.Graphics.MeasureString(e.ValueMe.Font, New SizeF(CType(e.CellBounds.WidthSingle), CType(e.CellBounds.HeightSingle)), format1)
 
           Dim txts As Size
            txts 
Drawing.Size.Empty

 
           txts Drawing.Size.Ceiling(ef1)
 
           e.CellBounds.Inflate(-4, -4)

 
           Dim txtr As Rectangle e.CellBounds
            txtr 
HAlignWithin(txtstxtrContentAlignment.MiddleCenter)
 
           txtr VAlignWithin(txtstxtrContentAlignment.MiddleCenter)
 
           Dim brush2 As Brush
            format1 
= New StringFormat
            format1
.HotkeyPrefix System.Drawing.Text.HotkeyPrefix.Show

            brush2 
= New SolidBrush(Color.FromArgb(2166139))

 
           e.Graphics.DrawString(e.ValueMe.Fontbrush2CType(txtrRectangleF), format1)
 
           brush2.Dispose()
 
           Dim recBorder As New Rectangle(e.CellBounds.1e.CellBounds.Ye.CellBounds.Widthe.CellBounds.Height 1)
 
           e.Graphics.DrawRectangle(Pens.LightSlateGrayrecBorder)
 
           e.Handled True

        End 
If
 
   End Sub 
جزاك الله خيراً وزادك علمًا وأكرمك بالجنة.
إذا أردت تكبير حجم  الخلية كبره من خصائص الجدول :

ColumnHeadersHeight=100