比如我想让第2列不可见然后我在按钮的点击事件里面写了如下代码
MSFlexGrid1.ColIsVisible(2) = False
可是运行后点击按钮发现出现错误,错误描述为不能给常数赋值是什么意思?求解答!
vb msflexgrid的某一列设置不可见问题
答案:2 悬赏:40 手机版
解决时间 2021-02-03 17:04
- 提问者网友:难遇难求
- 2021-02-02 16:38
最佳答案
- 五星知识达人网友:零点过十分
- 2021-02-02 17:43
设置该列的宽度为0
MSFlexGrid1.ColWidth(2) = 0
你这个属性,不存在吧?
MSFlexGrid1.ColWidth(2) = 0
你这个属性,不存在吧?
全部回答
- 1楼网友:北城痞子
- 2021-02-02 18:14
指定msflexgrid特定列的序号,然后依次设置属于这个列单元格文字的颜色。
实现方法如下:
(1)新建一个vb6工程
(2)在form1上布置一个msflexgrid,一个textbox和command
text1用来指定要改变颜色列的序号
(3)窗体代码
option explicit
private sub command1_click()
dim currrow as integer, currcol as integer
with msflexgrid1
'记录msflexgrid1当前单元格所在的行与列
currrow = .row
currcol = .col
'改变指定列(由text1指定列的序号)
dim r as integer, c as integer
'打开错误陷阱
on error goto errproc
'获取指定的列
c = val(text1.text)
'设置为当前列
.col = c
'遍历各行,并改变文本的颜色
for r = 0 to .rows - 1
'设置当前行
.row = r
' 设置有当前行和当前列指定单元格的文本颜色为红色
.cellforecolor = vbred
.cellfontbold = true
next
'恢复先前指定的单元格
.row = currrow
.col = currcol
end with
errproc:
end sub
private sub form_load()
'设置msflexgrid1的行列数,并用数据
'填充单元格
with msflexgrid1
.rows = 5
.cols = 5
dim r as integer, c as integer
for r = 0 to .rows - 1
for c = 0 to .cols - 1
.textmatrix(r, c) = "第" & r & "行" & "第" & c & "列"
next
next
end with
text1.text = ""
command1.caption = "改变颜色"
end sub(4)运行效果
改变第1列的颜色
改变第4列的颜色
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯