" id="b1img" alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO">
  • " alt="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" title="米课”N+1“思维建站-非官方免费技术支持,Wordpress/Zencart/Opencart建站、SEO" />
  • " alt="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" title="Windows/Linux服务器运维技术支持 环境搭建、应用发布、服务器管理、虚拟化、云计算" />
  • " alt="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" title="高校/小型企业网络运维与建设免费技术支持,网络规划、网络优化、故障排除、网络管理" />

VB-Mshflexgrid隔行显示不同颜色

程序设计2005-03-22 itlogger阅读(998) 评论(0)
Public Function FlexRedraw(F As MSHFlexGrid) As String

With F

.Redraw = False ‘禁止重画,防止闪动

.BackColorFixed = RGB(190, 218, 178) ‘标题行背景色

.Row = 0 ‘设置标题行文字的对其方式

.Col = 0

.ColSel = .Cols – 1

.CellForeColor = vbBlue ‘标题行文字颜色

.CellAlignment = 4 ‘对其方式为中间中间

.ScrollTrack = True ‘移动滚动条的同时数据也滚动

For I = .FixedRows To .Rows – 1 ‘单双行表格条纹背景色显示

.Row = I ‘选择第I行

.Col = .FixedCols

.ColSel = .Cols – 1

If I / 2 = Int(I / 2) Then ‘判断是单是双

.CellBackColor = RGB(224, 248, 224) ‘双行的底色

Else

.CellBackColor = RGB(240, 248, 224) ‘单行的底色

End If

Next I

.Row = 1

.Col = 1

.ColSel = .Cols – 1

.Redraw = True ‘允许重画,显示表格

End With

End Function

转载请注明 :IT樵客
文章地址:http://www.itlogger.com/program/3.html
标签:,
相关文章

发表评论

电子邮件地址不会被公开。 必填项已用*标注