提供的源码我看了,这只是所有行被选中的时候的背景色和字体颜色。
没有实现我问题中实现的效果,选中行的背景色根据原来行的背景色不同而不同。
原来背景色是白的,选中后是黑色,原来背景色是蓝色,选中后是红色。
这个效果可以在SelectionChanged中通过代码实现
Private Sub SPD010_SelectionChanged(sender As Object, e As FarPoint.Win.Spread.SelectionChangedEventArgs) Handles SPD010.SelectionChanged
With SPD010
.Row = e.Range.Row + 1
If .BackColor = System.Drawing.ColorTranslator.FromOle(&HFFFF80) Then
.ActiveSheet.SelectionBackColor = Color.DarkRed
Else
.ActiveSheet.SelectionBackColor = Color.Black
End If
End With
End Sub |