作成日: 2025/03/28 最終更新日: 2025/04/01
文書種別
不具合
発生環境
12.0J (12.0.4509.2012以降から発生します)
状況
回避方法あり
詳細
回避方法
■サンプルコード(VB.NET)
Private Sub FpSpread1_MouseMove(sender As Object, e As MouseEventArgs) Handles FpSpread1.MouseMove
Dim setChanged = False
If FpSpread1.EditMode Then
Dim htInfo = FpSpread1.HitTest(e.X, e.Y)
If htInfo.Type = HitTestType.Viewport Then
Dim row = htInfo.ViewportInfo.Row
Dim col = htInfo.ViewportInfo.Column
Dim sheet = FpSpread1.ActiveSheet
Dim cellType As FarPoint.Win.Spread.CellType.ICellType = sheet.GetCellType(row, col)
If TypeOf cellType Is CheckBoxCellType Then
Dim cellRect = FpSpread1.GetCellRectangle(FpSpread1.GetActiveColumnViewportIndex(), FpSpread1.GetActiveRowViewportIndex(), row, col)
Dim appearance As FarPoint.Win.Spread.Appearance = New Appearance()
appearance.CellPadding = FpSpread1.ActiveSheet.Cells(row, col).CellPadding
Dim obj = cellType.IsReservedLocation(FpSpread1.CreateGraphics(), e.X, e.Y, cellRect, appearance, Nothing, 1)
If obj IsNot Nothing Then
FpSpread1.SetCursor(CursorType.Normal, cellType.GetReservedCursor(obj))
setChanged = True
End If
End If
End If
End If
If Not setChanged Then
FpSpread1.SetCursor(CursorType.Normal, defaultCursor)
End If
End Sub