7,789
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
cdyuan 2003-11-02
- 打赏
- 举报
在Form的Resize模块中加入
With MSHFlexGrid1
.Left=MARGIN_Size 'MARGIN_Size为预设的边界宽度
.TOP=MARGIN_Size
.Width=Me.ScaleWidth-2*MARGIN_Size
'然后分别设定第列的宽度占总宽度的百分数
.ColWidth(0)=.Width*0.10
.ColWidth(1)=.Width*0.05
.ColWidth(2)=.Width*0.15
.ColWidth(3)=.Width*0.20
......
End With
With MSHFlexGrid1
.Left=MARGIN_Size 'MARGIN_Size为预设的边界宽度
.TOP=MARGIN_Size
.Width=Me.ScaleWidth-2*MARGIN_Size
'然后分别设定第列的宽度占总宽度的百分数
.ColWidth(0)=.Width*0.10
.ColWidth(1)=.Width*0.05
.ColWidth(2)=.Width*0.15
.ColWidth(3)=.Width*0.20
......
End With
xueyi0008 2003-11-02
- 打赏
- 举报
up
apache8888 2003-11-02
- 打赏
- 举报
up
callzjy2 2003-11-02
- 打赏
- 举报
Private Sub adjustColWidth()
Dim Max As Integer
Dim i As Integer
Dim j As interger
For j = 0 To MSFlexGrid1.Cols - 1
Max = 0
For i = 0 To MSFlexGrid1.Rows - 1
If Len(Trim(MSFlexGrid1.TextMatrix(i, j))) > Max Then Max = Len(Trim(MSFlexGrid1.TextMatrix(i, j)))
Next i
MSFlexGrid1.ColWidth(j) = Max * 300
Next j
End Sub
test...
Dim Max As Integer
Dim i As Integer
Dim j As interger
For j = 0 To MSFlexGrid1.Cols - 1
Max = 0
For i = 0 To MSFlexGrid1.Rows - 1
If Len(Trim(MSFlexGrid1.TextMatrix(i, j))) > Max Then Max = Len(Trim(MSFlexGrid1.TextMatrix(i, j)))
Next i
MSFlexGrid1.ColWidth(j) = Max * 300
Next j
End Sub
test...
lop008 2003-10-03
- 打赏
- 举报
设定百分比阿!把表格的宽度累加起来.除以每个格的百分比就可以了!
楼上的办法需要有多么大的屏幕阿!
楼上的办法需要有多么大的屏幕阿!
abc10 2003-10-03
- 打赏
- 举报
先将每一列和每一行的宽度分别累加，累加的结果就是网格的高度和宽度。
ligis 2003-10-03
- 打赏
- 举报
??
