作成日: 2017/05/11 最終更新日: 2017/05/11
文書種別
制限事項
発生環境
以下のバージョンで発生します: ・SPREAD for Windows Forms 8.0JのSP3(8.0.3505.2008)以降 ・SPREAD for Windows Forms 10.0Jの初版(10.0.4001.2012)以降 ただし、TextRenderer.dllを使用した描画の場合は発生しません。
詳細
この現象は、セルに複数行の文字列を設定し、テキストの折り返しを無効(WordWrapプロパティをFalse)に設定した場合に発生します。
なお、設定したセル型の折り返しが、既定で無効(例、コマンドボタン型セル)の場合にも現象が発生します。
以下、コマンドボタン型セルの例です。
【実行手順】
1. SPREADを配置します
2. 以下のサンプルコードをコピーして実行します
- ボタンのテキストが中央から少しずれる
【サンプルコード】
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FpSpread1.ActiveSheet.Rows(0).Height = 40
FpSpread1.ActiveSheet.Columns(0).Width = 40
Dim buttonCell As New FarPoint.Win.Spread.CellType.ButtonCellType()
buttonCell.Text = "先頭" & vbCr & vbLf & "最終"
FpSpread1.ActiveSheet.Cells(0, 0).CellType = buttonCell
FpSpread1.ActiveSheet.Cells(0, 0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
End Sub
なお、設定したセル型の折り返しが、既定で無効(例、コマンドボタン型セル)の場合にも現象が発生します。
以下、コマンドボタン型セルの例です。
【実行手順】
1. SPREADを配置します
2. 以下のサンプルコードをコピーして実行します
- ボタンのテキストが中央から少しずれる
【サンプルコード】
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FpSpread1.ActiveSheet.Rows(0).Height = 40
FpSpread1.ActiveSheet.Columns(0).Width = 40
Dim buttonCell As New FarPoint.Win.Spread.CellType.ButtonCellType()
buttonCell.Text = "先頭" & vbCr & vbLf & "最終"
FpSpread1.ActiveSheet.Cells(0, 0).CellType = buttonCell
FpSpread1.ActiveSheet.Cells(0, 0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
End Sub
回避方法
テキストの折り返しを有効(WordWrapプロパティをTrue)に設定することで回避できます。
【サンプルコード】
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FpSpread1.ActiveSheet.Rows(0).Height = 40
FpSpread1.ActiveSheet.Columns(0).Width = 40
Dim buttonCell As New FarPoint.Win.Spread.CellType.ButtonCellType()
'回避方法(WordWrapをTrueに設定)
buttonCell.WordWrap = True
buttonCell.Text = "先頭" & vbCr & vbLf & "最終"
FpSpread1.ActiveSheet.Cells(0, 0).CellType = buttonCell
FpSpread1.ActiveSheet.Cells(0, 0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
End Sub
【サンプルコード】
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FpSpread1.ActiveSheet.Rows(0).Height = 40
FpSpread1.ActiveSheet.Columns(0).Width = 40
Dim buttonCell As New FarPoint.Win.Spread.CellType.ButtonCellType()
'回避方法(WordWrapをTrueに設定)
buttonCell.WordWrap = True
buttonCell.Text = "先頭" & vbCr & vbLf & "最終"
FpSpread1.ActiveSheet.Cells(0, 0).CellType = buttonCell
FpSpread1.ActiveSheet.Cells(0, 0).HorizontalAlignment = FarPoint.Win.Spread.CellHorizontalAlignment.Center
End Sub
旧文書番号
40345