[VB.NET] การสร้างหลัก Column Countdown เพื่อเปรียบเทียบและนับเวลาถอยหลังในตารางกริด

thongkorn

จากคำถามที่ถามมาในเว็บบอร์ด โจทย์ก็ธรรมดาแต่น่าสนใจดี แอดมินเลยมานำเสนอกระบวนการคิดในการแก้ปัญหา และเทคนิคการนำเอา DateTimePicker มาใส่ไว้ใน DataGridView โดยเราจะต้องเขียนโค้ด หรือที่เรียกว่า Run-Time (เห็นผลก็ต่อเมื่อรันโปรแกรม) ซึ่งมันจะมีประสิทธิภาพที่สูงกว่าการ Design-Time (ออกแบบอย่างไรจะมองเห็นผลได้ทันที) ... หลักการคือเพิ่มแถวรายการขึ้นมาก่อน จากนั้นทำการเปลี่ยนวันที่ เวลา แล้วนำเวลาในตารางกริดในแต่ละแถว ไปเปรียบเทียบกับเวลาปัจจุบัน หากเวลาในตารางกริดยังมากกว่าเวลาปัจจุบัน มันก็จะนับเวลาถอยหลังไปเรื่อย จนกว่าจะน้อยกว่าเวลาปัจจุบัน ก็จะหยุดการนับ


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

1. Public Class frmCountDownGrid
   
2.     '// Declare object of the DateTimePicker.
   
3.     Dim oDTP As New DateTimePicker
   
4. 
   
5.     Private Sub frmCountDownGrid_FormClosed(sender As Object, e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
   
6.         Me.Dispose()
   
7.         GC.SuppressFinalize(Me)
   
8.     End Sub
   
9. 
   
10.     '// KeyDown Function Keys.
    
11.     Private Sub frmCountDownGrid_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    
12.         Select Case e.KeyCode
    
13.             Case Keys.F3
    
14.                 Call AddRow()
    
15.             Case Keys.F5
    
16.                 Call btnRemoveRow_Click(sender, e)
    
17.             Case Keys.F10
    
18.                 Me.Close()
    
19.         End Select
    
20. 
    
21.     End Sub
    
22. 
    
23.     Private Sub frmCountDownGrid_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
24.         Me.KeyPreview = True    '// For KeyDown Event.
    
25.         With dgvData
    
26.             '// Autosize Column
    
27.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
28.             .AllowUserToAddRows = False
    
29.             .SelectionMode = DataGridViewSelectionMode.CellSelect
    
30.             '// Data rows
    
31.             .Font = New Font("Tahoma", 9)
    
32.             ' Adjust Header Styles
    
33.             With .ColumnHeadersDefaultCellStyle
    
34.                 .BackColor = Color.Navy
    
35.                 .ForeColor = Color.Black ' Color.White
    
36.                 .Font = New Font("Tahoma", 9, FontStyle.Bold)
    
37.             End With
    
38.             .RowHeadersDefaultCellStyle.SelectionBackColor = Color.Empty
    
39.         End With
    
40.         '// Declare columns type.
    
41.         Dim ProjectName As New DataGridViewTextBoxColumn()
    
42.         Dim Deadline As New DataGridViewTextBoxColumn
    
43.         Dim CountDown As New DataGridViewTextBoxColumn()
    
44.         '// Add new Columns
    
45.         dgvData.Columns.AddRange(New DataGridViewColumn() { _
    
46.                                  ProjectName, Deadline, CountDown _
    
47.                                 })
    
48. 
    
49.         With dgvData
    
50.             .Columns(0).HeaderText = "Project Name"
    
51.             .Columns(1).HeaderText = "Deadline"
    
52.             .Columns(2).HeaderText = "Countdown"
    
53.             .Columns(2).DefaultCellStyle.Format = "dd/MM/yyyy HH:mm:ss"
    
54.             .Columns(2).DataPropertyName = "Date"
    
55.             '// Add 4th column (Index = 3), It's Button.
    
56.             Dim btnAddRow As New DataGridViewButtonColumn()
    
57.             dgvData.Columns.Add(btnAddRow)
    
58.             With btnAddRow
    
59.                 .HeaderText = ""
    
60.                 .Text = "Add"
    
61.                 .Name = "btnAddRow"
    
62.                 .UseColumnTextForButtonValue = True
    
63.                 .Width = 60
    
64.             End With
    
65.             '// Add 5th column (Index = 4), It's Button.
    
66.             Dim btnRemoveRow As New DataGridViewButtonColumn()
    
67.             dgvData.Columns.Add(btnRemoveRow)
    
68.             With btnRemoveRow
    
69.                 .HeaderText = ""
    
70.                 .Text = "Delete"
    
71.                 .Name = "btnRemoveRow"
    
72.                 .UseColumnTextForButtonValue = True
    
73.                 .Width = 60
    
74.             End With
    
75.         End With
    
76.         '//
    
77.         Timer1.Interval = 1000  '// Refresh every 1 second.
    
78.         Timer1.Enabled = True
    
79.         lblCompareTime.Text = Format(Now, "dd/MM/yyyy HH:mm:ss")
    
80.     End Sub
    
81. 
    
82.     Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
    
83.         For row As Integer = 0 To dgvData.Rows.Count - 1
    
84.             Dim StartDate As Date = dgvData.Rows(row).Cells(1).Value
    
85.             Dim EndDate As Date = Date.Now
    
86.             Dim TimeSpan As TimeSpan = StartDate.Subtract(EndDate)
    
87.             Dim DifDays As Integer = TimeSpan.Days
    
88.             Dim DifHr As Integer = TimeSpan.Hours
    
89.             Dim DifMin As Integer = TimeSpan.Minutes
    
90.             Dim DifSec As Integer = TimeSpan.Seconds
    
91.             '// เปรียบเทียบเวลา Deadline กับเวลาปัจจุบัน (lblCompareTime) ที่จะเดินหน้าทุกวินาที
    
92.             '// หากยังมีค่าไม่เท่ากัน ก็นับถอยหลังลงไปเรื่อยๆ จนกว่า Deadline จะมีค่าที่ต่ำกว่าเวลาปัจจุบัน
    
93.             lblCompareTime.Text = Format(Now, "dd/MM/yyyy HH:mm:ss")
    
94.             If dgvData.Rows(row).Cells(1).Value > CDate(lblCompareTime.Text) Then
    
95.                 '// ถอยหลังเวลาลงไปเรื่อยๆ
    
96.                 dgvData.Rows(row).Cells(2).Value = DifDays & " วัน, " & DifHr & " ชั่วโมง, " & DifMin & " นาที, " & DifSec & " วินาที."
    
97. 
    
98.             ElseIf dgvData.Rows(row).Cells(1).Value <= CDate(lblCompareTime.Text) Then
    
99.                 dgvData.Rows(row).Cells(2).Value = "0 วัน, 0 ชั่วโมง, 0 นาที, 0 วินาที."
    
100.             End If
     
101.         Next
     
102.     End Sub
     
103. 
     
104.     '// Add new row.
     
105.     Private Sub AddRow()
     
106.         Dim row As String() = New String() {"Project", Now(), "", Now()}
     
107.         dgvData.Rows.Add(row)
     
108.     End Sub
     
109. 
     
110.     '/ Event is clicked in the cell.
     
111.     Private Sub dgvData_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellClick
     
112.         Select Case e.ColumnIndex
     
113.             '// DateTimePicker
     
114.             Case 1
     
115.                 '//Adding DateTimePicker control into DataGridView   
     
116.                 dgvData.Controls.Add(oDTP)
     
117. 
     
118.                 '// Setting the custom format.
     
119.                 oDTP.Format = DateTimePickerFormat.Custom
     
120.                 oDTP.CustomFormat = "dd/MM/yyyy HH:mm:ss"
     
121.                 oDTP.ShowUpDown = True
     
122. 
     
123.                 '// It returns the retangular area that represents the Display area for a cell  
     
124.                 Dim oRectangle = dgvData.GetCellDisplayRectangle(e.ColumnIndex, e.RowIndex, True)
     
125. 
     
126.                 '//Setting area for DateTimePicker Control  
     
127.                 oDTP.Size = New Size(oRectangle.Width, oRectangle.Height)
     
128. 
     
129.                 '// Setting Location
     
130.                 oDTP.Location = New Point(oRectangle.X, oRectangle.Y)
     
131.                 '// Read value from DataGridView into DateTimePicker
     
132.                 oDTP.Value = dgvData.CurrentCell.Value
     
133.                 '// Now make it visible  
     
134.                 oDTP.Visible = True
     
135.                 '// Force to change date value at oDTP_ValueChanged Event.
     
136.                 AddHandler oDTP.ValueChanged, AddressOf oDTP_ValueChanged
     
137. 
     
138.                 '// Add Button
     
139.             Case 3
     
140.                 Call AddRow()
     
141.                 '// Delete Button
     
142.             Case 4
     
143.                 Call btnRemoveRow_Click(sender, e)
     
144.         End Select
     
145.     End Sub
     
146. 
     
147.     '// Event Handler when the change value in DateTimePicker.
     
148.     Private Sub oDTP_ValueChanged(sender As Object, e As System.EventArgs)
     
149.         '// Display date value and copy the value into current cell.
     
150.         dgvData.CurrentCell.Value = Format(oDTP.Value, "dd/MM/yyyy HH:mm:ss")
     
151.     End Sub
     
152. 
     
153.     Private Sub dgvData_CellLeave(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvData.CellLeave
     
154.         '// Hidden DateTimePicker when lost focus the cell.
     
155.         oDTP.Visible = False
     
156.     End Sub
     
157. 
     
158.     Private Sub frmCountDownGrid_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
     
159.         oDTP.Visible = False
     
160.     End Sub
     
161. 
     
162.     Private Sub btnAddRow_Click(sender As System.Object, e As System.EventArgs) Handles btnAddRow.Click
     
163.         Call AddRow()
     
164.     End Sub
     
165. 
     
166.     Private Sub btnRemoveRow_Click(sender As System.Object, e As System.EventArgs) Handles btnRemoveRow.Click
     
167.         If dgvData.RowCount = 0 Then Exit Sub
     
168.         dgvData.Rows.Remove(dgvData.CurrentRow)
     
169.     End Sub
     
170. End Class

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

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