Spread Windows Forms 9.0 Product Documentation
Tag Property (PSObject)
Example 


Gets or sets the tag for the element.
Syntax
'Declaration
 
Public Overrides Property Tag As Object
'Usage
 
Dim instance As PSObject
Dim value As Object
 
instance.Tag = value
 
value = instance.Tag
public override object Tag {get; set;}

Property Value

Object containing the tag
Remarks
This property is available at run time only.
Example
This example shows the use of the property in customizing a shape to illustrate the use of the property for classes that inherit this property.
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); 

FarPoint.Win.Spread.DrawingSpace.PSGradient psg = new FarPoint.Win.Spread.DrawingSpace.PSGradient(); 
psg.Style = FarPoint.Win.Spread.DrawingSpace.GradientStyle.RadialIntoCenter; 
psg.Sections[0].Color = Color.Navy; 
psg.Sections[0].AlphaBlend = 128; 
psg.Sections[1].Color = Color.Magenta; 
psg.Sections[1].AlphaBlend = 255;

Point pt = new Point(150, 60); 

FarPoint.Win.Spread.DrawingSpace.PSShape pso = new FarPoint.Win.Spread.DrawingSpace.CustomShape(); 
pso.AlignHorz = FarPoint.Win.HorizontalAlignment.Center;
pso.AlignText = FarPoint.Win.TextAlign.TextBottomPictTop;
pso.AlignVert = FarPoint.Win.VerticalAlignment.Center;
pso.AllowBackgroundImageRotation = true;
pso.AlphaBlendBackColor = 75;
pso.Anchor = 10;
pso.BackColor = Color.Black;
pso.BackgroundImage = new FarPoint.Win.Picture(Image.FromFile("c:\\earth.ico"));
pso.BackgroundImageRotationAngle = 25;
pso.CanFocus = true;
pso.CanMove = FarPoint.Win.Spread.DrawingSpace.Moving.HorizontalAndVertical;
pso.CanPrint = true;
pso.CanRotate = true;
pso.CanSize = FarPoint.Win.Spread.DrawingSpace.Sizing.HeightAndWidth;
pso.DrawFocusRectangle = FarPoint.Win.DrawFocusRectangle.Default;
pso.Enabled = true;
pso.Gradient = psg;
pso.Height = 50;
pso.Left = pt.X;
pso.Location = pt;
pso.Locked = false;
pso.MarginBottom = 10;
pso.MarginLeft = 10;
pso.MarginRight = 10;
pso.MarginTop = 10;
pso.PictureMargin = 10;
pso.PictureOrientation = FarPoint.Win.PictureOrientation.PictureRotateNone;
pso.PictureRotationAngle = 25;
pso.PictureTransparencyColor = Color.Blue;
pso.RotationAngle = 25;
pso.Shape = gpath;
pso.ShapeOutlineColor = Color.Crimson;
pso.ShapeOutlineStyle = System.Drawing.Drawing2D.DashStyle.Solid;
pso.ShapeOutlineThickness = 3;
pso.Size = new Size(30, 30);
pso.SizeProportional = true;
pso.Tag = "MyShape";
pso.Text = "FarPoint";
pso.TextOrientation = FarPoint.Win.TextOrientation.TextHorizontal;
pso.TextRotationAngle = 25;
pso.TextWrap = false;
pso.Top = pt.X;
pso.Visible = true;
pso.Width = 50;
pso.SetBounds(25, 25, 120, 120);
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 psg As New FarPoint.Win.Spread.DrawingSpace.PSGradient
psg.Style = FarPoint.Win.Spread.DrawingSpace.GradientStyle.RadialIntoCenter
psg.Sections(0).Color = Color.Navy
psg.Sections(0).AlphaBlend = 128
psg.Sections(1).Color = Color.Magenta
psg.Sections(1).AlphaBlend = 255

Dim pt As New Point(150, 60)

Dim pso As FarPoint.Win.Spread.DrawingSpace.PSShape
pso = New FarPoint.Win.Spread.DrawingSpace.CustomShape
pso.AlignHorz = Win.HorizontalAlignment.Center
pso.AlignText = Win.TextAlign.TextBottomPictTop
pso.AlignVert = Win.VerticalAlignment.Center
pso.AllowBackgroundImageRotation = True
pso.AlphaBlendBackColor = 75
pso.Anchor = 10
pso.BackColor = Color.Black
pso.BackgroundImage = New FarPoint.Win.Picture(Image.FromFile("c:\earth.ico"))
pso.BackgroundImageRotationAngle = 25
pso.CanFocus = True
pso.CanMove = DrawingSpace.Moving.HorizontalAndVertical
pso.CanPrint = True
pso.CanRotate = True
pso.CanSize = DrawingSpace.Sizing.HeightAndWidth
pso.DrawFocusRectangle = Win.DrawFocusRectangle.Default
pso.Enabled = True
pso.Gradient = psg
pso.Height = 50
pso.Left = pt.X
pso.Location = pt
pso.Locked = False
pso.MarginBottom = 10
pso.MarginLeft = 10
pso.MarginRight = 10
pso.MarginTop = 10
pso.PictureMargin = 10
pso.PictureOrientation = Win.PictureOrientation.PictureRotateNone
pso.PictureRotationAngle = 25
pso.PictureTransparencyColor = Color.Blue
pso.RotationAngle = 25
pso.Shape = gpath
pso.ShapeOutlineColor = Color.Crimson
pso.ShapeOutlineStyle = Drawing2D.DashStyle.Solid
pso.ShapeOutlineThickness = 3
pso.Size = New Size(30, 30)
pso.SizeProportional = True
pso.Tag = "MyShape"
pso.Text = "FarPoint"
pso.TextOrientation = Win.TextOrientation.TextHorizontal
pso.TextRotationAngle = 25
pso.TextWrap = False
pso.Top = pt.X
pso.Visible = True
pso.Width = 50
pso.SetBounds(25, 25, 120, 120)
FpSpread1.ActiveSheet.AddShape(pso)
Requirements

Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows Server 2012 R2, Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8, Windows 8.1, Windows 10

See Also

Reference

PSObject Class
PSObject Members

 

 


Copyright © GrapeCity, inc. All rights reserved.