MSFlexGrid的使用...急急急急急急急急急急急急急急急!

nforcedzh 2003-08-04 12:03:51
能不能动态改变MSFlexGrid,某一个单元格的背景颜色。我试了一下,只能全部改变,不能改变一部分。请高手答复!
...全文
80 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
Alicky 2003-08-04
  • 打赏
  • 举报
回复
每一格不同色
不容易呀。
gpo2002 2003-08-04
  • 打赏
  • 举报
回复
MSHFlexGrid.CellBackColor = vbRed
mafangsan 2003-08-04
  • 打赏
  • 举报
回复
好象不能
nforcedzh 2003-08-04
  • 打赏
  • 举报
回复
OK!handwolf(初学者) 得分!
gpo2002 2003-08-04
  • 打赏
  • 举报
回复
VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3195
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin MSFlexGridLib.MSFlexGrid MSFlexGrid1
Height = 2415
Left = 600
TabIndex = 0
Top = 240
Width = 3255
_ExtentX = 5741
_ExtentY = 4260
_Version = 393216
Rows = 20
Cols = 20
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Resize()
MSFlexGrid1.Move Me.ScaleLeft, Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight
End Sub

Private Sub MSFlexGrid1_Click()
MSFlexGrid1.CellBackColor = vbRed
End Sub
handwolf 2003-08-04
  • 打赏
  • 举报
回复
哦,我试过了,可以的!
你先将MSFlexGrid1的col与row都设为4(防止下面代码越界)
With MSFlexGrid1
.col = 2
.Row = 2
.CellBackColor = &HFFF
.col = 1
.Row = 1
.CellBackColor = &HFFFF00
End With
可以看到正确结果!
handwolf 2003-08-04
  • 打赏
  • 举报
回复
With MSHFlexGrid1
.col = 3
.Row = 3
.CellBackColor = &HFFF
End With
MSHFlexGrid 是可以的,不知MSFlexGrid 可以否

你现指定col与row试试看
应该可以的!
nforcedzh 2003-08-04
  • 打赏
  • 举报
回复
gpo2002的答复,只能改变一行单元格背景色

1,451

社区成员

发帖
与我相关
我的任务
社区描述
VB 控件
社区管理员
  • 控件
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧