社区
控件
帖子详情
万分紧急!?各位高手:在VB的几个Grid控件中我想指定任意一行或一列的背景颜色用哪种Grid控件能实现,怎么实现?????
emit
2003-08-23 06:48:46
用那种属性或方法来实现,请给我举个例子。谢谢!!!!!!
...全文
51
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
考试的所有重点和考点。并对考试原题
中
的每一个知识点进行了解释和剖析。 课程内容:
VB
可视化编程基础、
VB
语言基础、基本的控制结构、数组和自定义类型、过程、用户界面设计、数据文件、图形文件。
vb
vb
.net 运算符号集
网络收集~~~ 网站开放了CODE.csdn.net/jiaguoxinzhi 用了下暂时还不太上手,后期熟手了之后有可能会把一些
vb
6的程序公开发于代码博客。。。
vb
vb
.net 运算符号集 一、数学运算符 1. ^ 乘方,如:3^4 = 3*3*3*3 = 81 2. - 负值,如:-3 3. * 相乘,如:5*8=40 4. / 相除,如:9/3=3 注意相除为右仰斜线 5. \ 取整,如:4\3=1 注意取整为左仰斜线 6.Mod取余,如:5 Mode 3 =2
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 SetListItemColor() If mlvwPlayList.ListItems.Count = 0 Then Exit Sub If picBgBox Is Nothing Then Err.Raise
vb
ObjectError + 1001, "Object PlayList", "Pro
控件
1,451
社区成员
41,355
社区内容
发帖
与我相关
我的任务
控件
VB 控件
复制链接
扫一扫
分享
社区描述
VB 控件
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章