美化 MSHFlexGrid,隔行设置颜色的通用函数
来源:互联网 发布:excel 数据有效性范围 编辑:程序博客网 时间:2024/06/13 12:13
' 设置MSHFlexGrid每行的颜色
Public Sub SetRowColor(ByRef MSHFlexGrid As Object)
Dim j, i, objName
objName = TypeName(MSHFlexGrid)
If StrConv(Trim(objName), vbUpperCase) <> "MSHFLEXGRID" Then
Exit Sub
End If
MSHFlexGrid.FillStyle = 1
For i = 1 To MSHFlexGrid.Rows - 1
MSHFlexGrid.Row = i
If i Mod 2 = 0 Then
MSHFlexGrid.Col = 0
MSHFlexGrid.ColSel = MSHFlexGrid.Cols - 1
MSHFlexGrid.CellBackColor = &H80FFFF
End If
Next i
MSHFlexGrid.FillStyle = 0
MSHFlexGrid.Row = 0
MSHFlexGrid.Col = 0
End Sub
Public Sub SetRowColor(ByRef MSHFlexGrid As Object)
Dim j, i, objName
objName = TypeName(MSHFlexGrid)
If StrConv(Trim(objName), vbUpperCase) <> "MSHFLEXGRID" Then
Exit Sub
End If
MSHFlexGrid.FillStyle = 1
For i = 1 To MSHFlexGrid.Rows - 1
MSHFlexGrid.Row = i
If i Mod 2 = 0 Then
MSHFlexGrid.Col = 0
MSHFlexGrid.ColSel = MSHFlexGrid.Cols - 1
MSHFlexGrid.CellBackColor = &H80FFFF
End If
Next i
MSHFlexGrid.FillStyle = 0
MSHFlexGrid.Row = 0
MSHFlexGrid.Col = 0
End Sub
- 美化 MSHFlexGrid,隔行设置颜色的通用函数
- 美化 MSHFlexGrid,隔行设置颜色的通用函数
- 美化 MSHFlexGrid,隔行设置颜色的通用函数
- 设置MSHFlexGrid每行的颜色
- VB中设置MSHFlexGrid每行的颜色
- 美化msflexgrid,隔行颜色显示
- MSHFlexGrid控件隔行变色效果
- listView隔行设置颜色重写SimpleAdapter
- listView隔行设置颜色重写SimpleAdapter
- [通用类]---颜色设置
- 隔行颜色设置及其设置特定行颜色(ctrlList)
- 设置MSHFlexGrid控件的标题居中显示
- C# DataGridView隔行显示不同的颜色
- C# DataGridView隔行显示不同的颜色
- C# DataGridView隔行显示不同的颜色
- C# DataGridView隔行显示不同的颜色
- DataGridView控件隔行显示不同的颜色
- DataGridView隔行显示不同的颜色
- asp.net默认的上传组件支持进度条反映
- 兵欲善其事,必先利其器
- I/O学习之小结
- 爱情=什么?代码回答你。
- 判断字符串是否是合法的EMail
- 美化 MSHFlexGrid,隔行设置颜色的通用函数
- Resize所有控件
- VB计算农历的算法
- 编程模拟 MouseEnter,MouseExit 事件
- [原创]ajax + cgi ?!
- 使用MsFlexGrid控件的几个函数
- 圆周率的计算(C语言版,绝对精华)
- 超越象牙塔:德里克·博克的大学理念
- window.open()的所有参数列表