请问如何在程序里自己调整MshFlexgrid的列宽行高??

jishibo 2004-10-04 01:12:31
问题如题,Mshflexgrid默认所有的列都是一样宽的,而我在用的时候有些列很短(序号)有些则很长默认的列宽又不够.能够根据内容的宽度自动设置列宽也可以啊.
...全文
500 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
jishibo 2004-10-04
  • 打赏
  • 举报
回复
谢谢,可以结帖了.
Ferdi 2004-10-04
  • 打赏
  • 举报
回复
With MSHFlexGrid1

'(缺省的)不允许。用户不能用鼠标来重新调整大小。
.AllowUserResizing = flexResizeNone

'列。用户可以用鼠标来重新调整列的大小。
.AllowUserResizing = flexResizeColumns

'行。用户可以用鼠标来重新调整行的大小。
.AllowUserResizing = flexResizeRows

'行和列。用户可以用鼠标来重新调整行和列的大小。
.AllowUserResizing = flexResizeBoth

End With
Ferdi 2004-10-04
  • 打赏
  • 举报
回复
例如控件MSHFlexGrid1有5行5列,可以进行如下设置

With MSHFlexGrid1
'表格5行5列
.Rows = 5
.Cols = 5

'设置列宽
.ColWidth(0) = 1000 '第一列
.ColWidth(1) = 2000 '第二列

'设置其它列宽
For i = 2 To 4
.ColWidth(i) = .Width / 6
Next i

'设置行高
.RowHeight(0) = 600 '第一行

'设置其它行高
For j = 1 To 4
.RowHeight(j) = .Height / 8
Next j
End With
jishibo 2004-10-04
  • 打赏
  • 举报
回复
再问一下,允许用户可以使用鼠标更改行高和列宽的代码是什么?我一般用属性里调整,不知道用代码里用哪个方法?
tztz520 2004-10-04
  • 打赏
  • 举报
回复
MSFlexGrid1.ColWidth(0) = 2000'设置列宽
MSFlexGrid1.RowHeight(0) = 1000'设置行高

1,453

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧