+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ماهو كود تلوين رؤوس أعمدة الدتاجريدفيو والصفوف (/showthread.php?tid=26740)
ماهو كود تلوين رؤوس أعمدة الدتاجريدفيو والصفوف - Hazem1 - 01-10-18
بسم الله الرحمن الرحيم
أود السؤال عن كود تلوين رؤوس أعمدة الداتاجريدفيو والصفوف كما بالصورة التالية [ID - Barcode - PName] إضافة إلى أعمدة الصفوف، وجزاكم الله خيراً.
RE: ماهو كود تلوين رؤوس أعمدة الدتاجريدفيو والصفوف - عبدالله الدوسري - 01-10-18
[attachment=19706]
[attachment=19707]
[attachment=19708]
RE: ماهو كود تلوين رؤوس أعمدة الدتاجريدفيو والصفوف - rnmr - 01-10-18
جرب هذا
كود :
DataGridView1.EnableHeadersVisualStyles = False
DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.Red
DataGridView1.RowHeadersDefaultCellStyle.BackColor = Color.BlueRE: ماهو كود تلوين رؤوس أعمدة الدتاجريدفيو والصفوف - Hazem1 - 01-10-18
جزاك الله خيراً أخي الكريم عبدالله الدوسري، لم تُقصر في شرحك الله يرضى عنك وييسر أمرك.
RE: ماهو كود تلوين رؤوس أعمدة الدتاجريدفيو والصفوف - asemshahen5 - 01-10-18
تفضل هذا المثال :
RE: ماهو كود تلوين رؤوس أعمدة الدتاجريدفيو والصفوف - Hazem1 - 01-10-18
(01-10-18, 06:54 PM)rnmr كتب : جرب هذا
كود :
DataGridView1.EnableHeadersVisualStyles = False
DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.Red
DataGridView1.RowHeadersDefaultCellStyle.BackColor = Color.Blue
جزاك الله خيراً أخي الفاضل rnmr ، أكرمك الله وبارك في عمرك.
RE: ماهو كود تلوين رؤوس أعمدة الدتاجريدفيو والصفوف - asemshahen5 - 01-10-18
أسف لم أنتبه لما طلبت بالضبط هذا مثال أخر .
فقط انسخ الجدول و ألصقه بمشروعك .
RE: ماهو كود تلوين رؤوس أعمدة الدتاجريدفيو والصفوف - Hazem1 - 02-10-18
(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
RE: ماهو كود تلوين رؤوس أعمدة الدتاجريدفيو والصفوف - asemshahen5 - 02-10-18
إذا أردت تكبير حجم الخلية كبره من خصائص الجدول :
ColumnHeadersHeight=100