作成日: 2017/10/04 最終更新日: 2017/12/15
文書種別
制限事項
詳細
SPREADの表示倍率を変更すると、シェイプの位置がずれます。
【再現手順】
1.新規フォームにSPREADとボタンを配置します
2.サンプルコードをコピーしアプリケーションを実行します
3.Button1をクリックします
-- シートのグリッド線に沿って配置されていたシェイプの位置がずれます
【サンプルコード】
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FpSpread1.ActiveSheet.Columns.Default.Width = 17
FpSpread1.ActiveSheet.Rows.Default.Height = 17
Dim shape As New FarPoint.Win.Spread.DrawingSpace.RectangleShape()
shape.Name = "test"
shape.BackColor = Color.Black
shape.Height = 30
shape.Width = 30
FpSpread1.ActiveSheet.AddShape(shape, 10, 10)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FpSpread1.ZoomFactor = 1.45
End Sub
【再現手順】
1.新規フォームにSPREADとボタンを配置します
2.サンプルコードをコピーしアプリケーションを実行します
3.Button1をクリックします
-- シートのグリッド線に沿って配置されていたシェイプの位置がずれます
【サンプルコード】
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FpSpread1.ActiveSheet.Columns.Default.Width = 17
FpSpread1.ActiveSheet.Rows.Default.Height = 17
Dim shape As New FarPoint.Win.Spread.DrawingSpace.RectangleShape()
shape.Name = "test"
shape.BackColor = Color.Black
shape.Height = 30
shape.Width = 30
FpSpread1.ActiveSheet.AddShape(shape, 10, 10)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
FpSpread1.ZoomFactor = 1.45
End Sub
旧文書番号
41371