| FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.DrawingSpace 名前空間 > PSObject クラス : PictureRotationAngle プロパティ |
'DeclarationPublic Overridable Property PictureRotationAngle As Single
'使用法Dim instance As PSObject Dim value As Single instance.PictureRotationAngle = value value = instance.PictureRotationAngle
public virtual float PictureRotationAngle {get; set;}
このプロパティはPictureOrientationプロパティで設定することによってオーバーライドできます。
このプロパティが使用できるのは実行時のみです。
System.Drawing.Point[] pts = {new System.Drawing.Point(25, 0),
New System.Drawing.Point(0, 50),
New System.Drawing.Point(20, 50),
New System.Drawing.Point((int)2.5, 100),
New System.Drawing.Point(40, 40),
New System.Drawing.Point(20, 40),
New System.Drawing.Point(40, 0),
New System.Drawing.Point(25, 0)};
System.Drawing.Drawing2D.GraphicsPath gpath = new System.Drawing.Drawing2D.GraphicsPath();
gpath.AddPolygon(pts);
Point pt = new Point(150, 60);
FarPoint.Win.Picture pic = new FarPoint.Win.Picture(Image.FromFile("d:\\images\\gwashington.bmp"));
FarPoint.Win.Spread.DrawingSpace.PSObject pso = new FarPoint.Win.Spread.DrawingSpace.CustomShape();
pso.BackColor = Color.Black;
pso.AlphaBlendBackColor = 90;
pso.Enabled = true;
pso.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical;
pso.CanRotate = true;
pso.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth;
pso.Shape = gpath;
pso.SetBounds(250, 250, 120, 120);
pso.Location = pt;
pso.Image = pic;
pso.PictureRotationAngle = 20;
fpSpread1.ActiveSheet.AddShape(pso);
Dim pts As System.Drawing.Point() = {New System.Drawing.Point(25, 0), _ New System.Drawing.Point(0, 50), _ New System.Drawing.Point(20, 50), _ New System.Drawing.Point(2.5, 100), _ New System.Drawing.Point(40, 40), _ New System.Drawing.Point(20, 40), _ New System.Drawing.Point(40, 0), _ New System.Drawing.Point(25, 0)} Dim gpath As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath gpath.AddPolygon(pts) dim pt As New Point(150, 60) Dim pic As New FarPoint.Win.Picture(Image.FromFile("d:\images\gwashington.bmp")) Dim pso As New FarPoint.Win.Spread.DrawingSpace.CustomShape pso.BackColor = Color.Black pso.AlphaBlendBackColor = 90 pso.Enabled = True pso.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical pso.CanRotate = True pso.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth pso.Shape = gpath pso.SetBounds(40, 40, 60, 60) pso.Location = pt pso.Image = pic pso.PictureRotationAngle = 20 FpSpread1.ActiveSheet.AddShape(pso)