如何才能让MSHFlexGrid表格随鼠标移动而进行变色?

tcrct 2006-02-18 09:10:00

即是像点击菜单时,在菜单上移动是,底下有一条色带跟随着鼠标移动而移动,如果在MSHFlexGrid表格里,应该如何去实现这个功能呢?请指教!

...全文

166 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

faysky2 2006-02-19

打赏
举报

少了一句

Dim cRow As Long, tRow As Long
Dim curRow As Long, tmpRow As Long
Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then Exit Sub
With MSHFlexGrid1

If .MouseRow < .FixedRows Then Exit Sub
If curRow <> tmpRow Then
cRow = .MouseRow
.Row = tRow

If .Row <> 0 And .Col <> 0 Then
For i = .FixedCols To .cols - 1
.Col = i
.CellBackColor = .BackColor
Next
End If
.Row = cRow
For i = .FixedCols To .cols - 1
.Col = i
.CellBackColor = vbBlue
Next
.Col = .MouseCol
tmpRow = curRow
Else
tRow = cRow
curRow = .RowPos(.MouseRow) + .CellHeight
End If
End With
End Sub

Free_Windy 2006-02-19

打赏
举报

楼上的思路是可以实现的...

tcrct 2006-02-19

打赏
举报

faysky2():

谢谢!不过按你的方法试了,但结果不理想呀,因为每次移动都到了最后的列和行,不能查看全部数据呀!

faysky2 2006-02-18

打赏
举报

Dim cRow As Long, tRow As Long
Dim curRow As Long, tmpRow As Long
Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then Exit Sub
With MSHFlexGrid1

If .MouseRow < .FixedRows Then Exit Sub
If curRow <> tmpRow Then
cRow = .MouseRow
.Row = tRow

If .Row <> 0 And .Col <> 0 Then
For i = .FixedCols To .cols - 1
.Col = i
.CellBackColor = .BackColor
Next
End If
.Row = cRow
For i = .FixedCols To .cols - 1
.Col = i
.CellBackColor = vbBlue
Next
tmpRow = curRow
Else
tRow = cRow
curRow = .RowPos(.MouseRow) + .CellHeight
End If
End With
End Sub

tcrct 2006-02-18