Spread ASP.NET 14
FarPoint.Web.Spread Assembly / FarPoint.Web.Spread Namespace / BaseCellType Class / Parse Method
String from the cell on the sheet to parse
Example


In This Topic
    Parse Method (BaseCellType)
    In This Topic
    When deriving a cell type based on this type, override this to change what gets parsed from the cell on the sheet and put in the data model.
    Syntax
    'Declaration
     
    Public Overridable Function Parse( _
       ByVal s As String _
    ) As Object
    'Usage
     
    Dim instance As BaseCellType
    Dim s As String
    Dim value As Object
     
    value = instance.Parse(s)
    public virtual object Parse( 
       string s
    )

    Parameters

    s
    String from the cell on the sheet to parse

    Return Value

    Results of the parsing to put as an object in the data model
    Example
    This example subclasses the BaseCellType class and creates a custom cell type for the first cell in the spreadsheet. By double-clicking on the cell a new editor appears and the color of the cell can be changed by editing the RGB values in the editor. HTC files are only supported by Microsoft Internet Explorer.
    using System;
    using System.Collections.Generic;
    using System.Linq;
    using System.Web;
    using System.Web.UI;
    using System.Web.UI.WebControls;
    using FarPoint.Web.Spread;
    using System.Drawing;
    
    public partial class SampleCode_Sample1 : System.Web.UI.Page
    {
        
      private void Page_Load(object sender,System.EventArgs e)
      {
        var bcTypecell=new bcType();
        FpSpread1.ActiveSheetView.Cells[0,0].CellType=bcTypecell;
        FpSpread1.ActiveSheetView.Columns[0].Width=130;
        FpSpread1.ActiveSheetView.Rows[0].Height=40;
      }
    }
    
    [Serializable()]
    class bcType:FarPoint.Web.Spread.BaseCellType
    {
      public override string Format(object o)
      {
      return base.Format(o);
      }
    
      public override Control GetEditorControl(string id,TableCell parent,FarPoint.Web.Spread.Appearance style,FarPoint.Web.Spread.Inset margin,object v,bool ul)
      {
        string val=null,val1="",val2="",val3="";
        if(v!=null)
        {
          val=v.ToString();
          string[]colors=val.ToString().Split(new char[]{','});
          if(colors.Length==3)
          {
            val1=colors[0].Trim();
            val2=colors[1].Trim();
            val3=colors[2].Trim();
          }
        }
    
        Table table= new Table();
        table.CellPadding=0;
        table.CellSpacing=0;
        table.BorderWidth=0;
    
        TableRow row=new TableRow();
        table.Rows.Add(row);
    
        TextBox tb=new TextBox();
        tb.Text=val1;
        tb.Columns=3;
        if(ul)
          tb.Attributes.Add("MyEditorComp","Red");
    
        if(id!=null)
          tb.ID=id+"c1";
    
        TableCell cell=new TableCell();
        row.Cells.Add(cell);
        cell.Controls.Add(tb);
    
        tb=new TextBox();
        tb.Text=val2;
        tb.Columns=3;
        if(ul)
          tb.Attributes.Add("MyEditorComp","Green");
    
        if(id!=null)
          tb.ID=id+"c2";
    
        cell=new TableCell();
        row.Cells.Add(cell);
        cell.Controls.Add(tb);
    
        tb=new TextBox();
        tb.Text=val3;
        tb.Columns=3;
    
        if(ul)
          tb.Attributes.Add("MyEditorComp","Blue");
    
        if(id!=null)
          tb.ID=id+"c3";
    
        cell=new TableCell();
        row.Cells.Add(cell);
        cell.Controls.Add(tb);
    
        return table;
      }
    
      public override object GetEditorValue(Control owner,string id)
      {
      return base.GetEditorValue(owner,id);
      }
    
      public override BaseValidator GetValidator()
      {
        return base.GetValidator();
      }
    
      public override Control PaintCell(string id,TableCell parent,FarPoint.Web.Spread.Appearance style,FarPoint.Web.Spread.Inset margin,object val,bool ul)
      {
        ApplyStyleTo(parent,style,margin,true);
        System.Web.UI.WebControls.Panel p=new System.Web.UI.WebControls.Panel();
        p.Controls.Add(new LiteralControl("Double-Click"));
        p.BackColor=Color.Red;
        p.BorderStyle=BorderStyle.Solid;
        p.BorderColor=Color.Black;
        return p;
      }
    
      public override object Parse(string s)
      {
      return base.Parse(s);
      }
    
      public override string ValidateEditorValue(object val)
      {
        return base.ValidateEditorValue(val);
      }
    
      public override string EditorClientScriptUrl{get{return "MyEditorScript.htc";}}
      public override string RendererClientScriptUrl{get{return "MyRenderScript.htc";}}
    }
    Imports FarPoint.Web.Spread
    Partial Class SampleCode_Sample1VB
      Inherits System.Web.UI.Page
    
      Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cell As New bcType()
        FpSpread1.ActiveSheetView.Cells(0, 0).CellType = cell
        FpSpread1.ActiveSheetView.Columns(0).Width = 130
        FpSpread1.ActiveSheetView.Rows(0).Height = 40
      End Sub
    End Class
    
    <Serializable()> Public Class bcType
      Inherits FarPoint.Web.Spread.BaseCellType
    
      Public Overrides Function Format(ByVal o As Object) As String
        Return MyBase.Format(o)
      End Function
    
      Public Overrides Function GetEditorValue(ByVal owner As Control, ByVal id As String) As Object
        Return MyBase.GetEditorValue(owner, id)
      End Function
    
      Public Overrides Function GetValidator() As BaseValidator
        Return MyBase.GetValidator()
      End Function
    
      Public Overrides Function PaintCell(ByVal id As String, ByVal parent As TableCell, ByVal style As FarPoint.Web.Spread.Appearance, ByVal margin As FarPoint.Web.Spread.Inset, ByVal val As Object, ByVal ul As Boolean) As System.Web.UI.Control
        ApplyStyleTo(parent, style, margin, True)
        Dim p As New System.Web.UI.WebControls.Panel()
        p.Controls.Add(New LiteralControl("Double-Click"))
        p.BackColor = System.Drawing.Color.Red
        p.BorderStyle = BorderStyle.Solid
        p.BorderColor = System.Drawing.Color.Black
        Return p
      End Function
    
      Public Overrides Function Parse(ByVal s As String) As Object
        Return MyBase.Parse(s)
      End Function
    
      Public Overrides Function ValidateEditorValue(ByVal val As Object) As String
        Return MyBase.ValidateEditorValue(val)
      End Function
    
      Public Overrides ReadOnly Property EditorClientScriptUrl() As String
        Get
          Return "MyEditorScript.htc"
        End Get
      End Property
    
      Public Overrides ReadOnly Property RendererClientScriptUrl() As String
        Get
          Return "MyRenderScript.htc"
        End Get
      End Property
    
      Public Overrides Function GetEditorControl(ByVal id As String, ByVal tc As TableCell, ByVal style As FarPoint.Web.Spread.Appearance, ByVal margin As FarPoint.Web.Spread.Inset, ByVal v As Object, ByVal ul As Boolean) As System.Web.UI.Control
        Dim val As String = Nothing
        Dim val1 As String = ""
        Dim val2 As String = ""
        Dim val3 As String = ""
        Dim u As New System.Web.UI.WebControls.Unit(0)
    
        While Not v = Nothing
          val = v.ToString()
          Dim colors() As String = val.ToString().Split((New Char() {","}), 3)
          If colors.Length = 3 Then
            val1 = colors(0).Trim()
            val2 = colors(1).Trim()
            val3 = colors(2).Trim()
          End If
        End While
    
        Dim table As New Table()
        table.CellPadding = 0
        table.CellSpacing = 0
        table.BorderWidth = u
    
        Dim row As New TableRow()
        table.Rows.Add(row)
    
        Dim tb As New TextBox()
        tb.Text = val1
        tb.Columns = 3
    
        If ul Then
          tb.Attributes.Add("MyEditorComp", "Red")
        End If
        While Not id = Nothing
          tb.ID = id + "c1"
        End While
    
        Dim cell As New TableCell()
        row.Cells.Add(cell)
        cell.Controls.Add(tb)
    
        tb = New TextBox()
        tb.Text = val2
        tb.Columns = 3
        If ul Then
          tb.Attributes.Add("MyEditorComp", "Green")
        End If
    
        While Not id = Nothing
          tb.ID = id + "c2"
        End While
    
        cell = New TableCell()
        row.Cells.Add(cell)
        cell.Controls.Add(tb)
    
        tb = New TextBox()
        tb.Text = val3
        tb.Columns = 3
        If ul Then
          tb.Attributes.Add("MyEditorComp", "Blue")
        End If
    
        While Not id = Nothing
          tb.ID = id + "c3"
        End While
    
        cell = New TableCell()
        row.Cells.Add(cell)
        cell.Controls.Add(tb)
    
        Return table
    
      End Function
    End Class
    See Also