在msflexgrid如何设置某一特定行的颜色(比如第一行)?急! 在msflexgrid如何设置某一特定行的颜色(比如第一行)?急! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 获得焦点的特定行的颜色是可以通过msflexgrid的属性进行设置;没有获得焦点的特定行的颜色是不能改的。 '*********************************************************'* 名称: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 WithEnd Function 湿度传感器串口数据的现实 请问当主窗口退出时如何判断是否有打开的子窗口? 急,在线等!!! 关于捕捉键盘事件和后台程序 求助!!! 有时间的话进来看看。 不好意思请问VB程序文件的图标怎么改? Form的卸载 关于263、sohu的smtp服务器身份认证问题,高手请进 再次提出"用王国荣的资料学习用VB的RDS程序有问题"! 调试问题!!! sql7标准版和sql7个人版是不同所两张盘吗?
没有获得焦点的特定行的颜色是不能改的。
'* 名称: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