背景颜色在DATAGRID的属性中就可以设置了啊。
解决方案 »
- vb6对数据库sqlserver200和access操作有什么不同?
- 如何实现字符串右对齐?
- 请问各位大虾,在vb中,怎么连接 PostgreSQL 数据库??
- 有谁可以帮我啊。
- 总是出现下标越界问题?(高手请帮忙看看)
- 关于listbox的问题
- 如何设置ODBC FOR FOXPRO
- 一般说vb程序员现在吃香么? 工资一般是多少?
- 高分相赠,在线等待,我如何实现这个复合查询?
- 救急!!!一个字符串格式为"...\..."我现在要取出"\"后面的字符串应该怎么办?
- 急!给一百分!如何用VB6的datareport及脱离数据环境的recordset设计含有分组的数据报表?
- 急!做一张98启动盘,把盘中全部内容发给我。30分就全是他的,先发先得!
奇,偶分一下就行
奇,偶分一下就行
用mshflexgrid可以'*********************************************************
'* 名称:FlexRedraw
'* 功能:表格的标题行(首行)的格式化
'* 用法:FlexRedraw(控件名)
'*********************************************************
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