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

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 FarPoint.Web.Spread.Model;

public partial class CodeSample_TouchStrip : System.Web.UI.Page
{
  protected void Page_Load(object sender, EventArgs e)
  {
    if (IsPostBack) return;

    // SPREADの設定
    InitSpread(FpSpread1);

    // シート設定
    InitSheet(FpSpread1.ActiveSheetView);

  }

  private void InitSpread(FarPoint.Web.Spread.FpSpread spread)
  {
      //データ連結
      System.Data.DataSet ds = new System.Data.DataSet();
      ds.ReadXml(MapPath("../App_Data/data50.xml"));
      spread.DataSource = ds;

      spread.CssClass = "spreadStyle";
  }

  private void InitSheet(FarPoint.Web.Spread.SheetView sheet)
  {
      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.ColumnCount = 9;
      sheet.RowCount = 30;
      sheet.PageSize = 30;
  }

  protected void FpSpread1_ButtonCommand(object sender, SpreadCommandEventArgs e)
  {
    CellRange model = FpSpread1.ActiveSheetView.SelectionModel[0];
    int r1 = model.Row;
    int r2 = model.Row + model.RowCount - 1;
    switch (e.CommandName)
    {
      case "Red":
        FpSpread1.ActiveSheetView.Rows[r1, r2].BackColor = System.Drawing.Color.Red;
        break;
      case "Green":
        FpSpread1.ActiveSheetView.Rows[r1, r2].BackColor = System.Drawing.Color.Green;
        break;
      case "Blue":
        FpSpread1.ActiveSheetView.Rows[r1, r2].BackColor = System.Drawing.Color.Blue;
        break;
    }
    FpSpread1.SaveChanges();
  }
}

Imports System.Collections.Generic
Imports System.Linq
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports FarPoint.Web.Spread
Imports FarPoint.Web.Spread.Model

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

    Protected Sub Page_Load(sender As Object, e As EventArgs)
        If IsPostBack Then
            Return
        End If

        ' SPREADの設定
        InitSpread(FpSpread1)

        'シート設定
        InitSheet(FpSpread1.ActiveSheetView)

    End Sub

    Private Sub InitSpread(spread As FarPoint.Web.Spread.FpSpread)
        'データ連結
        Dim ds As New System.Data.DataSet()
        ds.ReadXml(MapPath("../App_Data/data50.xml"))
        spread.DataSource = ds

        spread.CssClass = "spreadStyle"
    End Sub

    Private Sub InitSheet(sheet As FarPoint.Web.Spread.SheetView)
        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.ColumnCount = 9
        sheet.RowCount = 30
        sheet.PageSize = 30
    End Sub

    Protected Sub FpSpread1_ButtonCommand(sender As Object, e As SpreadCommandEventArgs) Handles FpSpread1.ButtonCommand
        Dim model As CellRange = FpSpread1.ActiveSheetView.SelectionModel(0)
        Dim r1 As Integer = model.Row
        Dim r2 As Integer = model.Row + model.RowCount - 1
        Select Case e.CommandName
            Case "Red"
                FpSpread1.ActiveSheetView.Rows(r1, r2).BackColor = System.Drawing.Color.Red
                Exit Select
            Case "Green"
                FpSpread1.ActiveSheetView.Rows(r1, r2).BackColor = System.Drawing.Color.Green
                Exit Select
            Case "Blue"
                FpSpread1.ActiveSheetView.Rows(r1, r2).BackColor = System.Drawing.Color.Blue
                Exit Select
        End Select
        FpSpread1.SaveChanges()
    End Sub
End Class

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

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

<asp:Content ID="Content1" ContentPlaceHolderID="HeaderPlaceHolder1" runat="Server">  
  <script type="text/javascript">
    function setcolor(color) {
      var spread = document.getElementById("FpSpread1");
      spread.UpdatePostbackData();
      spread.CallBack(color);
    }
  </script>
</asp:Content>  
<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" runat="server">
    <div>
      <FarPoint:FpSpread ID="FpSpread1" ClientIDMode="Static" runat="server"  BorderColor="#A0A0A0" BorderStyle="Solid" BorderWidth="1px" OnButtonCommand="FpSpread1_ButtonCommand">
        <CommandBar BackColor="#F6F6F6" ButtonFaceColor="Control" ButtonHighlightColor="ControlLightLight" ButtonShadowColor="ControlDark"></CommandBar>
        <Sheets>
          <FarPoint:SheetView SheetName="Sheet1"></FarPoint:SheetView>
        </Sheets>
      </FarPoint:FpSpread>
    </div>
</asp:Content>