vb.net 代码中如何设置 鼠标悬浮在 farpoint spread 单元格 展示单元格的 tag内容
时间: 2024-03-27 18:39:35 浏览: 93
你可以使用 FarPoint Spread 控件的 CellTipText 属性来设置鼠标悬浮在单元格上时显示的文本。以下是一个示例代码,在鼠标悬浮在单元格上时,会显示该单元格的 Tag 内容:
```vb.net
Private Sub FpSpread1_CellMouseMove(sender As Object, e As FarPoint.Win.Spread.CellMouseEventArgs) Handles FpSpread1.CellMouseMove
' 判断是否在单元格内
If e.Row >= 0 AndAlso e.Column >= 0 Then
Dim cell As FarPoint.Win.Spread.Cell = FpSpread1.ActiveSheet.Cells(e.Row, e.Column)
' 判断单元格是否有 Tag
If cell.Tag IsNot Nothing Then
' 设置 CellTipText 为 Tag 内容
FpSpread1.ActiveSheet.CellTipText = cell.Tag.ToString()
End If
End If
End Sub
```
在上述代码中,我们首先判断鼠标是否悬浮在单元格内,然后获取该单元格的 Tag 内容,并将其设置为 CellTipText,这样在鼠标悬浮在单元格时,就会显示 Tag 内容。
相关问题
vb.net 代码中如何设置 鼠标悬浮在 farpoint spread 单元格 展示单元格的 tag内容 没有celltiptext
如果你在 FarPoint Spread 控件中使用的是早期版本,没有 CellTipText 属性,你可以使用 MouseMove 事件结合 ToolTip 控件来实现鼠标悬浮在单元格上时展示单元格的 Tag 内容。以下是一个示例代码:
```vb.net
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 控件并设置其属性。
vb.net 代码中如何设置 鼠标悬浮在 farpoint 5.0 spread 单元格 展示单元格的 tag内容
FarPoint Spread 5.0 控件中,你可以使用 CellToolTipText 属性来实现鼠标悬浮在单元格时展示单元格的 Tag 内容。
以下是一个示例代码,在鼠标悬浮在单元格上时,会显示该单元格的 Tag 内容:
```vb.net
Private Sub FpSpread1_CellMouseMove(sender As Object, e As FarPoint.Win.Spread.CellMouseEventArgs) Handles FpSpread1.CellMouseMove
' 判断是否在单元格内
If e.Row >= 0 AndAlso e.Column >= 0 Then
Dim cell As FarPoint.Win.Spread.Cell = FpSpread1.ActiveSheet.Cells(e.Row, e.Column)
' 判断单元格是否有 Tag
If cell.Tag IsNot Nothing Then
' 设置 CellToolTipText 为 Tag 内容
FpSpread1.ActiveSheet.CellToolTipText = cell.Tag.ToString()
End If
End If
End Sub
```
在上述代码中,我们首先判断鼠标是否悬浮在单元格内,然后获取该单元格的 Tag 内容,并将其设置为 CellToolTipText,这样在鼠标悬浮在单元格时,就会显示 Tag 内容。
阅读全文