FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > ExcelSparklineGroup クラス : Deserialize メソッド |
'Declaration Public Function Deserialize( _ ByVal r As XmlNodeReader _ ) As Boolean
'使用法 Dim instance As ExcelSparklineGroup Dim r As XmlNodeReader Dim value As Boolean value = instance.Deserialize(r)
public bool Deserialize( XmlNodeReader r )
fpSpread1.Sheets[0].SetClip(0, 0, 1, 5, "1\t2\t3\t4\t5"); fpSpread1.Sheets[0].SetClip(1, 0, 1, 5, "5\t4\t3\t2\t1"); fpSpread1.Sheets[0].SetClip(2, 0, 1, 5, "1\t2\t3\t2\t1"); FarPoint.Win.Spread.ExcelSparkline es = new FarPoint.Win.Spread.ExcelSparkline(0, 6, fpSpread1.Sheets[0], new FarPoint.Win.Spread.Model.CellRange(0, 0, 1, 5)); FarPoint.Win.Spread.ExcelSparkline es1 = new FarPoint.Win.Spread.ExcelSparkline(1, 6, fpSpread1.Sheets[0], new FarPoint.Win.Spread.Model.CellRange(1, 0, 1, 5)); FarPoint.Win.Spread.ExcelSparkline es2 = new FarPoint.Win.Spread.ExcelSparkline(2, 6, fpSpread1.Sheets[0], new FarPoint.Win.Spread.Model.CellRange(2, 0, 1, 5)); FarPoint.Win.Spread.ExcelSparklineGroup esg = new FarPoint.Win.Spread.ExcelSparklineGroup(new FarPoint.Win.Spread.ExcelSparklineSetting(), FarPoint.Win.Spread.SparklineType.Column); esg.Add(es); esg.Add(es1); esg.Add(es2); fpSpread1.Sheets[0].SparklineContainer.Add(esg); FarPoint.Win.Spread.ExcelSparklineSetting eSetting = new FarPoint.Win.Spread.ExcelSparklineSetting(); eSetting.ShowMarkers = true; eSetting.AxisColor = Color.Cyan; string fileName = "c:\\ExcelSparklineGroup.xml"; //Serialize FarPoint.Win.Spread.ExcelSparklineGroup ea = (FarPoint.Win.Spread.ExcelSparklineGroup)fpSpread1.ActiveSheet.SparklineContainer[0]; ea.Setting = eSetting; System.IO.Stream stream; stream = System.IO.File.Open(fileName, System.IO.FileMode.Create); System.Xml.XmlTextWriter writer = new System.Xml.XmlTextWriter(stream, System.Text.Encoding.UTF8); writer.Formatting = System.Xml.Formatting.Indented; writer.Indentation = 2; writer.WriteStartDocument(); writer.WriteStartElement("ExcelSparklineGroup"); writer.WriteEndElement(); writer.WriteEndDocument(); writer.Close(); //Deserialize FarPoint.Win.Spread.ExcelSparklineGroup e1 = new FarPoint.Win.Spread.ExcelSparklineGroup(); System.Xml.XmlDocument doc = new System.Xml.XmlDocument(); doc.Load(fileName); System.Xml.XmlNode node; node = doc.FirstChild; while (!node.Name.Equals("ExcelSparklineGroup")) node = node.NextSibling; System.Xml.XmlNodeReader r = new System.Xml.XmlNodeReader(node); r.Read();
FpSpread1.Sheets(0).SetClip(0, 0, 1, 5, "1" + Chr(9) + "2" + Chr(9) + "3" + Chr(9) + "4" + Chr(9) + "5") FpSpread1.Sheets(0).SetClip(1, 0, 1, 5, "5" + Chr(9) + "4" + Chr(9) + "3" + Chr(9) + "2" + Chr(9) + "1") FpSpread1.Sheets(0).SetClip(2, 0, 1, 5, "1" + Chr(9) + "2" + Chr(9) + "3" + Chr(9) + "2" + Chr(9) + "1") Dim es As New FarPoint.Win.Spread.ExcelSparkline(0, 6, FpSpread1.Sheets(0), New FarPoint.Win.Spread.Model.CellRange(0, 0, 1, 5)) Dim es1 As New FarPoint.Win.Spread.ExcelSparkline(1, 6, FpSpread1.Sheets(0), New FarPoint.Win.Spread.Model.CellRange(1, 0, 1, 5)) Dim es2 As New FarPoint.Win.Spread.ExcelSparkline(2, 6, FpSpread1.Sheets(0), New FarPoint.Win.Spread.Model.CellRange(2, 0, 1, 5)) Dim esg As New FarPoint.Win.Spread.ExcelSparklineGroup(New FarPoint.Win.Spread.ExcelSparklineSetting(), FarPoint.Win.Spread.SparklineType.Column) esg.Add(es) esg.Add(es1) esg.Add(es2) FpSpread1.Sheets(0).SparklineContainer.Add(esg) Dim eSetting As New FarPoint.Win.Spread.ExcelSparklineSetting() eSetting.ShowMarkers = True eSetting.AxisColor = Color.Cyan Dim fileName As String = "c:\ExcelSparklineGroup.xml" 'Serialize Dim ea As FarPoint.Win.Spread.ExcelSparklineGroup = DirectCast(FpSpread1.ActiveSheet.SparklineContainer(0), FarPoint.Win.Spread.ExcelSparklineGroup) ea.Setting = eSetting Dim stream As System.IO.Stream stream = System.IO.File.Open(fileName, System.IO.FileMode.Create) Dim writer As New System.Xml.XmlTextWriter(stream, System.Text.Encoding.UTF8) writer.Formatting = System.Xml.Formatting.Indented writer.Indentation = 2 writer.WriteStartDocument() writer.WriteStartElement("ExcelSparklineGroup") writer.WriteEndElement() writer.WriteEndDocument() writer.Close() 'Deserialize Dim e1 As New FarPoint.Win.Spread.ExcelSparklineGroup() Dim doc As New System.Xml.XmlDocument() doc.Load(fileName) Dim node As System.Xml.XmlNode node = doc.FirstChild While Not node.Name.Equals("ExcelSparklineGroup") node = node.NextSibling End While Dim r As New System.Xml.XmlNodeReader(node) r.Read()