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

using System;
using System.Web.UI.WebControls;

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

        // クライアントイベント設定
        string js = "var spid='" + FpSpread1.ClientID + "';";
        js += "var ss=document.getElementById(spid);" + "\r\n";
        js += "if (ss.addEventListener) {" + "\r\n";
        js += "    ss.addEventListener(\"MenuItemClicked\", spread_MenuItemClicked, false);" + "\r\n";
        js += "} else {" + "\r\n";
        js += "    ss.onMenuItemClicked = spread_MenuItemClicked;" + "\r\n";
        js += "}" + "\r\n";

        ClientScript.RegisterStartupScript(this.GetType(), "onStartUpScript", js, true);

        if (IsPostBack)
        {
            return;
        }

        // SPREADの設定
        InitSpread(FpSpread1);

        // シート設定
        InitSpreadStyles(FpSpread1.Sheets[0]);
    }

    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;

        FarPoint.Web.Spread.ContextMenu vpMenu = new FarPoint.Web.Spread.ContextMenu();
        vpMenu.Type = FarPoint.Web.Spread.ContextMenuType.Viewport;

        // コピー
        FarPoint.Web.Spread.MenuItem copyVpItem = new FarPoint.Web.Spread.MenuItem("コピー");
        copyVpItem.ImageUrl = "../images/contextmenu/Copy.png";

        // 貼り付け
        FarPoint.Web.Spread.MenuItem pasteVpItem = new FarPoint.Web.Spread.MenuItem("貼り付け");
        pasteVpItem.ImageUrl = "../images/contextmenu/Paste.png";

        FarPoint.Web.Spread.MenuItem editVpItem = new FarPoint.Web.Spread.MenuItem("セル操作");
        editVpItem.ChildItems.AddRange(new FarPoint.Web.Spread.MenuItem[] {
            copyVpItem, 
            pasteVpItem 
        });
        vpMenu.Items.Add(editVpItem);

        spread.EnableContextMenu = true;
        spread.ContextMenus.Add(vpMenu);

        spread.CssClass = "spreadStyle";
        spread.UseClipboard = false;
    }

    private void InitSpreadStyles(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.Columns[0].Width = 36;
        sheet.Columns[1].Width = 88;
        sheet.Columns[2].Width = 91;
        sheet.Columns[3].Width = 80;
        sheet.Columns[4].Width = 36;
        sheet.Columns[5].Width = 46;
        sheet.Columns[6].Width = 49;
        sheet.Columns[7].Width = 80;
        sheet.Columns[8].Width = 181;

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

        // ページサイズの設定
        sheet.PageSize = 50;
    }
}

Partial Class sheet_contextmenu
    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 spid='" + FpSpread1.ClientID & "';"
        js += "var ss=document.getElementById(spid);" & vbCr & vbLf
        js += "if (ss.addEventListener) {" & vbCr & vbLf
        js += "    ss.addEventListener(""MenuItemClicked"", spread_MenuItemClicked, false);" & vbCr & vbLf
        js += "} else {" & vbCr & vbLf
        js += "    ss.onMenuItemClicked = spread_MenuItemClicked;" & vbCr & vbLf
        js += "}" & vbCr & vbLf

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

        If IsPostBack Then
            Return
        End If

        ' SPREADの設定
        InitSpread(FpSpread1)

        ' シート設定
        InitSpreadStyles(FpSpread1.Sheets(0))
    End Sub

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

        Dim vpMenu As New FarPoint.Web.Spread.ContextMenu()
        vpMenu.Type = FarPoint.Web.Spread.ContextMenuType.Viewport

        ' コピー
        Dim copyVpItem As New FarPoint.Web.Spread.MenuItem("コピー")
        copyVpItem.ImageUrl = "../images/contextmenu/Copy.png"

        ' 貼り付け
        Dim pasteVpItem As New FarPoint.Web.Spread.MenuItem("貼り付け")
        pasteVpItem.ImageUrl = "../images/contextmenu/Paste.png"

        Dim editVpItem As New FarPoint.Web.Spread.MenuItem("セル操作")
        editVpItem.ChildItems.AddRange(New FarPoint.Web.Spread.MenuItem() {copyVpItem, pasteVpItem})
        vpMenu.Items.Add(editVpItem)

        spread.EnableContextMenu = True
        spread.ContextMenus.Add(vpMenu)

        spread.CssClass = "spreadStyle"
        spread.UseClipboard = False
    End Sub

    Private Sub InitSpreadStyles(ByVal 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.Columns(0).Width = 36
        sheet.Columns(1).Width = 88
        sheet.Columns(2).Width = 91
        sheet.Columns(3).Width = 80
        sheet.Columns(4).Width = 36
        sheet.Columns(5).Width = 46
        sheet.Columns(6).Width = 49
        sheet.Columns(7).Width = 80
        sheet.Columns(8).Width = 181

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

        ' ページサイズの設定
        sheet.PageSize = 50
    End Sub
End Class

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

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

<asp:Content ID="Content1" ContentPlaceHolderID="HeaderPlaceHolder1" runat="Server">
<script type="text/javascript">
    function spread_MenuItemClicked(e) {
        var e = e || window.event;
        var spread = document.getElementById(spid);
        var menuItem = e.SelectedItem;

        var node = menuItem.childNodes[1].childNodes[0];
        var itemText;
        if (node.nodeType == 1) {
            itemText = node.innerText;
        } else {
            itemText = node.data;
        }
        switch (itemText) {
            // セル操作
            case "コピー":
                spread.Copy();
                break;
            case "貼り付け":
                spread.Paste();
                break;
            // 列操作
            case "列幅を列内の最長テキストに調整":
                var rg = spread.GetSelectedRange();
                for (var i = rg.col; i < rg.col + rg.colCount; i++) {
                    spread.SizeToFit(i);
                }
                break;
            case "列幅の調整...":
                var newWidth = prompt("この列の列幅を入力してください", spread.Columns(spread.GetActiveCol()).GetWidth());                
                if (!isNaN(newWidth) && newWidth != null) {
                    var rg = spread.GetSelectedRange();
                    for (var i = rg.col; i < rg.col + rg.colCount; i++) {
                        spread.SetColWidth(i, newWidth);
                    }
                }
                break;
            // 行操作
            case "行の削除":
                spread.Delete();
                break;
            case "この行を先頭にスクロール":
                spread.ScrollTo(spread.ActiveRow, 1);
                break;
            default:
                return;
        }
        e.cancel = true;
    }
</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="#F6F6F6" ButtonFaceColor="Control" ButtonHighlightColor="ControlLightLight"
            ButtonShadowColor="ControlDark">
        </CommandBar>
        <Sheets>
            <FarPoint:SheetView SheetName="Sheet1">
            </FarPoint:SheetView>
        </Sheets>
        <ContextMenus>
            <FarPoint:ContextMenu Type="ColumnHeader">
            <Items>
                <FarPoint:MenuItem Text="列操作">
                <ChildItems>
                    <FarPoint:MenuItem Text="列幅を列内の最長テキストに調整">
                    </FarPoint:MenuItem>
                    <FarPoint:MenuItem Text="列幅の調整...">
                    </FarPoint:MenuItem>
                </ChildItems>
                </FarPoint:MenuItem>
            </Items>
            </FarPoint:ContextMenu>
            <FarPoint:ContextMenu Type="RowHeader">
            <Items>
                <FarPoint:MenuItem Text="行操作">
                <ChildItems>
                    <FarPoint:MenuItem Text="行の削除">
                    </FarPoint:MenuItem>
                    <FarPoint:MenuItem Text="この行を先頭にスクロール">
                    </FarPoint:MenuItem>
                </ChildItems>
                </FarPoint:MenuItem>
            </Items>
            </FarPoint:ContextMenu>
        </ContextMenus>
    </FarPoint:FpSpread>
</asp:Content>