不可以,有个控件好象叫TrueGrid的可以,不过是个商业控件
解决方案 »
- 怎样第1个窗口的数组的所有值传给第2个窗口的数组?
- VB如何读*.dbf的数据???小女子求教拉!!!!谢谢
- 问题两个各50分!最早答对得给分!
- 结帐,请sxs69() ( ) 信誉:104 进来领分,希望以后继续关注我的问题,谢谢了!
- 如何读英文单词?
- 妹妹的问题:怎样让窗体总在最前?
- 高分求救:怎样做软件逻辑图?(一定给分。)
- 送分了!access2003中sql访问得奇怪现象
- 我有个activex控件(ocx)有用户名跟密码 这两样我都有 问题是怎么注册呢
- 那有读写jpg的控件?
- 急!什么是FTP服务器,它有什么特性,要使一台DOS系统的机变成FTP服务器要装什么软件?
- 如何将旧的15位身份证号转成18位新的身份证号?
不过要一个个设置颜色的话,好象刷新速度比较慢~~
先定位,再设置。
'* 名称: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