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