谢谢,随然解答的比较简单,但提供了思路。需求基本实现了。
代码如下:
Private Sub SpdSinseiList_MouseMove(sender As Object, e As MouseEventArgs) Handles SpdSinseiList.MouseMove
Try
If Me.SpdSinseiList.HitTest(e.X, e.Y).Type = FarPoint.Win.Spread.HitTestType.Viewport Then
If Me.SpdSinseiList.HitTest(e.X, e.Y).ViewportInfo.Column = 7 Then
Me.SpdSinseiList.SetCursor(FarPoint.Win.Spread.CursorType.LockedCell, Cursors.Hand)
Else
Me.SpdSinseiList.SetCursor(FarPoint.Win.Spread.CursorType.LockedCell, Cursors.Arrow)
End If
End If
Catch ex As Exception
Me.SpdSinseiList.SetCursor(FarPoint.Win.Spread.CursorType.LockedCell, Cursors.Arrow)
End Try
End Sub |