序号，MshFlexgrid行高居中等
2024-10-16 15:42阅读：77
'''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，根据实际填写)
给此博文留言吧！
有机会上热评榜！
攒金币兑换礼品！
好的评论会让人崇拜发布评论
