Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
　　If IsPostBack Then
　　　　Return
　　End If

　　Dim bc As New FarPoint.Web.Spread.ButtonCellType
　　bc.CommandName = "bcclick"
　　FpSpread1.ActiveSheetView.Columns(0).CellType = bc
End Sub

Private Sub FpSpread1_ButtonCommand(ByVal sender As Object, ByVal e As FarPoint.Web.Spread.SpreadCommandEventArgs) Handles FpSpread1.ButtonCommand
　　If e.CommandName = "bcclick" Then
　　　　' クリックされたボタンの位置を取得
　　　　Dim cell As System.Drawing.Point = CType(e.CommandArgument, System.Drawing.Point)
　　　　FpSpread1.ActiveSheetView.Cells(1, 1).Value = "Cell(" + cell.X.ToString() + "," + cell.Y.ToString() + ")"
　　End If
End Sub

protected void Page_Load(object sender, EventArgs e)
{
　　if (IsPostBack)
　　{
　　　　return;
　　}

　　FarPoint.Web.Spread.ButtonCellType bc = new FarPoint.Web.Spread.ButtonCellType();
　　bc.CommandName = "bcclick";
　　FpSpread1.ActiveSheetView.Columns[0].CellType = bc;
}

protected void FpSpread1_ButtonCommand(object sender, FarPoint.Web.Spread.SpreadCommandEventArgs e)
{
　　if (e.CommandName == "bcclick")
　　{
　　　　// クリックされたボタンの位置を取得
　　　　System.Drawing.Point cell = (System.Drawing.Point)e.CommandArgument;
　　　　FpSpread1.ActiveSheetView.Cells[1, 1].Value = "Cell(" + cell.X.ToString() + "," + cell.Y.ToString() + ")";
　　}
}