回复 6楼Hjr2350的帖子
请使用以下代码测试,看是否是你想实现的效果:
- Private Sub Form_Load()
- fpSpread1.TextTip = TextTipFloating
- fpSpread1.Col = 2
- fpSpread1.Row = 1
- fpSpread1.CellNoteIndicator = CellNoteIndicatorShowAndFireEvent
- fpSpread1.CellNote = "Russell Jacobs wrote"
- fpSpread1.CellNoteIndicatorShape = CellNoteIndicatorShapeTriangle
- End Sub
- Private Sub fpSpread1_TextTipFetch(ByVal Col As Long, ByVal Row As Long, MultiLine As FPSpreadADO.TextTipFetchMultilineConstants, TipWidth As Long, TipText As String, ShowTip As Boolean)
- MultiLine = TextTipFetchMultilineMultiple
- End Sub
复制代码 |