[VB.NET] การสลับสีพื้นหลัง Header ในแต่ละหลักของ DataGridView ในแบบ Run Time

thongkorn

สำหรับอันนี้ก็เป็นคำถามที่เข้ามาจากมิตรรักแฟนคลับสาวก Visual Basic ถามแอดมินผ่านมาทางเฟซบุ๊ค แอดมินก็เลยมาขอตอบให้ตรงนี้ล่ะกัน เผื่อให้คนอื่นๆเขาได้รับรู้กันบ้างครับพี่น้อง ... ที่ทำออกมาแล้วไม่ได้ผลอย่างที่ต้องการ ก็เพราะว่าข้ามรายละเอียดของการตั้งค่าบางอย่างไป ไปลองชิม เอ้ย ชมโค้ดดีกว่าแล้วคุณคงจะเข้าใจเองครับผม ... แอ่นนน แอ๊นนนน

มาดูโค้ดกันเถอะ ...

1. Public Class Form1
   
2. 
   
3.     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         DataGridView1.Columns.Add("column1", "ลำดับ")
   
5.         DataGridView1.Columns.Add("column2", "หมายเหตุ")
   
6.         DataGridView1.Columns.Add("column3", "วันที่")
   
7.         DataGridView1.Columns.Add("column4", "User")
   
8. 
   
9.         '// ตั้งค่า ColumnHeadersHeightSizeMode ก่อนที่จะทำการปรับความสูงของแถวได้
   
10.         DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
    
11.         DataGridView1.ColumnHeadersHeight = 36
    
12.         '// กำหนดให้ EnableHeadersVisualStyles = False เพื่อให้ยอมรับการเปลี่ยนแปลงสีพื้นหลัง
    
13.         DataGridView1.EnableHeadersVisualStyles = False
    
14.         ' ตัวอย่างการปรับ Header Style
    
15.         With DataGridView1.ColumnHeadersDefaultCellStyle
    
16.             .BackColor = Color.Navy
    
17.             .ForeColor = Color.Black
    
18.             .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
19.         End With
    
20. 
    
21.         For iCol As Integer = 0 To DataGridView1.Columns.Count - 1
    
22.             '// คำนวณหาเลขคู่กับเลขคี่ หากเลขจำนวนเต็มใดๆหารเอาเศษ (Mod) ด้วย 2 แล้วได้คำตอบ 1 คือเลขคี่
    
23.             If iCol Mod 2 = 1 Then
    
24.                 DataGridView1.Columns(iCol).HeaderCell.Style.BackColor = Color.DarkOrange
    
25.                 '// หารเอาเศษด้วย 2 ได้ 0 คือเลขคู่
    
26.             Else
    
27.                 DataGridView1.Columns(iCol).HeaderCell.Style.BackColor = Color.DeepSkyBlue
    
28.             End If
    
29.         Next
    
30.     End Sub
    
31. End Class

คัดลอกไปที่คลิปบอร์ด

g2gsoftuser

ขอบคุณครับ

jai

ขอบคุณมากครับ

yusanc

ขอบคุณครับ