ScrollBarShowMaxをFalseにしたSPREAD上で、行数または列数を固定領域より小さくするとヘッダの表示が不正になる場合がある – MESCIUS ナレッジベース

作成日: 2022/03/31 最終更新日: 2022/04/06

文書種別

不具合

状況

修正済み

詳細

ScrollBarShowMaxをFalseに設定し、データを含む行および列に基づいてスクロールバーを表示します。その状態で行数または列数を固定領域より小さくすると、同じ行番号が複数の行ヘッダに表示されるなどの不正な表示になる場合があります。

回避方法

Service Pack 9（v12.0.4512.2012）で修正済み。
Service Pack 9を適用せずに対処する方法としては、データモデルのChangedイベントを使用して、行または列が固定領域より小さくなる場合に、ビューポートの一番上のセル行または一番左のセル列を指定することで回避可能です。

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

FpSpread1.ScrollBarShowMax = False
FpSpread1.ActiveSheet.FrozenRowCount = 2

AddHandler FpSpread1.ActiveSheet.Models.Data.Changed, AddressOf Data_Changed1'回避策

End Sub

Private Sub Data_Changed1(ByVal sender As Object, ByVal e As FarPoint.Win.Spread.Model.SheetDataModelEventArgs)

If e.Type = FarPoint.Win.Spread.Model.SheetDataModelEventType.RowsRemoved Then
If FpSpread1.ActiveSheet.RowCount < FpSpread1.ActiveSheet.FrozenRowCount Then
If FpSpread1.GetViewportTopRow(0) < FpSpread1.ActiveSheet.FrozenRowCount Then
 FpSpread1.SetViewportTopRow(0, FpSpread1.ActiveSheet.FrozenRowCount)
End If

ElseIf e.Type = FarPoint.Win.Spread.Model.SheetDataModelEventType.ColumnsRemoved Then
If FpSpread1.ActiveSheet.ColumnCount < FpSpread1.ActiveSheet.FrozenColumnCount Then
If FpSpread1.GetViewportLeftColumn(0) < FpSpread1.ActiveSheet.FrozenColumnCount Then
 FpSpread1.SetViewportLeftColumn(0, FpSpread1.ActiveSheet.FrozenColumnCount)
End If
End If
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FpSpread1.ActiveSheet.RowCount = 5
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
FpSpread1.ActiveSheet.RowCount = 1
End Sub