Hierarchical Flexgrid

Hierarchical Flexgrid เป็นตัว control แบบตารางอีกตัว ที่อยู่ใน Visual Basic 6 มีแตกต่างจาก DataGrid คือ Hierarchical Flexgrid สามารถรวมคอนฟิกเซลล์ที่อยู่ต่างแถวกัน ถ้ามีค่าเดียวกัน ตัว control มีความสามารถนี้

เมื่อกำหนด Hierarchical ADO Recordset ให้กับคุณสมบัติ DataSource เพราะสามารถแสดงเป็นหลายแถบ โดยแต่ละแถบเป็นกลุ่มคอลัมน์ขอ้มูลที่มาจาก Recordset ลูกที่ต่างกันในโครงสร้างสำคัญขั้นของข้อมูล แต่เป็นตัว control แบบอ่านอย่างเดียว

Note: Hierarchical Flexgrid มีคำสั่งมีสอดคล้องกับ Flexgrid ซึ่งไม่สนับสนุน ADO Data control และ data source แต่ Hierarchical Flexgrid นำมาใช้แทน Flexgrid

Hierarchical Flexgrid รวมอยู่ ในไฟล์ MSHFLXGD.OCX ซึ่งต้องการกระจายไปกับโปรแกรมประยุกต์ ที่ใช้ตัว control นี้

การตั้งค่าคุณสมบัติเมื่อออกแบบ

เพื่อสร้าง Hierarchical Flexgrid และรวมข้อมูลแล้ว จะสามารถคลิกเมาส์มุ่มขวาบนตัว control เละเลือก คำสั่ง Retrieve Structure ซึ่งเติมตารางด้วยส่วนหัวคอลัมน์อ้างถึงฟิลด์ที่ต่างในแหล่งข้อมูล แต่ไม่มีคำสั่ง Edit ทำให้ไม่สามารถใช้เมาส์ปรับปรุงและความกว้างคอลัมน์ เมื่อออกแบบ

แท็บ General

ในแท็บ General ให้กำหนดค่าของคุณสมบัติ Rows และ Cols เพื่อหาจำนวนคอลัมน์ และแถวบนตาราง เมื่อ DataSource ยังไม่ที่แหล่งข้อมูล ADO โดยทั่วไปมิติของตาราง ขึ้นกับจำนวนเรคคอร์ดและฟิลด์ในแหล่งข้อมูล คุณสมบัติ FixedRow และ FixedCol แสดง จำนวน แถวและคอลัมน์ที่ต้องไว้ ที่ด้านซ้ายและด้านขวาของตาราง

ถ้าคุณสมบัติ AllowBigSection เป็น True การคลิกส่วนหัวของแถวหรือคอลัมน์จะเป็นการเลือกทั้งแถวหรือคอลัมน์ คุณสมบัติ Highlight มีผลต่อลักษณะภายนอกของเซลล์ที่เลือก ที่ค่าใช้ คือ 0-flexHighlightNever (ไม่มีไฮไลต์) 1-flexHighlightAlways (ไฮไลต์เซลล์ที่เลือกตลอดเวลา) และ 2-flexHighlightWithFocus (ไฮไลต์เซลล์เมื่อได้รับโฟกัส) คุณสมบัติ FocusRect แสดงลักษณะของรอบเซลล์ปัจจุบัน

คุณสมบัติ BandDisplay สามารถเปลี่ยน การแสดงลักษณะ band คุณสมบัติ FillStyle มีผลต่อวิธีการเปลี่ยนต่อคุณสมบัติ Text มีรูปแบบ คือ 0-flexFillSingle (เฉพาะเซลล์ปัจจุบัน) 1-flexFillRepeat (เซลล์ที่เลือกทั้งหมด) คุณสมบัติ SelectionMode สำหรับวิธีการเลือกเฉพาะเซลล์ บังคับเลือกทั้งแถวหรือคอลัมน์

คุณสมบัติ AllowUserResize กำหนดวิธีการที่ให้ผู้ใช้ปรับขนาดแถว หรือคอลัมน์ด้วยเมาส์ ตามค่าดังนี้ 0-flexResizeNone (ไม่ให้ปรับขนาด) 1-flexResizeColumn (ปรับได้เฉพาะคอลัมน์) 2-flexResizeRows (ปรับได้เฉพาะแถว) หรือ 3-flexResizeBoth (ปรับได้ทั้ง 2 แถว) การจำกัดผลการปรับขนาดแถวสามารถใช้คุณสมบัติ RowSizingMode สามารถเป็น 0-flexRowSizeIndividual (เฉพาะแถวที่ปรับขนาด และเป็นค่าเริ่มต้น) และ 1-flexRowSizeAll (แถวทั้งหมดได้รับการปรับขนาด)

แท็บ Bands

แท็บ Bands เป็นแท็บที่สำคัญซึ่งเกี่ยวข้องกับการเลือกฟิลด์ใน Recordset แม่และลูกให้มองเห็นได้ในตาราง ตามปกติมักจะมีการซ่อนที่ฟิลด์ numeric key ที่ไม่สื่อความหมายกับผู้ใช้ และการซ้ำ foreign key
แท็บ Bands ยอมให้ตั้งค่าคุณลักษณะของ band ในฟิลด์ GridLines สามารถเลือกประเภทเส้นที่ลากระหว่าง band ปัจจุบันกับ band ต่อไป ค่าที่ตรงกับคุณสมบัติ GridLinesBand สามารถเป็นค่า 0-flexGridNone, 1-flexGridFlat (ค่าเริ่มต้น) 2-flexGridInset, 3-flexGridRaised, 4-flexGridDashes หรือ 5-flexGridDots
รูปแบบข้อความสามารถเลือกรูปแบบเป็น 3 มิติ ในการแสดงข้อความบน band ตามค่าในคุณสมบัติ TextStyleBand คุณสมบัติ BandIndent ใช้ตั้งค่าจำนวนคอลัมน์ของ band ที่มีการย่อหน้า คุณสมบัติBandExpandable ระบุว่า band สามารถขยาย หรือรวม จากเครื่องหมายบวก หรือลบที่จะแสดงในคอลัมน์แรก คุณสมบัติ ColumnHeader สำหรับการแสดงชื่อคอลัมน์เหนือ band

แท็บอื่น ๆ

แท็บ Style ยินยอมให้ตั้งคุณสมบัติที่มีผลกับลักษณะภายนอกของตาราง คุณสมบัติ Gridlines fixed ตรงกับรูปแบบของเส้นตาราง คุณสมบัติ TextStyleFixed แสดงข้อความ 3 มิติ แถวและคอลัมน์ที่ตรึง
คุณสมบัติ RowHeightMin เป็นค่าความสูงน้อยที่สุดของแถว ใน twips คุณสมบัติ GridLinesUnpopulated มีผลกับรูปแบบของเซลล์ที่ไม่เก็บค่า

การกำหนดเมื่อเรียกใช้

Hierarchical Flexgrid มีคุณสมบัติประมาณ 160 คุณสมบัติ ส่วนใหญ่เกี่ยวกับลักษณะภายนอก แต่มีคุณสมบัติ เมธอด และ event ที่สำคัญและใช้ประโยชน์ได้มาก

การทำงานกับเซลล์ปัจจุบัน

คุณสมบัติเรียกใช้ที่สำคัญ ของ Hierarchical Flexgrid คือ Row, Col และ Text ซึ่งตั้งค่าและส่งออกพิกัด และข้อมูลของเซลล์ปัจจุบัน คำสั่งในโปรแกรมที่ทำงานกับตัว control ทีสามารถเปลี่ยนข้อมูลของเซลล์ แต่ค่าใหม่จะไม่เก็บลงในฐานข้อมูล เนื่องจากเป็นตัว control แบบอ่านอย่างเดียว

ตัว control มีคุณสมบัติแบบอย่างเดียว สำหรับการส่งออกสารสนเทศของเซลล์ปัจจุบัน เช่น การหาประเภทของเซลล์ปัจจุบันโดยการค้นหาคุณสมบัติ CellType
Hierarchical Flexgrid ต่างจาก DataGrid โดยยินยอมให้ทำงานกับลักษณะภายนอกของเซลล์ผ่านคุณสมบัติ เช่น CellBackColor, CellForeColor, CellFontName เป็นต้น

Private Sub MSHFlexGrid1_DblClick()
   If MSHFlexGrid1.CellBackColor = vbWindowBackGround Then
      ' ไฮไลต์เซลล์ ด้วยตัวอักษรขาวบนพื้นหลังสีน้ำเงิน
      MSHFlexGrid1.CellBackColor = vbBlue
      MSHFlexGrid1.CellForeColor = vbWhite
   Else
      ' ฟื้นสีตามค่าเริ่มต้น
      MSHFlexGrid1.CellBackColor = vbWindowBackGround
      MSHFlexGrid1.CellForeColor = vbWindowText
   End If
End Sub

การเข้าถึงเซลล์อื่น

ถ้าคุณสมบัติ FillStyle ตั้งค่าเป็น 1-flexFillRepeat ซึ่งมีผลต่อคุณสมบัติอื่นในช่วงการเลือกเซลล์ รวมถึงคุณสมบัติ CellPicture, CellPictureAlignment และคุณสมบัติ CellFontXXXX ทำให้มีวิธีการเปลี่ยนรูปแบบของกลุ่มเซลล์ โดยการกำหนดค่าคุณสมบัติที่เหมือนกันจากการกำหนดในเซลล์เดียว
การใช้ความสามารถที่มีผลต่อหลายเซลล์ ด้วยการกำหนดในเซลล์เดียว ต้องใช้คุณสมบัติ RowSel และ ColSel เพื่อทราบถึงพิกัดของช่วงการเลือกปัจจุบัน คุณสมบัตินี้ส่งออกแถวและคอลัมน์ที่มุมหนึ่งของพื้นที่สี่เหลี่ยมที่เลือก เซลล์ที่อยู่มุมตรงข้ามจะเป็นเซลล์ที่แอ็คทีฟ และได้รับการชี้โดยคุณสมบัติ Row และ Col

Dim total As Double, r As Long, c As Long
Dim rowMin As Long, rowMax As Long
Dim colMin As Long, colMax As Long

If MSHFlexGrid1.Row < MSHFlexGrid1.RowSel Then
   rowMin = MSHFlexGrid1.Row
   rowMax = MSHFlexGrid1.RowSel
Else
   rowMin = MSHFlexGrid1.RowSel
   rowMax = MSHFlexGrid1.Row
End If

If MSHFlexGrid1.Col < MSHFlexGrid1.ColSel Then
   rowMin = MSHFlexGrid1.Col
   rowMax = MSHFlexGrid1.ColSel
Else
   rowMin = MSHFlexGrid1.ColSel
   rowMax = MSHFlexGrid1.Col
End If

On Error Resume Next

For r = rowMin To rowMax
   For c = colMin To colMax
      total = total + CDbl(MSHFlexGrid1.TextMatrix(r, c))
   Next
Next

ดาวน์โหลดตัวอย่าง (FlexGrid.vbp)