vb.net 代码中如何设置 鼠标悬浮在 farpoint spread 单元格 展示单元格的 tag内容 没有celltiptext

如果你在 FarPoint Spread 控件中使用的是早期版本，没有 CellTipText 属性，你可以使用 MouseMove 事件结合 ToolTip 控件来实现鼠标悬浮在单元格上时展示单元格的 Tag 内容。以下是一个示例代码：

Private Sub FpSpread1_MouseMove(sender As Object, e As MouseEventArgs) Handles FpSpread1.MouseMove
    ' 获取当前鼠标所在的单元格
    Dim hitTestInfo As FarPoint.Win.Spread.HitTestInfo = FpSpread1.HitTest(e.X, e.Y)
    If hitTestInfo.Type = FarPoint.Win.Spread.HitTestType.Cell Then
        Dim cell As FarPoint.Win.Spread.Cell = FpSpread1.ActiveSheet.Cells(hitTestInfo.Row, hitTestInfo.Column)
        If cell.Tag IsNot Nothing AndAlso cell.Tag.ToString() <> "" Then
            ' 显示单元格的 Tag 内容
            ToolTip1.SetToolTip(FpSpread1, cell.Tag.ToString())
        Else
            ' 隐藏 ToolTip
            ToolTip1.Hide(FpSpread1)
        End If
    Else
        ' 隐藏 ToolTip
        ToolTip1.Hide(FpSpread1)
    End If
End Sub

在上述代码中，我们使用 HitTest 方法获取当前鼠标所在的单元格，然后判断该单元格是否有 Tag，并将其设置为 ToolTip 的内容，这样在鼠标悬浮在单元格时，就会显示 Tag 内容。需要注意的是，我们使用的是 ToolTip 控件来显示 Tag 内容，所以你需要在窗体上添加一个 ToolTip 控件并设置其属性。