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

jishibo 2004-10-04 01:12:31
问题如题,Mshflexgrid默认所有的列都是一样宽的,而我在用的时候有些列很短(序号)有些则很长默认的列宽又不够.能够根据内容的宽度自动设置列宽也可以啊.
...全文
501 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'设置行高
更多商业源程序:www.bzcode.net 本程序为通用打印程序,单据、会计凭证、发票清单、报表、任意复杂表格、合并表格如工矿企业合同都可以由系统提供的几个默认打印对象组合打印。 DataGrid、DataTable、ListView、MSHFlexGrid等二维形式或二维数组全部可以打印。源码二次开发,通打天下报表。 后期版本将陆续提供XML描述、SQL数据源的打印,并用管理器管理任意多个网格、文本对象、图象等,用户可以随意定义。 主要功能: 打印、预览,可以调整打印页面设置、打印机设置、显示打印预览对话框 主标题、副标题、页顶、网格头、多层表头(网格标题)、网格主体(明细)、网格底、页底等打印对象 可以指定每个对象是否每页重复打印 超自动压缩,可以调整行高、合并方式 分组合并报表,合并方式还可以选择任意合并、按行、按合并等 可以调整套打 可以每页都显示当前页小计 可以为每页指定打印行数,默认自适应 可以打印装订线,分左装订和上装订,随意选择 打印有效区域矩阵,以在开发中参照 可以指定打印边框,分单边框,加粗单边框、双边框、加粗双边框等等 分页处理、可编程分栏处理 背景颜色、图片 能够生成Excel文件、Excel打印预览、Excel操作。 自定制模板打印,非常灵活。完成各种打印、套打、报表、图表分析。

1,453

社区成员

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

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