FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread.DrawingSpace 名前空間 > PSObject クラス > PSObject コンストラクタ : PSObject コンストラクタ(SerializationInfo,StreamingContext) |
'Declaration Protected Function New( _ ByVal info As SerializationInfo, _ ByVal context As StreamingContext _ )
'使用法 Dim info As SerializationInfo Dim context As StreamingContext Dim instance As New PSObject(info, context)
protected PSObject( SerializationInfo info, StreamingContext context )
FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape expected = (FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape)Activator.CreateInstance(typeof(FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape)); expected.ShadowColor = Color.AliceBlue; expected.ShadowOffsetX = 20f; expected.ShadowOffsetY = 20f; expected.AlphaBlendShadowColor = 100; expected.CanRenderText = true; expected.Formula = "A1:A2"; var fc = new System.Runtime.Serialization.FormatterConverter(); var info = new System.Runtime.Serialization.SerializationInfo(typeof(FarPoint.Win.Spread.DrawingSpace.PSShape), fc); var context = new System.Runtime.Serialization.StreamingContext(); expected.GetObjectData(info, context); object[] param = new object[] { info, context }; //Creates a new shape object from serialization. FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape actual = (FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape)Activator.CreateInstance(typeof(FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape), param); fpSpread1.Sheets[0].AddShape(actual, 0, 0); listBox1.Items.Add(actual.ShadowColor.ToString());
Dim expected As FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape = DirectCast(Activator.CreateInstance(GetType(FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape)), FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape) expected.ShadowColor = Color.AliceBlue expected.ShadowOffsetX = 20.0F expected.ShadowOffsetY = 20.0F expected.AlphaBlendShadowColor = 100 expected.CanRenderText = True expected.Formula = "A1:A2" Dim fc = New System.Runtime.Serialization.FormatterConverter() Dim info = New System.Runtime.Serialization.SerializationInfo(GetType(FarPoint.Win.Spread.DrawingSpace.PSShape), fc) Dim context = New System.Runtime.Serialization.StreamingContext() expected.GetObjectData(info, context) Dim param As Object() = New Object() {info, context} 'Creates a new shape object from serialization. Dim actual As FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape = DirectCast(Activator.CreateInstance(GetType(FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape), param), FarPoint.Win.Spread.DrawingSpace.SpreadCameraShape) FpSpread1.Sheets(0).AddShape(actual, 0, 0) ListBox1.Items.Add(actual.ShadowColor.ToString())