日付型セルで書式に"ddd"を設定するとテキストチップが表示されない
対象製品
SPREAD for Windows Forms 7.0J
状況
修正済み
詳細
日付型セルで書式に"ddd"を設定するとテキストチップが表示されません。
【手順】
1.新規フォームにSPREADを配置します
2.下記サンプルコードをコピーし、アプリケーションを実行します
3.A1セルにマウスカーソルを移動します
--テキストチップが表示されません
【サンプルコード】
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' 日付型セルの設定
Dim dateCell As New FarPoint.Win.Spread.CellType.DateTimeCellType()
dateCell.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.UserDefined
dateCell.UserDefinedFormat = "yyyy/MM/dd (ddd)"
FpSpread1.ActiveSheet.Columns(0).CellType = dateCell
FpSpread1.ActiveSheet.SetValue(0, 0, DateTime.Today)
' テキストチップの表示
FpSpread1.TextTipPolicy = FarPoint.Win.Spread.TextTipPolicy.Floating
End Sub
【手順】
1.新規フォームにSPREADを配置します
2.下記サンプルコードをコピーし、アプリケーションを実行します
3.A1セルにマウスカーソルを移動します
--テキストチップが表示されません
【サンプルコード】
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' 日付型セルの設定
Dim dateCell As New FarPoint.Win.Spread.CellType.DateTimeCellType()
dateCell.DateTimeFormat = FarPoint.Win.Spread.CellType.DateTimeFormat.UserDefined
dateCell.UserDefinedFormat = "yyyy/MM/dd (ddd)"
FpSpread1.ActiveSheet.Columns(0).CellType = dateCell
FpSpread1.ActiveSheet.SetValue(0, 0, DateTime.Today)
' テキストチップの表示
FpSpread1.TextTipPolicy = FarPoint.Win.Spread.TextTipPolicy.Floating
End Sub
回避方法
Service Pack 4(v7.0.2016.2008)で修正済み。
Service Pack 4(v7.0.2016.2008)より前のバージョンでは次の回避方法が有効です。
------------------------------------------
次善の方法として、TextTipFetchイベントで明示的にe.ShowTip = Trueを設定します。
【サンプルコード】
Private Sub FpSpread1_TextTipFetch(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.TextTipFetchEventArgs) Handles FpSpread1.TextTipFetch
' 対応策
If e.Column = 0 Then
e.ShowTip = True
End If
End Sub
Service Pack 4(v7.0.2016.2008)より前のバージョンでは次の回避方法が有効です。
------------------------------------------
次善の方法として、TextTipFetchイベントで明示的にe.ShowTip = Trueを設定します。
【サンプルコード】
Private Sub FpSpread1_TextTipFetch(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.TextTipFetchEventArgs) Handles FpSpread1.TextTipFetch
' 対応策
If e.Column = 0 Then
e.ShowTip = True
End If
End Sub