[Hazem1]

بسم الله الرحمن الرحيم

أود السؤال عن كود تلوين رؤوس أعمدة الداتاجريدفيو والصفوف كما بالصورة التالية [ID - Barcode - PName] إضافة إلى أعمدة الصفوف، وجزاكم الله خيراً.

[عبدالله الدوسري]

   

   

   

[rnmr]

جرب هذا

كود :

DataGridView1.EnableHeadersVisualStyles = False
DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.Red
DataGridView1.RowHeadersDefaultCellStyle.BackColor = Color.Blue

[Hazem1]

جزاك الله خيراً أخي الكريم عبدالله الدوسري، لم تُقصر في شرحك الله يرضى عنك وييسر أمرك. 

[asemshahen5]

تفضل هذا المثال :

[Hazem1]

(01-10-18, 06:54 PM)rnmr كتب : جرب هذا

كود :

DataGridView1.EnableHeadersVisualStyles = False
DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.Red
DataGridView1.RowHeadersDefaultCellStyle.BackColor = Color.Blue

جزاك الله خيراً أخي الفاضل rnmr ، أكرمك الله وبارك في عمرك.

[asemshahen5]

أسف لم أنتبه لما طلبت بالضبط هذا مثال أخر .

فقط انسخ الجدول و ألصقه بمشروعك .

[Hazem1]

(01-10-18, 07:57 PM)asemshahen5 كتب : تفضل هذا المثال :

سُبحان الله، بصدق كان مثال رائع جداً يا أخي [b]asemshahen5، كنت أحاول أفهم الأكواد الأولية فيا حبذا إذا تناولت هذه الأكواد بشرح فيديو أو بالكتابة في درس أو مقال فسيكون مفيد جداً، أنا وجدت أن جوهر التعديل في جزئية الداتاجريدفيو فحاولت إضافة كود يقوم على تكبير حجم الخط قليلاً ويجعله من النوع الثقيل فاستخدمت الكود التالي :[/b]

PHP كود :

           Dim mfont As Font = New Font("Arial", 32, FontStyle.Bold)
            Dim textSize As SizeF = e.Graphics.MeasureString(e.Value, mfont) 


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

PHP كود :

Private Sub DataGridView1_CellPainting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) Handles DataGridView1.CellPainting

        If e.RowIndex = -1 Then
            Dim img As Image
            img = Image.FromFile("D:\WindowsApplication1\Resources\Header.png")
            TekenAchtergrond(e.Graphics, img, e.CellBounds, 1)
            Dim format1 As StringFormat
            format1 = New StringFormat
            format1.HotkeyPrefix = System.Drawing.Text.HotkeyPrefix.Show
            Dim ef1 As SizeF = e.Graphics.MeasureString(e.Value, Me.Font, New SizeF(CType(e.CellBounds.Width, Single), CType(e.CellBounds.Height, Single)), 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(txts, txtr, ContentAlignment.MiddleCenter)
            txtr = VAlignWithin(txts, txtr, ContentAlignment.MiddleCenter)
            Dim brush2 As Brush
            format1 = New StringFormat
            format1.HotkeyPrefix = System.Drawing.Text.HotkeyPrefix.Show

            brush2 = New SolidBrush(Color.FromArgb(21, 66, 139))

            e.Graphics.DrawString(e.Value, Me.Font, brush2, CType(txtr, RectangleF), format1)
            brush2.Dispose()
            Dim recBorder As New Rectangle(e.CellBounds.X - 1, e.CellBounds.Y, e.CellBounds.Width, e.CellBounds.Height - 1)
            e.Graphics.DrawRectangle(Pens.LightSlateGray, recBorder)
            e.Handled = True

        End If
    End Sub 


جزاك الله خيراً وزادك علمًا وأكرمك بالجنة.

[asemshahen5]

إذا أردت تكبير حجم  الخلية كبره من خصائص الجدول :

ColumnHeadersHeight=100