FarPoint Spread如何像EXCEL一样显示单元格的批注

最新推荐文章于 2020-12-16 23:42:59 发布

weixin_30914981

最新推荐文章于 2020-12-16 23:42:59 发布

阅读量162

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/zqonline/archive/2008/12/22/1359829.html

本文介绍如何使用FarPointSpread控件实现单元格批注功能，通过EnterCell和LeaveCell事件控制批注的显示与隐藏。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

EXCEL如果对一个单元格进行了批注后,点击单元格时,会自动显示批注信息!

对于FarPoint Spread控件也可以实现类似的功能,需要结合控件的EnterCell,LeaveCell两个事件!EnterCell是单元格具有焦点时,LeavelCell是单元格失去焦点时引发的事件

代码如下:

''' <summary>
''' 单元格有焦点时
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub FpSpread1_EnterCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.EnterCellEventArgs) Handles FpSpread1.EnterCell
    If Not Me.FpSpread1.ActiveSheet.Cells(e.Row, e.Column).Note Is Nothing _
        And Me.FpSpread1.ActiveSheet.Cells(e.Row, e.Column).Note.Length > 0 Then
        Me.FpSpread1.ActiveSheet.Cells(e.Row, e.Column).NoteStyle = FarPoint.Win.Spread.NoteStyle.StickyNote
    End If
End Sub
''' <summary>
''' 单元格失去焦点时
''' </summary>
''' <param name="sender"></param>
''' <param name="e"></param>
''' <remarks></remarks>
Private Sub FpSpread1_LeaveCell(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.LeaveCellEventArgs) Handles FpSpread1.LeaveCell
    If Not Me.FpSpread1.ActiveSheet.Cells(e.Row, e.Column).Note Is Nothing _
                And Me.FpSpread1.ActiveSheet.Cells(e.Row, e.Column).Note.Length > 0 Then
        Me.FpSpread1.ActiveSheet.Cells(e.Row, e.Column).NoteStyle = FarPoint.Win.Spread.NoteStyle.PopupNote
    End If
End Sub