1,451
社区成员
发帖
与我相关
我的任务
分享程序运行时，想动态增加MSFlexgrid的列数，该怎么做？
例如，向第3列前插入一列，同时调整相应的列标题（类似EXCEL的做法），请问怎么实现？
...全文
请发表友善的回复…
发表回复
fuxiaoczm 2003-12-10
- 打赏
- 举报
我试一下
kinlin 2003-12-09
- 打赏
- 举报
在第2列后插入一列：
Private Sub Form_Load()
Me.MSHFlexGrid1.Cols = 5
MSHFlexGrid1.Rows = 2
For i = 0 To Me.MSHFlexGrid1.Cols - 1
Me.MSHFlexGrid1.TextMatrix(0, i) = i
Me.MSHFlexGrid1.TextMatrix(1, i) = i
Next
End Sub
Private Sub Command1_Click()
Me.MSHFlexGrid1.Cols = Me.MSHFlexGrid1.Cols + 1
Me.MSHFlexGrid1.ColPosition(5) = 3
End Sub
Private Sub Form_Load()
Me.MSHFlexGrid1.Cols = 5
MSHFlexGrid1.Rows = 2
For i = 0 To Me.MSHFlexGrid1.Cols - 1
Me.MSHFlexGrid1.TextMatrix(0, i) = i
Me.MSHFlexGrid1.TextMatrix(1, i) = i
Next
End Sub
Private Sub Command1_Click()
Me.MSHFlexGrid1.Cols = Me.MSHFlexGrid1.Cols + 1
Me.MSHFlexGrid1.ColPosition(5) = 3
End Sub
northwolves 2003-12-09
- 打赏
- 举报
Private Sub Command1_Click()
With MSFlexGrid1
.Cols = .Cols + 1
For i = 0 To .Cols - 1
.ColWidth(i) = .Width / .Cols
.TextMatrix(0, i) = i
Next
End With
End Sub
Private Sub Form_Load()
With MSFlexGrid1
.Rows = 10
.Cols = 5
For i = 0 To .Cols - 1
.ColWidth(i) = .Width / .Cols
.TextMatrix(0, i) = i
Next
End With
End Sub
