社区
控件
帖子详情
万分紧急!?各位高手:在VB的几个Grid控件中我想指定任意一行或一列的背景颜色用哪种Grid控件能实现,怎么实现?????
emit
2003-08-23 06:48:46
用那种属性或方法来实现,请给我举个例子。谢谢!!!!!!
...全文
49
5
打赏
收藏
万分紧急!?各位高手:在VB的几个Grid控件中我想指定任意一行或一列的背景颜色用哪种Grid控件能实现,怎么实现?????
用那种属性或方法来实现,请给我举个例子。谢谢!!!!!!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lihonggen0
2003-08-25
打赏
举报
回复
'*********************************************************
'* 名称: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
liul17
2003-08-25
打赏
举报
回复
可以使用 msflexgrid 或 mshflexgrid 均可
msflexgrid.row=1 '1是你指定的行
for i = 0 to msflexgrid.cols -1
msflexgrid.col = i
msflexgrid.cellbackcolor = vbblue '设为蓝色
next
vbcool
2003-08-24
打赏
举报
回复
很高兴我能帮助你,我在最近的一段时间里也做了类似的程序,我采用的是Microsoft Hierarchical FlexGrid Control 6.0(OLE DB)
MSHFLexGrid 名.Row = 行
MSHFLexGrid 名.Col = 列
MSHFLexGrid 名.CellForeColor = 颜色
OK,你试一试,不过该控件不适合读太大的数据库!
tanyx
2003-08-24
打赏
举报
回复
flexgrid 很简单的,grid1.cellbackcolor,我经常用。
zhshop
2003-08-23
打赏
举报
回复
好象刚刚看到过一个这样的问题,你可以用MSHFLEXGRID,有一个属性是CELLBACKCOLOR,就行了,不过是某一个单元格的,所以呢,你还得再写循环来赋这个行或者列的CELLBACKCOLOR属性值。
不知道是否帮到你
vb
vb
.net 运算符号集
用了下暂时还不太上手,后期熟手了之后有可能会把一些
vb
6的程序公开发于代码博客。。。
vb
vb
.net 运算符号集 一、数学运算符 1. ^ 乘方,如:3^4 = 3*3*3*3 = 81 2. - 负值,如:-3 3. * 相乘,如:5*8=40 4...
vb
设置msflex
grid
某
一行
的
背景颜色
在网上搜索过多次,都没有发现此类文章。于是,决定自己摸索,终于... 部分代码如下: 1 设置 fillstyle 属性 例: msflex
grid
1.fillstyle=1 2 设置选定区域 例:选定区域 1行
一列
到1行10列 msflex
grid
1.row=1
【
VB
】删除MSHFlex
Grid
控件
中
一行
(机房问题)
一、删除MSHFlex
Grid
控件
中
的
一行
。二、信息分行显示。三、MDI主窗体的费用计算。
在
VB
中
任意
设置ListView
控件
的ListItem的
背景颜色
Private Sub SetListItemColor() Sub ...如果繪製整塊Item背景而不用平鋪的背景,則運行效率十分低!!七百多條數據就很慢了。 所以注意上面:picBgBox.Width = 1
VB
设置ListView
中
指定
一行
的
背景颜色
代码如下: ...'SetListViewBGColor(ListView
控件
名称,要设置的
背景颜色
行号,颜色值-默认:&HB6B4FF) Public Sub SetListViewBGColor(ByRef ListView As ListView, _ ByRef Index As Long, _ ...
控件
1,451
社区成员
41,355
社区内容
发帖
与我相关
我的任务
控件
VB 控件
复制链接
扫一扫
分享
社区描述
VB 控件
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章