[VB6] การนำ DateTimePicker มาใส่ไว้ในตารางกริด MS FlexGrid แบบ Run Time

thongkorn

แอดมินไม่ขอพูดมาก เจ็บคอ 5555+ ... เพราะเนื่องจากได้แจกโค้ดและอธิบายวิธีการคิดในเรื่องนี้ไปไว้ใน VB.NET เป็นที่เรียบร้อย อ่านรายละเอียดได้จาก [VB.NET] การนำ DateTimePicker และ Button Control ไปใส่ไว้ในตารางกริด DataGridView แบบ Run Time ... แท้จริงแล้วแอดมินเขียนด้วย VB6 มาก่อน แล้วก็นำเอาหลักการนี้ไปใช้ใน VB.NET แต่พึ่งเอาโค้ดมาลงให้กับมิตรรักแฟนคลับสาย VB6 ครับผม ... สรุปให้ฟังเล็กน้อยล่ะกัน หากมีการโฟกัสไปยังเซลล์ (ยึดตามหลัก) ที่เราต้องการ ให้เปิดการแสดงผล DTPicker แล้วเอา DTPicker ไปวางทับในเซลล์นั้นๆ นำค่าจากเซลล์มาใส่ไว้ใน DTPicker หากมีการเปลี่ยนแปลงค่าใน DTPicker จะต้องนำค่านี้ไปใส่ไว้ในเซลล์ด้วย หากหลุดโฟกัสออกจากเซลล์ ให้ปิดการแสดงผล DTPicker ... จบ


หน้าจอในการออกแบบ



หน้าจอเมื่อสั่งรันโปรแกรม ... ก็ต้องมีการปรับระยะของการแสดงผลของ DTPicker ให้ตรงกับความกว้างของเซลล์ด้วย


มาดูโค้ดฉบับเต็ม ...

1. ' / -----------------------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand only)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Adding the DTPicker into MS FlexGrid Control.
   
8. ' / Microsoft Visual Basic 6.0 Service Pack 6
   
9. ' /
   
10. ' / This is open source code under @Copyleft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / -----------------------------------------------------------------------------------------------
    
13. Option Explicit
    
14. 
    
15. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    
16.     Select Case KeyCode
    
17.         Case vbKeyF2
    
18.             Call fg_Click
    
19.    
    
20.     End Select
    
21. End Sub
    
22. 
    
23. Private Sub Form_Load()
    
24.     '// ปิดการแสดงผล DTPicker
    
25.     Me.DTPicker1.Visible = False
    
26.     '// ตั้งค่าตารางกริด
    
27.     Call SetupGrid
    
28.     Randomize
    
29.     '// Sample Data
    
30.     With fg
    
31.         .AddItem "1" & vbTab & "1111" & vbTab & "เหล้าเร้ด" & vbTab & Format(DateAdd("d", Date, -Rnd * 365), "dd/mm/yyyy")
    
32.         .AddItem "2" & vbTab & "2222" & vbTab & "เหล้าว็อดก้า" & vbTab & Format(DateAdd("d", Date, -Rnd * 365), "dd/mm/yyyy")
    
33.         .AddItem "3" & vbTab & "3333" & vbTab & "เหล้าขาว" & vbTab & Format(DateAdd("d", Date, -Rnd * 365), "dd/mm/yyyy")
    
34.     End With
    
35. End Sub
    
36. 
    
37. '/ ตั้งค่าต่างๆของ FlexGrid แบบ Run Time
    
38. Sub SetupGrid()
    
39.     With fg
    
40.         '/ สั่ง Clear FlexGrid
    
41.         .Clear
    
42.         .FixedCols = 0
    
43.         .Rows = 1
    
44.         .Cols = 4
    
45.         .TextMatrix(0, 0) = "Primary Key"
    
46.         .TextMatrix(0, 1) = "รหัสสินค้า"
    
47.         .TextMatrix(0, 2) = "ชื่อสินค้า"
    
48.         .TextMatrix(0, 3) = "วันที่ซื้อ"
    
49.         .ColWidth(0) = .Width \ 4 - 400
    
50.         .ColWidth(1) = .Width \ 4 - 600
    
51.         .ColWidth(2) = .Width \ 4 + 800
    
52.         .ColWidth(3) = .Width \ 4 - 100
    
53.         '//
    
54.         .RowHeightMin = DTPicker1.Height
    
55.     End With
    
56. End Sub
    
57. 
    
58. ' / -----------------------------------------------------------------------------------------------
    
59. ' / เกิดเหตุการณ์นำเมาส์ไปคลิ๊กที่ Cell ใดๆใน FlexGrid
    
60. Private Sub fg_Click()
    
61. ' / -----------------------------------------------------------------------------------------------
    
62.     If fg.Row = 0 Then Exit Sub
    
63.     '/ เลือกหลักที่ต้องการ
    
64.     Select Case fg.Col
    
65.         '/ ไม่ใชหลักที่ต้องการให้ DTPicker  ปรากฏ ก็ปิดการแสดงผลของ DTPicker
    
66.         Case 0 To 2:
    
67.             DTPicker1.Visible = False
    
68.             
    
69.         '/ หลัก 3 คือหลักที่ต้องการ และทำการเคลื่อนย้ายตำแหน่ง DTPicker  เข้าสู่ FlexGrid ได้
    
70.         Case 3:
    
71.             DTPicker1.Visible = True   ' เปิดการแสดงผล DTPicker
    
72.             DTPicker1.Value = fg.Text   ' นำค่าจาก FlexGrid มาเทียบค่าใน DTPicker
    
73.             '/ เคลื่อนย้ายตำแหน่ง DTPicker ไปในเซลล์ต่างๆของหลักที่ 3 และปรับระยะเท่ากับเซลล์นั้นๆ
    
74.             DTPicker1.Move fg.CellLeft + fg.Left, fg.CellTop + fg.Top, fg.CellWidth
    
75.     End Select
    
76. End Sub
    
77. 
    
78. ' / -----------------------------------------------------------------------------------------------------------------------------------
    
79. Private Sub DTPicker1_Click()
    
80. ' / -----------------------------------------------------------------------------------------------------------------------------------
    
81.     '/ หากอยู่ที่หลัก 3 หากเกิดการเปลี่ยนค่าในการเลือก DTPicker  ก็นำค่านั้นไปใส่ไว้ในเซลล์ของ FlexGrid
    
82.     If fg.Col = 3 Then fg.Text = DTPicker1.Value
    
83. End Sub
    
84. 
    
85. '// Addition: เพิ่มเติมในส่วนของการปรับระยะให้ดูสวยงาม
    
86. Private Sub Form_Resize()
    
87.     On Error Resume Next
    
88.     Me.fg.Move 15, 15, Me.ScaleWidth - 15, Me.ScaleHeight - 30
    
89.     With fg
    
90.         .ColWidth(0) = .Width \ 4 - 400
    
91.         .ColWidth(1) = .Width \ 4 - 600
    
92.         .ColWidth(2) = .Width \ 4 + 800
    
93.         .ColWidth(3) = .Width \ 4 - 100
    
94.     End With
    
95.     '/ เคลื่อนย้ายตำแหน่ง DTPicker ไปในเซลล์ต่างๆของหลักที่ 3 และปรับระยะเท่ากับเซลล์นั้นๆ
    
96.     DTPicker1.Move fg.CellLeft + fg.Left, fg.CellTop + fg.Top, fg.CellWidth
    
97. End Sub

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

ดาวน์โหลดโค้ดฉบับเต็ม VB6 ได้ที่นี่ ...

MrDen

ขอบคุณครับผม