'代碼撰寫如下
Private Sub Form_Load()
Dim i, j As Integer
MSHFlexGrid1.TextMatrix(2, 0) = "A"
MSHFlexGrid1.TextMatrix(2, 1) = "A"
MSHFlexGrid1.TextMatrix(2, 2) = "A"
MSHFlexGrid1.TextMatrix(2, 3) = "A"
'合并單元格
MSHFlexGrid1.MergeRow(2) = True
MSHFlexGrid1.MergeCells = 2
End Sub
運行后的效果如下：
我需要的效果如下：
uj5u.com熱心網友回復：
這是初始資料，沒合并之前的資料，控制元件屬性設定的是4行、4列
uj5u.com熱心網友回復：
只能在內容中想辦法，這樣試試：MSHFlexGrid1.TextMatrix(2, 0) = "A "
MSHFlexGrid1.TextMatrix(2, 1) = "A "
MSHFlexGrid1.TextMatrix(2, 2) = "A"
MSHFlexGrid1.TextMatrix(2, 3) = "A"
uj5u.com熱心網友回復：
還有一種方法，隱藏一個分隔列：Private Sub Form_Load()
MSHFlexGrid1.Rows = 4
MSHFlexGrid1.Cols = 5 '多設 1 列
MSHFlexGrid1.ColWidth(2) = 0 '第 3 列隱藏
MSHFlexGrid1.TextMatrix(2, 0) = "A"
MSHFlexGrid1.TextMatrix(2, 1) = "A"
MSHFlexGrid1.TextMatrix(2, 3) = "A"
MSHFlexGrid1.TextMatrix(2, 4) = "A"
'合并單元格
MSHFlexGrid1.MergeRow(2) = True
MSHFlexGrid1.MergeCells = 2
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/50053.html
標籤：控件