1,451
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
Onlyce 2004-01-10
- 打赏
- 举报
这么简单啊，我一直试着改.cellwidth，结果不行。谢谢了
northwolves 2004-01-10
- 打赏
- 举报
Private Sub Command1_Click()
With MSFlexGrid1
For i = 0 To 2
.ColWidth(i) = .Width \ 5
Next
End With
End Sub
Private Sub Form_Load()
With MSFlexGrid1
.FixedCols = 0
.Rows = 10
.Cols = 3
For i = 0 To 2
.ColWidth(i) = .Width \ 3
.TextMatrix(0, i) = "第" & i + 1 & "列"
Next
End With
End Sub
With MSFlexGrid1
For i = 0 To 2
.ColWidth(i) = .Width \ 5
Next
End With
End Sub
Private Sub Form_Load()
With MSFlexGrid1
.FixedCols = 0
.Rows = 10
.Cols = 3
For i = 0 To 2
.ColWidth(i) = .Width \ 3
.TextMatrix(0, i) = "第" & i + 1 & "列"
Next
End With
End Sub
