<Serializable()> Public Class PINButtonCellTypeInherits FarPoint.Web.Spread.BaseCellTypePublic Value As StringPublic OnClick As StringPublic 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'Manual realize JS function on client FpCellType value + _getValue(rd) _setEditorValue(ed, val) _getEditorValue(ed) _setValue(rd,val)parent.Attributes.Add("FpCellType", "PINButtonCellType")Dim lit As New System.Web.UI.HtmlControls.HtmlInputButtonlit.Value = Valuelit.Attributes.Add("onclick", String.Format(OnClick, val))Return litEnd FunctionPublic 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.ControlReturn NothingEnd FunctionPublic Overrides Function GetEditorValue(ByVal owner As Control, ByVal id As String) As ObjectReturn MyBase.GetEditorValue(owner, id)End FunctionPublic Overrides Function Format(ByVal o As Object) As StringFormat = MyBase.Format(o)End FunctionPublic Overrides Function Parse(ByVal s As String) As ObjectParse = MyBase.Parse(s)End FunctionPublic Function GetValueFromText(ByVal s As String) As ObjectGetValueFromText = sEnd Function
End Class

Dim btnCellType As New PINButtonCellType
btnCellType.Value = "Reset" 'button name
btnCellType.OnClick = "ResetRadio(this)" 'onclick function
fpsDemo.ActiveSheetView.Columns(0).CellType = btnCellType