ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 4479|ตอบกลับ: 3

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

[คัดลอกลิงก์]

312

กระทู้

503

โพสต์

6125

เครดิต

ผู้ดูแลระบบ

ทองก้อน ทับทิมกรอบ

Rank: 9Rank: 9Rank: 9

เครดิต
6125




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

มาดูโค้ดกันเถอะ ...
  1. Public Class Form1

  2.     Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  3.         DataGridView1.Columns.Add("column1", "ลำดับ")
  4.         DataGridView1.Columns.Add("column2", "หมายเหตุ")
  5.         DataGridView1.Columns.Add("column3", "วันที่")
  6.         DataGridView1.Columns.Add("column4", "User")

  7.         '// ตั้งค่า ColumnHeadersHeightSizeMode ก่อนที่จะทำการปรับความสูงของแถวได้
  8.         DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  9.         DataGridView1.ColumnHeadersHeight = 36
  10.         '// กำหนดให้ EnableHeadersVisualStyles = False เพื่อให้ยอมรับการเปลี่ยนแปลงสีพื้นหลัง
  11.         DataGridView1.EnableHeadersVisualStyles = False
  12.         ' ตัวอย่างการปรับ Header Style
  13.         With DataGridView1.ColumnHeadersDefaultCellStyle
  14.             .BackColor = Color.Navy
  15.             .ForeColor = Color.Black
  16.             .Font = New Font("Tahoma", 9, FontStyle.Bold)
  17.         End With

  18.         For iCol As Integer = 0 To DataGridView1.Columns.Count - 1
  19.             '// คำนวณหาเลขคู่กับเลขคี่ หากเลขจำนวนเต็มใดๆหารเอาเศษ (Mod) ด้วย 2 แล้วได้คำตอบ 1 คือเลขคี่
  20.             If iCol Mod 2 = 1 Then
  21.                 DataGridView1.Columns(iCol).HeaderCell.Style.BackColor = Color.DarkOrange
  22.                 '// หารเอาเศษด้วย 2 ได้ 0 คือเลขคู่
  23.             Else
  24.                 DataGridView1.Columns(iCol).HeaderCell.Style.BackColor = Color.DeepSkyBlue
  25.             End If
  26.         Next
  27.     End Sub
  28. End Class
คัดลอกไปที่คลิปบอร์ด

สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

0

กระทู้

58

โพสต์

10

เครดิต

Member

Rank: 2

เครดิต
10
โพสต์ 2022-10-25 19:38:22 | ดูโพสต์ทั้งหมด

ขอบคุณครับ

0

กระทู้

3

โพสต์

59

เครดิต

Member

Rank: 2

เครดิต
59
โพสต์ 2023-4-7 16:25:20 | ดูโพสต์ทั้งหมด

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

0

กระทู้

5

โพสต์

132

เครดิต

Member

Rank: 2

เครดิต
132
โพสต์ 2023-8-25 10:39:36 | ดูโพสต์ทั้งหมด

ขอบคุณครับ
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2024-5-22 14:19 , Processed in 0.245573 second(s), 4 queries , File On.

Powered by Discuz! X3.4, Rev.62

Copyright © 2001-2020 Tencent Cloud.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้