【罫線】行ヘッダの右辺に罫線を設定すると、シートと行ヘッダのグリッド線がずれる

文書番号 : 38185 文書種別 : 不具合登録日 : 2015/02/27 最終更新日 : 2015/03/31

対象製品

SPREAD for ASP.NET 7.0J

状況

修正済み

詳細

行ヘッダの右辺に罫線を設定すると、シートと行ヘッダのグリッド線がずれます。

【再現コード】
　　Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
　　　　If Page.IsPostBack Then Return

　　　　FpSpread1.ActiveSheetView.RowCount = 10
　　　　FpSpread1.ActiveSheetView.SheetCorner.DefaultStyle.Background.Enable = False
　　　　FpSpread1.ActiveSheetView.SheetCorner.DefaultStyle.BackColor = Drawing.Color.AntiqueWhite

　　　　FpSpread1.ActiveSheetView.ColumnHeader.DefaultStyle.Background.Enable = False
　　　　FpSpread1.Active2015/03/31veSheetView.RowHeader.DefaultStyle.Background.Enable = False
　　　　FpSpread1.ActiveSheetView.RowHeader.DefaultStyle.BackColor = Drawing.Color.AntiqueWhite

　　　　' 行ヘッダの右辺の色の指定
　　　　FpSpread1.ActiveSheetView.RowHeader.Columns(0).Border.BorderColorRight = Drawing.Color.Red
　　　　FpSpread1.ActiveSheetView.RowHeader.Columns(0).Border.BorderSizeRight = 1
　　　　FpSpread1.ActiveSheetView.RowHeader.Columns(0).Border.BorderStyleRight = BorderStyle.Solid
　　End Sub

回避方法

Service Pack 3（v7.0.4017.2010）で修正済み。
Service Pack 3（v7.0.4017.2010）より前のバージョンでは次の回避方法が有効です。
------------------------------------------

行ヘッダの下辺に明示的に罫線を設定します。

------------------------------------
Webフォームクラス
------------------------------------
　　Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
　　　　If Page.IsPostBack Then Return

　　　　FpSpread1.ActiveSheetView.RowCount = 10
　　　　FpSpread1.ActiveSheetView.SheetCorner.DefaultStyle.Background.Enable = False
　　　　FpSpread1.ActiveSheetView.SheetCorner.DefaultStyle.BackColor = Drawing.Color.AntiqueWhite

　　　　FpSpread1.ActiveSheetView.ColumnHeader.DefaultStyle.Background.Enable = False
　　　　FpSpread1.ActiveSheetView.ColumnHeader.DefaultStyle.BackColor = Drawing.Color.AntiqueWhite
　　　　FpSpread1.ActiveSheetView.RowHeader.DefaultStyle.Background.Enable = False
　　　　FpSpread1.ActiveSheetView.RowHeader.DefaultStyle.BackColor = Drawing.Color.AntiqueWhite

　　　　' 行ヘッダの右辺の色の指定
　　　　FpSpread1.ActiveSheetView.RowHeader.Columns(0).Border.BorderColorRight = Drawing.Color.Red
　　　　FpSpread1.ActiveSheetView.RowHeader.Columns(0).Border.BorderSizeRight = 1
　　　　FpSpread1.ActiveSheetView.RowHeader.Columns(0).Border.BorderStyleRight = BorderStyle.Solid

　　　　'【回避策】
　　　　FpSpread1.ActiveSheetView.RowHeader.Columns(0).Border.BorderColorBottom = Drawing.Color.FromArgb(160, 160, 160)
　　　　FpSpread1.ActiveSheetView.RowHeader.Columns(0).Border.BorderSizeBottom = 1
　　　　FpSpread1.ActiveSheetView.RowHeader.Columns(0).Border.BorderStyleBottom = BorderStyle.Solid
　　End Sub