永发信息网

vb msflexgrid的某一列设置不可见问题

答案:2  悬赏:40  手机版
解决时间 2021-02-03 17:04
  • 提问者网友:难遇难求
  • 2021-02-02 16:38
比如我想让第2列不可见然后我在按钮的点击事件里面写了如下代码
MSFlexGrid1.ColIsVisible(2) = False
可是运行后点击按钮发现出现错误,错误描述为不能给常数赋值是什么意思?求解答!
最佳答案
  • 五星知识达人网友:零点过十分
  • 2021-02-02 17:43
设置该列的宽度为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列的颜色
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯