序号，MshFlexgrid行高居中等_无影脚

http://blog.sina.com.cn/u/1234876082

首页博文目录关于我

个人资料

微博

加好友发纸条

写留言加关注

博客等级：
博客积分：

博客访问：
关注人气：
获赠金笔：0支
赠出金笔：0支
荣誉徽章：

正文字体大小：大中小

序号，MshFlexgrid行高居中等

(2024-10-16 15:42:24)

分类： VB程式

'''1、序号：公用模块
Public Sub Autoxh(Form As Form, Grid As MSHFlexGrid)
Grid.TextMatrix(0, 0) = "xh" '''加序号
Dim a As Long
'For a = 1 To rs.RecordCount '　直接写语句时，用此得序号
For a = 1 To Grid.Rows - 1 ' 调用过程查询时，用此得序号
Grid.TextMatrix(a, 0) = a '''' 加序号
Next a
  End Sub

'''调用：查询后,mshflexgrid添加序号
Autoxh Me, MSHFlexGrid2 '''调用序号模块(MSHFlexGrid2，根据实际填写)

'''2、MshFlexgrid标题居中，行高，公共模块
Public Sub hightAlignment(Form As Form, Grid As MSHFlexGrid)
  '''作用：mshflexgrid标题居中，网络居中，行高

'====================MSHFlexgrid标题居中==========================
Dim m, k, j
For m = 0 To Grid.Cols - 1
Grid.ColAlignmentFixed(m) = 4 '可选1-4
Next m
'====================MSHFlexgrid标题居中==========================


'-------------------------网格(非标题)居中对齐-------------------------------
For k = 0 To Grid.Cols - 1
Grid.ColAlignment(k) = 1 '可选1-4
Next k
'-------------------------网格(非标题)居中对齐-------------------------------

'************************ 改变行高 ************************
'Dim j
With Grid
.Visible = False
For j = 1 To .Rows - 1
.RowHeight(j) = 500 '''行高
Next
.Visible = True
End With
'************************ 改变行高 ************************

End Sub

'''调用：查询后，调用模块，使MshFlexgrid
hightAlignment Me, MSHFlexGrid2 '''调用模块HighaLigment，行高，居中(MSHFlexGrid2，根据实际填写)

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report

前一篇：判断文件是否存在

后一篇：combo随窗体大小改变

新浪BLOG意见反馈留言板　欢迎批评指正