[VB.NET] การกำหนดค่าต่ำสุดและสูงสุดให้กับเซลล์ในตารางกริด (Min/Max Value in Cell of DataGridView)

thongkorn

โค้ดชุดนี้จะเป็นการกำหนดค่าที่จะป้อนตัวเลขให้ในแต่ละเซลล์ของตารางกริด โดยจำกัดค่าต่ำสุดไว้ที่ 0 และมีค่าสูงสุดไว้ที่ 1000 ถ้าหากเซลล์ใดมีค่า NULL (ไม่มีการป้อนข้อมูล) จะกำหนดค่าเซลล์นั้นๆให้เป็น 0 และหากว่าเกินกว่าที่กำหนดไว้ จะคืนค่าเดิมกลับคืนมา (ใช้คุณสมบัติ Tag ของ DataGridView ในการเก็บข้อมูลเดิม) ซึ่งแอดมินจะทำเป็นตัวอย่างเอาไว้ให้ 2 หลัก (Column) โดยที่หลักแรก (Index 0) จะต้องป้อนค่าเป็นเลขจำนวนเต็ม ส่วนหลักที่ 2 (Index 1) จะเป็นค่าตัวเลขแบบทศนิยม และแน่นอนว่าอาศัยเหตุการณ์ EventHandler เข้ามาช่วยในการตรวจสอบการกดคีย์ โดยที่เลขจำนวนเต็มจะรับค่าได้ 0 - 9 ส่วนจำนวนตัวเลขทศนิยมจะเพิ่มเครื่องหมาย . มาได้เพียงตัวเดียวเท่านั้น เพื่อไม่ให้เกิด Error ...





มาดูโค้ดฉบับเต็มกันเถอะ

1. Public Class frmMain
   
2.     '// START HERE
   
3.     Private Sub frmMain_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
4.         Call InitializeGrid(dgvData)
   
5.         Call FillSampleData()
   
6.     End Sub
   
7. 
   
8.     ' / --------------------------------------------------------------------------------
   
9.     '// Default settings for Grids @Run Time
   
10.     Private Sub InitializeGrid(ByRef dgv As DataGridView)
    
11.         With dgv
    
12.             .RowHeadersVisible = False
    
13.             .AllowUserToAddRows = False
    
14.             .AllowUserToDeleteRows = False
    
15.             .AllowUserToResizeRows = False
    
16.             .MultiSelect = False
    
17.             .SelectionMode = DataGridViewSelectionMode.CellSelect
    
18.             .ReadOnly = False
    
19.             .Font = New Font("Tahoma", 10)
    
20.             .RowHeadersVisible = True
    
21.             .RowTemplate.MinimumHeight = 27
    
22.             .RowTemplate.Height = 27
    
23.             .AlternatingRowsDefaultCellStyle.BackColor = Color.SkyBlue
    
24.             .DefaultCellStyle.SelectionBackColor = Color.OrangeRed
    
25.             '/ Auto size column width of each main by sorting the field.
    
26.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
27.             '/ Adjust Header Styles
    
28.             With .ColumnHeadersDefaultCellStyle
    
29.                 .BackColor = Color.Navy
    
30.                 .ForeColor = Color.White
    
31.                 .Font = New Font("Tahoma", 10, FontStyle.Bold)
    
32.             End With
    
33.         End With
    
34.         dgvData.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    
35.         dgvData.ColumnHeadersHeight = 36
    
36.         '// กำหนดให้ EnableHeadersVisualStyles = False เพื่อให้ยอมรับการเปลี่ยนแปลงสีพื้นหลังของ Header
    
37.         dgvData.EnableHeadersVisualStyles = False
    
38.     End Sub
    
39. 
    
40.     ' / --------------------------------------------------------------------------------
    
41.     ' / SAMPLE DATA INTO DATAGRIDVIEW
    
42.     Private Sub FillSampleData()
    
43.         Dim DT As New DataTable
    
44.         DT.Columns.Add("Integer Column")
    
45.         DT.Columns.Add("Double Column")
    
46.         Dim RandomClass As New Random()
    
47.         For iRow As Long = 0 To 19
    
48.             Dim DR As DataRow = DT.NewRow()
    
49.             DR(0) = RandomClass.Next(1, 1000)   '// Random Integer Value 1 - 1000
    
50.             DR(1) = Format(RandomClass.NextDouble * 1000, "0.00")   '// Random Double Value.
    
51.             DT.Rows.Add(DR)
    
52.         Next
    
53.         dgvData.DataSource = DT
    
54.         DT.Dispose()
    
55.     End Sub
    
56. 
    
57.     ' / --------------------------------------------------------------------------------
    
58.     ' / เหตุการณ์ในการตรวจสอบเงื่อนไข หลังจากการป้อนค่าลงไปและกด Enter
    
59.     Private Sub dgvData_CellEndEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellEndEdit
    
60.         Dim NewValue As Double = 0
    
61.         '// เช็ค Null Value หากไม่ป้อนค่าใดๆ ก็กำหนดค่าต่ำสุดเป็น 0
    
62.         If IsDBNull(dgvData.Rows.Item(e.RowIndex).Cells(e.ColumnIndex).Value) Then
    
63.             NewValue = 0    '// ค่าต่ำสุด
    
64.             '// มีการป้อนค่าตัวเลข ให้นำค่าไปเก็บไว้ในตัวแปร NewValue ก่อน
    
65.         Else
    
66.             NewValue = dgvData.Rows.Item(e.RowIndex).Cells(e.ColumnIndex).Value
    
67.         End If
    
68.         '// ตรวจสอบเงื่อนไขคือ 0 - 1000 (ที่จริง 0 ตัดทิ้งไปได้ เพราะเรา Validate Cell เป็นค่าต่ำสุดไว้อยู่แล้ว)
    
69.         If NewValue >= 0 AndAlso NewValue <= 1000 Then
    
70.             '// ค่าอยู่ในช่วง 0 - 1000 ให้นำค่าใหม่มาใส่แทน
    
71.             dgvData.Rows.Item(e.RowIndex).Cells(e.ColumnIndex).Value = NewValue
    
72.         Else
    
73.             '// ค่าไม่อยู่ในช่วง 0 - 1000 ให้นำค่าเดิมมาแทนที่ (ค่าเดิมเก็บไว้ที่ dgvData.Tag จากเหตุการณ์ dgvData_CellEnter)
    
74.             dgvData.Rows.Item(e.RowIndex).Cells(e.ColumnIndex).Value = dgvData.Tag
    
75.         End If
    
76.         '// เงื่อนไขจาก ColumnIndex เพื่อปรับชนิดข้อมูล (Convert)
    
77.         Select Case e.ColumnIndex
    
78.             Case 0  '// Integer
    
79.                 dgvData.Rows.Item(e.RowIndex).Cells(e.ColumnIndex).Value = Format(CInt(dgvData.Rows.Item(e.RowIndex).Cells(e.ColumnIndex).Value), "0")
    
80.             Case 1  '// Double
    
81.                 dgvData.Rows.Item(e.RowIndex).Cells(e.ColumnIndex).Value = Format(CDbl(dgvData.Rows.Item(e.RowIndex).Cells(e.ColumnIndex).Value), "0.00")
    
82.         End Select
    
83.     End Sub
    
84. 
    
85.     Private Sub dgvData_CellEnter(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellEnter
    
86.         '// นำค่าเดิมไปเก็บไว้ในคุณสมบัติ Tag ของ DataGridView โดยไม่ต้องประกาศใช้งานตัวแปรใหม่
    
87.         '// ปกติเราจะป้อนข้อมูลได้ทีละเซลล์อยู่แล้ว ก็ให้โฟกัสไปที่แถวและหลักนั้นๆ
    
88.         dgvData.Tag = dgvData.Rows.Item(e.RowIndex).Cells(e.ColumnIndex).Value
    
89.     End Sub
    
90. 
    
91.     ' / --------------------------------------------------------------------------------
    
92.     ' / เหตุการณ์ในการกดคีย์ เลขจำนวนเต็มจะรับค่าได้ 0 - 9 ส่วนเลขทศนิยมจะเพิ่มเครื่องหมาย . มาได้เพียงตัวเดียวเท่านั้น
    
93.     Private Sub dgvData_EditingControlShowing(sender As Object, e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles dgvData.EditingControlShowing
    
94.         Select Case dgvData.Columns(dgvData.CurrentCell.ColumnIndex).Index
    
95.             '// ColumeIndex 0 is Integer and ColumnIndex 1 is Double.
    
96.             Case 0, 1
    
97.                 '// Force to validate value at ValidKeyPress Event.
    
98.                 RemoveHandler e.Control.KeyPress, AddressOf ValidKeyPress
    
99.                 AddHandler e.Control.KeyPress, AddressOf ValidKeyPress
    
100.         End Select
     
101.     End Sub
     
102. 
     
103.     ' / --------------------------------------------------------------------------------
     
104.     Private Sub ValidKeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs)
     
105.         Dim tb As TextBox = sender
     
106.         Select Case dgvData.CurrentCell.ColumnIndex
     
107.             Case 0  '// Integer
     
108.                 Select Case e.KeyChar
     
109.                     Case "0" To "9"   ' digits 0 - 9 allowed
     
110.                     Case ChrW(Keys.Back)    ' backspace allowed for deleting (Delete key automatically overrides)
     
111.                     Case Else ' everything else ....
     
112.                         '// True = CPU cancel the KeyPress event
     
113.                         e.Handled = True '// and it's just like you never pressed a key at all
     
114.                 End Select
     
115. 
     
116.             Case 1  '// Double
     
117.                 Select Case e.KeyChar
     
118.                     Case "0" To "9"
     
119.                         '// Allowed "."
     
120.                     Case "."
     
121.                         '// But it can present "." only one.
     
122.                         If InStr(tb.Text, ".") Then e.Handled = True
     
123. 
     
124.                     Case ChrW(Keys.Back)
     
125.                     Case Else
     
126.                         e.Handled = True
     
127.                 End Select
     
128.         End Select
     
129.     End Sub
     
130. 
     
131. End Class

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

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่ ...