列ヘッダクリックにより、意図しない横スクロールが発生する
対象製品
SPREAD for ASP.NET 8.0J
状況
修正済み
詳細
画面横スクロール後の列ヘッダクリックにより、意図しない横スクロール(表示位置が先頭に戻る現象)が発生します。
【再現手順】
1.新規WebフォームにSPREAを配置する
2.Webフォームに下記の再現コードを貼り付け、Web フォームを起動する
3.SPREADを最右列まで横スクロールする
4.最右列のヘッダをクリックする
--- 1行目のチェックボックスセルが選択状態となり、SPREADが一番左にスクロールされる。
【再現コード】
------------------------------------
Webフォームクラス
------------------------------------
Public Class WebForm1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' SPREADの設定
InitSpread()
' シート設定
InitSpreadStyles()
End Sub
Private Sub InitSpread()
Dim Sheet0 As FarPoint.Web.Spread.SheetView
Sheet0 = FpSpread1.Sheets(0)
Sheet0.RowCount = 100
Sheet0.AddColumns(1, 10)
Sheet0.PageSize = 100
Dim chkbx As New FarPoint.Web.Spread.CheckBoxCellType()
Dim label As New FarPoint.Web.Spread.LabelCellType()
FpSpread1.SelectionBlockOptions = FarPoint.Web.Spread.SelectionBlockOptions.Rows
For rowIndex As Integer = 0 To Sheet0.RowCount - 1
Sheet0.Cells(rowIndex, 0).CellType = chkbx
Next
For rowIndex As Integer = 0 To Sheet0.RowCount - 1
For colIndex As Integer = 1 To Sheet0.ColumnCount - 1
Sheet0.Cells(rowIndex, colIndex).CellType = label
Sheet0.Cells(rowIndex, colIndex).Value = "test"
Next
Next
End Sub
Private Sub InitSpreadStyles()
End Sub
End Class
【再現手順】
1.新規WebフォームにSPREAを配置する
2.Webフォームに下記の再現コードを貼り付け、Web フォームを起動する
3.SPREADを最右列まで横スクロールする
4.最右列のヘッダをクリックする
--- 1行目のチェックボックスセルが選択状態となり、SPREADが一番左にスクロールされる。
【再現コード】
------------------------------------
Webフォームクラス
------------------------------------
Public Class WebForm1
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' SPREADの設定
InitSpread()
' シート設定
InitSpreadStyles()
End Sub
Private Sub InitSpread()
Dim Sheet0 As FarPoint.Web.Spread.SheetView
Sheet0 = FpSpread1.Sheets(0)
Sheet0.RowCount = 100
Sheet0.AddColumns(1, 10)
Sheet0.PageSize = 100
Dim chkbx As New FarPoint.Web.Spread.CheckBoxCellType()
Dim label As New FarPoint.Web.Spread.LabelCellType()
FpSpread1.SelectionBlockOptions = FarPoint.Web.Spread.SelectionBlockOptions.Rows
For rowIndex As Integer = 0 To Sheet0.RowCount - 1
Sheet0.Cells(rowIndex, 0).CellType = chkbx
Next
For rowIndex As Integer = 0 To Sheet0.RowCount - 1
For colIndex As Integer = 1 To Sheet0.ColumnCount - 1
Sheet0.Cells(rowIndex, colIndex).CellType = label
Sheet0.Cells(rowIndex, colIndex).Value = "test"
Next
Next
End Sub
Private Sub InitSpreadStyles()
End Sub
End Class
回避方法
Service Pack 2(v8.0.4002.2010)で修正済み。