الحمد لله تم الوصول الى بداية الخيط ولكن مع MSHFlexGrid
PHP كود :
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
With Grid
' Set some basic settings.
.AllowUserResizing = flexResizeColumns
.Cols = 11
.Rows = 9
.FixedCols = 1
.FixedRows = 3
' Allow cells to merge if it is similiar, whether is by row or col.
.MergeCells = flexMergeFree
' Sample 1: Merge fixed rows.
.TextMatrix(0, 0) = "ÇáæÞÊ"
.TextMatrix(1, 0) = "Çáíæã"
.TextMatrix(2, 0) = "Çáíæã"
.MergeCol(0) = True ' Enable col 0 to merge if next row has same data.
' Sample 2: Merge fixed rows.
.TextMatrix(3, 0) = "ÇáÓÈÊ"
.TextMatrix(4, 0) = "ÇáÃÍÏ"
.TextMatrix(5, 0) = "ÇáÇËäíä"
.TextMatrix(6, 0) = "ÇáËáÇËÇÁ"
.TextMatrix(7, 0) = "ÇáÇÑÈÚÇÁ"
.TextMatrix(8, 0) = "ÇáÎãíÓ"
.MergeCol(0) = True ' Enable col 0 to merge if next row has same data.
' Sample 3: Merge fixed cols.
.TextMatrix(0, 1) = "ÇáÝÊÑÉ ÇáÇæáí"
.TextMatrix(0, 2) = "ÇáÝÊÑÉ ÇáÇæáí"
.TextMatrix(0, 3) = "ÇáÝÊÑÉ ÇáÇæáí"
.MergeRow(0) = True ' Enable row 0 to merge if next col has same data.
' Sample 4: Merge fixed cols.
.TextMatrix(0, 4) = "ÇáÝÊÑÉ ÇáËÇäíÉ"
.TextMatrix(0, 5) = "ÇáÝÊÑÉ ÇáËÇäíÉ"
.TextMatrix(0, 6) = "ÇáÝÊÑÉ ÇáËÇäíÉ"
.MergeRow(0) = True ' Enable row 0 to merge if next col has same data.
' Sample 5: Merge fixed cols.
.TextMatrix(0, 7) = "ÇáÝÊÑÉ ÇáËÇáËÉ"
.TextMatrix(0, 8) = "ÇáÝÊÑÉ ÇáËÇáËÉ"
.TextMatrix(0, 9) = "ÇáÝÊÑÉ ÇáËÇáËÉ"
.MergeRow(0) = True ' Enable row 0 to merge if next col has same data.
' Sample 6: Merge fixed cols.
.TextMatrix(0, 10) = "ãáÇÍÙÇÊ"
.TextMatrix(1, 10) = "ãáÇÍÙÇÊ"
.TextMatrix(2, 10) = "ãáÇÍÙÇÊ"
.MergeCol(10) = True ' Enable Col 10 to merge if next col has same data.
' Sample 7: Merge fixed rows.
.TextMatrix(1, 1) = "ÇáãÇÏÉ"
.TextMatrix(2, 1) = "ÇáãÇÏÉ"
.MergeCol(1) = True ' Enable col 1 to merge if next row has same data.
' Sample 8: Merge fixed rows.
.TextMatrix(1, 2) = "ÇáæÞÊ"
.TextMatrix(1, 3) = "ÇáæÞÊ"
.MergeRow(1) = True ' Enable Row 1 to merge if next row has same data.
' Sample 9: Merge fixed rows.
.TextMatrix(2, 2) = "ãä"
' Sample 9: Merge fixed rows.
.TextMatrix(2, 3) = "Çáì"
' Sample 10: Merge fixed rows.
.TextMatrix(1, 4) = "ÇáãÇÏÉ"
.TextMatrix(2, 4) = "ÇáãÇÏÉ"
.MergeCol(4) = True ' Enable col 4 to merge if next row has same data.
' Sample 11: Merge fixed rows.
.TextMatrix(1, 5) = "ÇáæÞÊ"
.TextMatrix(1, 6) = "ÇáæÞÊ"
.MergeCol(6) = True ' Enable col 6 to merge if next row has same data.
' Sample 12: Merge fixed rows.
.TextMatrix(2, 5) = "ãä"
' Sample 13: Merge fixed rows.
.TextMatrix(2, 6) = "Çáì"
' Sample 14: Merge fixed rows.
.TextMatrix(1, 7) = "ÇáãÇÏÉ"
.TextMatrix(2, 7) = "ÇáãÇÏÉ"
.MergeCol(5) = True ' Enable col 5 to merge if next row has same data.
' Sample 15: Merge fixed rows.
.TextMatrix(1, 8) = "ÇáæÞÊ"
.TextMatrix(1, 9) = "ÇáæÞÊ"
.MergeCol(5) = True ' Enable col 5 to merge if next row has same data.
' Sample 16: Merge fixed rows.
.TextMatrix(2, 8) = "ãä"
' Sample 17: Merge fixed rows.
.TextMatrix(2, 9) = " Çáì"
.MergeCol(7) = True ' Enable col 7 to merge if next row has same data.
End With
End Sub
Private Sub Grid_Click()
End Sub
