Spread for ASP.NET 13 Product Documentation
FarPoint.Web.Spread Assembly / FarPoint.Web.Spread Namespace / BaseCellType Class / RendererClientScriptUrl Property
Example


In This Topic
    RendererClientScriptUrl Property (BaseCellType)
    In This Topic
    Gets the URL of the client script file for the renderer, if the renderer supports client-side scripting.
    Syntax
    'Declaration
     
    Public Overridable ReadOnly Property RendererClientScriptUrl As String
    'Usage
     
    Dim instance As BaseCellType
    Dim value As String
     
    value = instance.RendererClientScriptUrl
    public virtual string RendererClientScriptUrl {get;}

    Property Value

    String containing the URL of the client script
    Remarks
    This property is available at run time only.
    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