[VB6] การนำ ComboBox Control ไปใส่ไว้ในตารางกริด MSFlexGrid แบบ Run Time

thongkorn

การทำงานกับบริษัทฯข้ามชาติ เขาค่อนข้างที่จะเข้มงวดมากกับเรื่องซอฟท์แวร์ลิขสิทธิ์ เวลาพัฒนาโปรแกรมต่างๆที่ใช้งานในหน่วยงานขององค์กร จึงต้องใช้ทรัพยากรระบบที่มีอยู่อย่างเต็มที่ จะไปคาดหวังขอจัดซื้อจัดหาคอมโพเนนท์สุดหรูดูเริ่ดมาใช้งาน มันไม่ใช่เรื่องง่ายๆเลย หากพาวเวอร์แรงเจอร์ไม่เพียงพอ 5555+ ... นี่แหละคือที่มาของบทความในเรื่องนี้ครับผม ...

ตาราง MSFlexGrid เป็น Component ที่ติดมากับ Visual Basic 6 มีความเร็วในการอ่านข้อมูลได้ดี แต่มันมีคุณสมบัติเป็นแบบ Read Only คือแสดงผลข้อมูลได้อย่างเดียว ไม่สามารถคีย์ข้อมูลอะไรเข้าไปได้ แล้วเราจะนำเอา ComboBox เข้าไปใส่ไว้ในแต่ละเซลล์ที่เราต้องการได้อย่างไร???
หลักการคิด แบบเรียงลำดับขั้นตอนก็ไม่ได้ยุ่งยาก ...
- เมื่อเปิดฟอร์มขึ้นมา ต้องซ่อน ComboBox มันเอาไว้ก่อน (Visible = False)
- เมื่อเมาส์เคลื่อนไปจิ้มเลือกในเซลล์ที่เราต้องการ เราก็ย้าย ComboBox มันเคลื่อนที่ไปทับเซลล์นั้นๆ และเปิดให้มันแสดงผล (Visible = True)
- เมื่อผู้ใช้งานเลือก Item ที่มีอยู่ใน ComboBox เราก็ทำการคัดลอกข้อมูลนั้นไปเก็บเอาไว้ในเซลล์ที่ ComboBox มันทับเอาไว้
- เมื่อเกิดการเคลื่อนที่ออกจากเซลล์ไปโฟกัสยัง Control ตัวอื่นๆ เราก็ปิดการแสดงผลของ ComboBox (Visible = False) ก็เป็นอันจบพิธี

1. ' / -----------------------------------------------------------------------------------------------
   
2. Private Sub Form_Load()
   
3.     '// Center form @Run time
   
4.     Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
   
5.     '// Initialize MSFlexGrid Control
   
6.     Call SetupGrid
   
7.     '
   
8.     With Combo1
   
9.         .ZOrder (0)
   
10.         '// Load the ComboBox's list.
    
11.         .AddItem "M100"
    
12.         .AddItem "M150"
    
13.         .AddItem "M16"
    
14.         '// Adjust column width
    
15.         .Width = fg.ColWidth(2)
    
16.         .ListIndex = 0
    
17.         '// Hidden Control
    
18.         .Visible = False
    
19.     End With
    
20. End Sub

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

เมื่อเริ่มต้นการทำงาน

1. ' / -----------------------------------------------------------------------------------------------
   
2. ' / Initialize FlexGrid
   
3. Private Sub SetupGrid()
   
4. ' / -----------------------------------------------------------------------------------------------
   
5.     With fg
   
6.         .Clear
   
7.         .Cols = 3
   
8.         .TextMatrix(0, 0) = "Column 1"
   
9.         .TextMatrix(0, 1) = "Column 2"
   
10.         .TextMatrix(0, 2) = "Combo Box"
    
11.         '//
    
12.         .ColWidth(0) = 1200
    
13.         .ColWidth(1) = 2600
    
14.         .ColWidth(2) = Combo1.Width
    
15.         '
    
16.         .RowHeightMin = Combo1.Height
    
17.     End With
    
18.     '// เพิ่มรายการข้อมูลทดสอบเข้าไปใน MSFlexGrid
    
19.     With fg
    
20.         .AddItem "1" & vbTab & "Product 1" & vbTab & "M16"
    
21.         .AddItem "2" & vbTab & "Product 2" & vbTab & "M150"
    
22.         .AddItem "3" & vbTab & "Product 3" & vbTab & "M100"
    
23.         .AddItem "4" & vbTab & "Product 4" & vbTab & "M16"
    
24.     End With
    
25. End Sub

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

เริ่มต้นค่า (Initialize) ให้กับ MSFlexGrid และใส่ข้อมูลตัวอย่าง

1. ' / -----------------------------------------------------------------------------------------------
   
2. ' / เกิดเหตุการณ์นำเมาส์ไปคลิ๊กที่ Cell ใดๆใน MSFlexGrid
   
3. Private Sub fg_Click()
   
4. ' / -----------------------------------------------------------------------------------------------
   
5.     If fg.Row = 0 Then Exit Sub
   
6.     '// เลือกหลักที่ต้องการ
   
7.     Select Case fg.Col
   
8.         '// ไม่ใช่หลักที่ต้องการให้ ComboBox ปรากฏ ก็ปิดการแสดงผลของ ComboBox
   
9.         Case 0 To 1:
   
10.             Combo1.Visible = False
    
11.             
    
12.         '// หลักที่ 3 (Index = 2) คือหลักที่ต้องการ และทำการเคลื่อนย้ายตำแหน่ง ComboBox เข้าสู่ FlexGrid ได้
    
13.         Case 2:
    
14.             Combo1.Visible = True   '// เปิดการแสดงผล ComboBox
    
15.             Combo1.Text = fg.Text   '// นำค่าจาก FlexGrid มาเทียบค่าใน ComboBox
    
16.             '// เคลื่อนย้ายตำแหน่ง ComboxBox ไปในเซลล์ต่างๆของหลักที่ 3
    
17.             '// Move ซ้าย, บน, กว้าง, สูง
    
18.             Combo1.Move fg.CellLeft + fg.Left, fg.CellTop + fg.Top, fg.CellWidth
    
19.     End Select
    
20. End Sub

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

เหตุการณ์นำเมาส์ไปคลิ๊กที่ Cell ใดๆใน MSFlexGrid โดยให้สังเกตหลักที่ 3 (โดยมี Index = 2 เพราะเรานับค่าเริ่มต้นจาก 0) ตรงนี้นี่เองที่เรานำเอา ComboBox เคลื่อนที่ไปปิดทับเซลล์นั้นๆ

1. ' / -----------------------------------------------------------------------------------------------
   
2. Private Sub Combo1_Click()
   
3. ' / -----------------------------------------------------------------------------------------------
   
4.     '// กรณีโฟกัสหลัก 3 (Index = 2) หากเกิดการเปลี่ยนค่าในการเลือก ComboBox ก็นำค่านั้นไปใส่ไว้ในเซลล์ของ MSFlexGrid
   
5.     If fg.Col = 2 Then fg.Text = Combo1.Text
   
6. End Sub

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

เมื่อคลิ๊กเลือกไอเทม ก็ทำการคัดลอก (Copy) ค่าในไอเทมไปใส่ไว้ในเซลล์ที่ถูกเลือก


Project --> Components ...

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

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)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' /
   
8. ' / Purpose: Adding ComboBox control into DataGridView @Runtime.
   
9. ' / Microsoft Visual Basic 6.0 Service Pack 6
   
10. ' /
    
11. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
12. ' / You can modify and/or distribute without to inform the developer.
    
13. ' / -----------------------------------------------------------------------------------------------
    
14. Option Explicit
    
15. 
    
16. ' / -----------------------------------------------------------------------------------------------
    
17. Private Sub Form_Load()
    
18.     '// Center form @Run time
    
19.     Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    
20.     '// Initialize MSFlexGrid Control
    
21.     Call SetupGrid
    
22.     '
    
23.     With Combo1
    
24.         .ZOrder (0)
    
25.         '// Load the ComboBox's list.
    
26.         .AddItem "M100"
    
27.         .AddItem "M150"
    
28.         .AddItem "M16"
    
29.         '// Adjust column width
    
30.         .Width = fg.ColWidth(2)
    
31.         .ListIndex = 0
    
32.         '// Hidden Control
    
33.         .Visible = False
    
34.     End With
    
35. End Sub
    
36. 
    
37. ' / -----------------------------------------------------------------------------------------------
    
38. ' / Initialize FlexGrid
    
39. Private Sub SetupGrid()
    
40. ' / -----------------------------------------------------------------------------------------------
    
41.     With fg
    
42.         .Clear
    
43.         .Cols = 3
    
44.         .TextMatrix(0, 0) = "Column 1"
    
45.         .TextMatrix(0, 1) = "Column 2"
    
46.         .TextMatrix(0, 2) = "Combo Box"
    
47.         '//
    
48.         .ColWidth(0) = 1200
    
49.         .ColWidth(1) = 2600
    
50.         .ColWidth(2) = Combo1.Width
    
51.         '
    
52.         .RowHeightMin = Combo1.Height
    
53.     End With
    
54.     '// เพิ่มรายการข้อมูลทดสอบเข้าไปใน MSFlexGrid
    
55.     With fg
    
56.         .AddItem "1" & vbTab & "Product 1" & vbTab & "M16"
    
57.         .AddItem "2" & vbTab & "Product 2" & vbTab & "M150"
    
58.         .AddItem "3" & vbTab & "Product 3" & vbTab & "M100"
    
59.         .AddItem "4" & vbTab & "Product 4" & vbTab & "M16"
    
60.     End With
    
61. End Sub
    
62. 
    
63. ' / -----------------------------------------------------------------------------------------------
    
64. ' / เกิดเหตุการณ์นำเมาส์ไปคลิ๊กที่ Cell ใดๆใน MSFlexGrid
    
65. Private Sub fg_Click()
    
66. ' / -----------------------------------------------------------------------------------------------
    
67.     If fg.Row = 0 Then Exit Sub
    
68.     '// เลือกหลักที่ต้องการ
    
69.     Select Case fg.Col
    
70.         '// ไม่ใช่หลักที่ต้องการให้ ComboBox ปรากฏ ก็ปิดการแสดงผลของ ComboBox
    
71.         Case 0 To 1:
    
72.             Combo1.Visible = False
    
73.             
    
74.         '// หลักที่ 3 (Index = 2) คือหลักที่ต้องการ และทำการเคลื่อนย้ายตำแหน่ง ComboBox เข้าสู่ FlexGrid ได้
    
75.         Case 2:
    
76.             Combo1.Visible = True   '// เปิดการแสดงผล ComboBox
    
77.             Combo1.Text = fg.Text   '// นำค่าจาก FlexGrid มาเทียบค่าใน ComboBox
    
78.             '// เคลื่อนย้ายตำแหน่ง ComboxBox ไปในเซลล์ต่างๆของหลักที่ 3
    
79.             '// Move ซ้าย, บน, กว้าง, สูง
    
80.             Combo1.Move fg.CellLeft + fg.Left, fg.CellTop + fg.Top, fg.CellWidth
    
81.     End Select
    
82. End Sub
    
83. 
    
84. ' / -----------------------------------------------------------------------------------------------
    
85. Private Sub Combo1_Click()
    
86. ' / -----------------------------------------------------------------------------------------------
    
87.     '// กรณีโฟกัสหลัก 3 (Index = 2) หากเกิดการเปลี่ยนค่าในการเลือก ComboBox ก็นำค่านั้นไปใส่ไว้ในเซลล์ของ MSFlexGrid
    
88.     If fg.Col = 2 Then fg.Text = Combo1.Text
    
89. End Sub

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

Conclusion: จะเห็นได้เลยว่าวิธีการขั้นตอนต่างๆนั้น มันไม่ได้มีอะไรที่ยุ่งยากซับซ้อนเลย นอกจากจะนำไปใช้งานจริงได้แล้ว ยังเป็นการฝึกคิดแก้ปัญหา นั่นก็หมายความว่ายิ่งได้รับประสบการณ์มากขึ้นจากการพัฒนาตนเอง ...
ดาวน์โหลดโค้ดต้นฉบับ VB6 ได้ที่นี่