FarPoint.Win.Spread Assembly > FarPoint.Win.Spread Namespace > ExcelSparklineGroup Class : Serialize Method |
'Usage Dim instance As ExcelSparklineGroup Dim w As XmlTextWriter Dim value As Boolean value = instance.Serialize(w)
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()
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