mshflexgrid设置单元格的背景的问题啊

[4102509]

MSHFlexGrid1.CellBackColor = vbRed可以设置单元格背景,但我点击
下一个单元格时,上一个单元格不能变回原来的颜色,我如何做?

[4102509]

有没有更简单一点的方法

[射天狼]

Dim lngOldRow As Long

Private Sub MSFlexGrid1_SelChange()
MSFlexGrid1.Redraw = False
Dim i As Long, lngNewRow As Long

lngNewRow = MSFlexGrid1.Row
MSFlexGrid1.Row = lngOldRow
For i = 1 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i
MSFlexGrid1.CellBackColor = vbWhite
Next

MSFlexGrid1.Row = lngNewRow
For i = 1 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i
MSFlexGrid1.CellBackColor = vbRed
Next
MSFlexGrid1.Redraw = True

lngOldRow = lngNewRow
End Sub

[daisy8675]

其实搜索一下就有了，我以前写过代码的，等下，我找找
现在在网吧

[熊孩子开学喽]

有简单的办法啊，定义两个全局变量
Dim OldRaw as Long
Dim OldCol as Long
...
...
Sub grid1_click() '
...
...
'先干你的事，比如什么当前格的背景颜色啊什么的都改好
with grid1
.raw=oldraw
.dol=oldcol
.CellBackColor = Color '原来的那个格子的颜色
oldraw=.raw
oldcol=.col
...
...
End sub

明白了吗？？简单吧！

[熊孩子开学喽]

唉，又忘记写END WITH了，罪过罪过！楼主自己调试的时候加上吧

[4102509]

谢谢各位啦,给分~

[tztz520]

如果你这样做,只能MSHFlexGrid1.CellBackColor = "原来的颜色"一行行恢复了.