SPREAD for ASP.NETデモアプリケーション

using System;
using System.Data;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.Configuration;

public partial class clientsynchrocolwidth : System.Web.UI.Page
{
    protected void Page_Load(object sender, EventArgs e)
    {

        // クライアントイベントの設定
        string js = "var spid1='" + FpSpread1.ClientID + "';";
        js += "var spid2='" + FpSpread2.ClientID + "';";
        js += "setTimeout(\"inite()\", 1000);" + "\r\n";
        js += "function inite()" + "\r\n";
        js += "{" + "\r\n";
        js += "    var s1=document.getElementById(spid1);" + "\r\n";
        js += "    var s2=document.getElementById(spid2);" + "\r\n";
        js += "    if (document.all) {" + "\r\n";
        js += "        if (s1.addEventListener) {" + "\r\n";
        js += "            s1.addEventListener(\"ColWidthChanged\", cwidth1, false);" + "\r\n";
        js += "            s2.addEventListener(\"ColWidthChanged\", cwidth2, false);" + "\r\n";
        js += "        } else {" + "\r\n";
        js += "            s1.onColWidthChanged = cwidth1;" + "\r\n";
        js += "            s2.onColWidthChanged = cwidth2;" + "\r\n";
        js += "        }" + "\r\n";
        js += "    } else {" + "\r\n";
        js += "        s1.addEventListener(\"ColWidthChanged\", cwidth1, false);" + "\r\n";
        js += "        s2.addEventListener(\"ColWidthChanged\", cwidth2, false);" + "\r\n";
        js += "    }" + "\r\n";
        js += "}" + "\r\n";
        
        ClientScript.RegisterStartupScript(this.GetType(), "onStartUpScript", js, true);

        if (IsPostBack) return;

        // セル型の自動設定を無効化
        FpSpread1.ActiveSheetView.DataAutoCellTypes = false;
        FpSpread2.ActiveSheetView.DataAutoCellTypes = false;

        // データ連結
        DataSet ds1 = new DataSet();
        ds1.ReadXml(MapPath("../App_Data/datapln.xml"));
        FpSpread1.DataSource = ds1;

        DataSet ds2 = new DataSet();
        ds2.ReadXml(MapPath("../App_Data/datares.xml"));
        FpSpread2.DataSource = ds2;

        FarPoint.Web.Spread.SheetView sheet1 = FpSpread1.Sheets[0];
        FarPoint.Web.Spread.SheetView sheet2 = FpSpread2.Sheets[0];
        
        // SPREAD初期化
        InitSpread(sheet1,FpSpread1);
        InitSpread(sheet2,FpSpread2);
    }

    private void InitSpread(FarPoint.Web.Spread.SheetView sheet,FarPoint.Web.Spread.FpSpread spread)
    {
        // SPREAD設定
        spread.CommandBar.Visible = false;
        spread.Style.Add("position", "relative");
        spread.Width = 650;
        spread.Height = 150;
        spread.UseClipboard = false;

        // フォントサイズの設定
        sheet.DefaultStyle.Font.Size = FontUnit.Parse("80%");
        sheet.ColumnHeader.DefaultStyle.Font.Size = FontUnit.Parse("80%");
        sheet.RowHeader.DefaultStyle.Font.Size = FontUnit.Parse("80%");
        sheet.SheetCorner.DefaultStyle.Font.Size = FontUnit.Parse("80%");

        // シート設定
        sheet.PageSize = sheet.RowCount;

        // 列幅の設定
        sheet.Columns[0].Width = 50;
        sheet.Columns[1].Width = 70;
        sheet.Columns[2].Width = 130;

        for (int i = 3; i < spread.ActiveSheetView.ColumnCount; i++)
        {
            sheet.Columns[i].Width = 65;
        }

        // 縦方向の揃え位置を中央に設定
        sheet.DefaultStyle.VerticalAlign = VerticalAlign.Middle;

        // 各列のセル型を設定
        FarPoint.Web.Spread.GeneralCellType gnr = new FarPoint.Web.Spread.GeneralCellType();
        gnr.FormatString = "#,##0";
        sheet.Columns[3, sheet.ColumnCount - 1].CellType = gnr;
        sheet.Columns[3, sheet.ColumnCount - 1].HorizontalAlign = HorizontalAlign.Right;       
    }
}

Partial Public Class clientsynchrocolwidth
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' クライアントイベント設定
        Dim js As String = "var spid1='" + FpSpread1.ClientID & "';"
        js += "var spid2='" + FpSpread2.ClientID & "';"
        js += "    var s1=document.getElementById(spid1);" & vbCr & vbLf
        js += "    var s2=document.getElementById(spid2);" & vbCr & vbLf
        js += "    if (document.all) {" & vbCr & vbLf
        js += "        s1.onColWidthChanged = cwidth1;" & vbCr & vbLf
        js += "        s2.onColWidthChanged = cwidth2;" & vbCr & vbLf
        js += "    } else {" & vbCr & vbLf
        js += "        s1.addEventListener(""ColWidthChanged"", cwidth1, false);" & vbCr & vbLf
        js += "        s2.addEventListener(""ColWidthChanged"", cwidth2, false);" & vbCr & vbLf
        js += "    }" & vbCr & vbLf

        ClientScript.RegisterStartupScript(Me.GetType(), "onStartUpScript", js, True)

        If IsPostBack Then
            Return
        End If

        ' セル型の自動設定を無効化
        FpSpread1.ActiveSheetView.DataAutoCellTypes = False
        FpSpread2.ActiveSheetView.DataAutoCellTypes = False

        ' データ連結
        Dim ds1 As New System.Data.DataSet()
        ds1.ReadXml(MapPath("../App_Data/datapln.xml"))
        FpSpread1.DataSource = ds1

        Dim ds2 As New System.Data.DataSet()
        ds2.ReadXml(MapPath("../App_Data/datares.xml"))
        FpSpread2.DataSource = ds2

        Dim sheet1 As FarPoint.Web.Spread.SheetView = FpSpread1.Sheets(0)
        Dim sheet2 As FarPoint.Web.Spread.SheetView = FpSpread2.Sheets(0)

        ' SPREAD初期化
        InitSpread(sheet1, FpSpread1)
        InitSpread(sheet2, FpSpread2)
    End Sub

    Private Sub InitSpread(ByVal sheet As FarPoint.Web.Spread.SheetView, ByVal spread As FarPoint.Web.Spread.FpSpread)
        ' SPREAD設定
        spread.CommandBar.Visible = False
        spread.Style.Add("position", "relative")
        spread.Width = 650
        spread.Height = 150
        spread.UseClipboard = False

        ' フォントサイズの設定
        sheet.DefaultStyle.Font.Size = FontUnit.Parse("80%")
        sheet.ColumnHeader.DefaultStyle.Font.Size = FontUnit.Parse("80%")
        sheet.RowHeader.DefaultStyle.Font.Size = FontUnit.Parse("80%")
        sheet.SheetCorner.DefaultStyle.Font.Size = FontUnit.Parse("80%")

        ' シート設定
        sheet.PageSize = sheet.RowCount

        ' 列幅の設定
        sheet.Columns(0).Width = 50
        sheet.Columns(1).Width = 70
        sheet.Columns(2).Width = 130

        For i As Integer = 3 To spread.ActiveSheetView.ColumnCount - 1
            sheet.Columns(i).Width = 65
        Next

        ' 縦方向の揃え位置を中央に設定
        sheet.DefaultStyle.VerticalAlign = VerticalAlign.Middle

        ' 各列のセル型を設定
        Dim gnr As New FarPoint.Web.Spread.GeneralCellType()
        gnr.FormatString = "#,##0"
        sheet.Columns(3, sheet.ColumnCount - 1).CellType = gnr
        sheet.Columns(3, sheet.ColumnCount - 1).HorizontalAlign = HorizontalAlign.Right
    End Sub
End Class

<%@ Page MasterPageFile="~/MasterPage.master" Language="c#" AutoEventWireup="true" 
         Inherits="clientsynchrocolwidth" CodeFile="clientsynchrocolwidth.aspx.cs" %>

<%@ Register Assembly="FarPoint.Web.SpreadJ" Namespace="FarPoint.Web.Spread" TagPrefix="FarPoint" %>

<asp:Content ID="Content1" ContentPlaceHolderID="HeaderPlaceHolder1" Runat="Server">
<script type="text/javascript">
    function cwidth1(event) {
        if (event == null)
            event = window.event;
        var s = document.getElementById(spid2);
        setcwidth(s, event.col, event.width);
    }
    function cwidth2(event) {
        if (event == null)
            event = window.event;
        var s = document.getElementById(spid1);
        setcwidth(s, event.col, event.width);
    }
    function setcwidth(spread, col, width) {
        spread.SetColWidth(col, width);
    }    
</script>
</asp:Content>

<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" runat="server">
    <farpoint:FpSpread ID="FpSpread1" runat="server" BorderColor="#A0A0A0" BorderStyle="Solid"
        BorderWidth="1px">
        <CommandBar BackColor="Control" ButtonFaceColor="Control" ButtonHighlightColor="ControlLightLight"
            ButtonShadowColor="ControlDark" />
        <Sheets>
            <farpoint:SheetView SheetName="Sheet1">
            </farpoint:SheetView>
        </Sheets>
    </farpoint:FpSpread>
    <br />
    <farpoint:FpSpread ID="FpSpread2" runat="server"  BorderColor="#A0A0A0" BorderStyle="Solid"
        BorderWidth="1px">
        <CommandBar BackColor="#F6F6F6" ButtonFaceColor="Control" ButtonHighlightColor="ControlLightLight"
            ButtonShadowColor="ControlDark" />
        <Sheets>
            <farpoint:SheetView SheetName="Sheet1">
            </farpoint:SheetView>
        </Sheets>
    </farpoint:FpSpread>
</asp:Content>