7,763
社区成员
发帖
与我相关
我的任务
分享如何改变MSHFlexGrid一行的颜色
选取MSHFlexGrid的一行数据后该行的数据会变为蓝色
不知道如何才能实现用键盘的上下方向键移动记录时该记录象被整行选取那样为蓝色?
不知道如何才能实现用键盘的上下方向键移动记录时该记录象被整行选取那样为蓝色?
...全文
请发表友善的回复…
发表回复
TT008 2003-09-17
- 打赏
- 举报
看来只能用循环
Dim r, rr As Long
Private Sub MSHFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
'For i = 1 To MSHFlexGrid1.Rows - 1
For j = 1 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Row = rr
MSHFlexGrid1.Col = j
MSHFlexGrid1.CellBackColor = vbWhite
Next
'Next
For k = 1 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Row = r
MSHFlexGrid1.Col = k
MSHFlexGrid1.CellBackColor = vbRed
Next
MSHFlexGrid1.Col = 1
End Sub
Private Sub MSHFlexGrid1_RowColChange()
If r <> 0 Then
If r <> MSHFlexGrid1.RowSel Then
rr = r
End If
End If
r = MSHFlexGrid1.RowSel
End Sub
Dim r, rr As Long
Private Sub MSHFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
'For i = 1 To MSHFlexGrid1.Rows - 1
For j = 1 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Row = rr
MSHFlexGrid1.Col = j
MSHFlexGrid1.CellBackColor = vbWhite
Next
'Next
For k = 1 To MSHFlexGrid1.Cols - 1
MSHFlexGrid1.Row = r
MSHFlexGrid1.Col = k
MSHFlexGrid1.CellBackColor = vbRed
Next
MSHFlexGrid1.Col = 1
End Sub
Private Sub MSHFlexGrid1_RowColChange()
If r <> 0 Then
If r <> MSHFlexGrid1.RowSel Then
rr = r
End If
End If
r = MSHFlexGrid1.RowSel
End Sub
MSSQL 2003-09-16
- 打赏
- 举报
private sub msflexgrid1_click()
dim i as integer
for i=1 to msflexgrid1.cols-1
msflexgrid1.col=i
msflexgrid1.cellbkcolor=green
next i
end sub
dim i as integer
for i=1 to msflexgrid1.cols-1
msflexgrid1.col=i
msflexgrid1.cellbkcolor=green
next i
end sub
northwolves 2003-09-16
- 打赏
- 举报
呵呵，应该这样解决：
Private Sub MSFlexGrid1_RowColChange()
MSFlexGrid1.SelectionMode = flexSelectionByRow
End Sub
Private Sub MSFlexGrid1_RowColChange()
MSFlexGrid1.SelectionMode = flexSelectionByRow
End Sub
TT008 2003-09-16
- 打赏
- 举报
有没有好一点的办法啊
mudai 2003-09-16
- 打赏
- 举报
晕哦，楼上，
同意一楼的意见,偶们也是这种办法，没办法啊，自己笨呢，最好写个函，以后更新更快，呵
同意一楼的意见,偶们也是这种办法，没办法啊，自己笨呢，最好写个函，以后更新更快，呵
m366 2003-09-16
- 打赏
- 举报
onclick后，先做个循环把原来那行的CellBackColor变白，再做个循环把这行每个单元格的CellBackColor变兰色，当年做日本项目就这么要求，很麻烦，发誓以后再不做日本项目
