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