FarPoint.Win.Spread Assembly > FarPoint.Win.Spread Namespace > SheetView Class : RemoveCustomFunction Method |
public class CubeFunctionInfo : FarPoint.CalcEngine.FunctionInfo { public override string Name { get { return "CUBE"; } } public override int MinArgs { get { return 1; } } public override int MaxArgs { get { return 1; } } public override object Evaluate (object[] args) { double num = FarPoint.CalcEngine.CalcConvert.ToDouble(args[0]); return num * num * num; } } DialogResult dlg; fpSpread1.ActiveSheet.AddCustomFunction(new CubeFunctionInfo()); fpSpread1.ActiveSheet.SetFormula(1, 1, "CUBE(4)"); dlg = MessageBox.Show("Do you want to remove the custom function?", "RemoveCustomFunction", MessageBoxButtons.YesNo); if (dlg == DialogResult.Yes) { fpSpread1.ActiveSheet.RemoveCustomFunction("CUBE"); fpSpread1.ActiveSheet.RecalculateAll(); }
Public Class CubeFunctionInfo Inherits FarPoint.CalcEngine.FunctionInfo Public Overrides ReadOnly Property Name() As String Get Return "CUBE" End Get End Property Public Overrides ReadOnly Property MinArgs() As Integer Get Return 1 End Get End Property Public Overrides ReadOnly Property MaxArgs() As Integer Get Return 1 End Get End Property Public Overrides Function Evaluate(ByVal args() As Object) As Object Dim num As Double = FarPoint.CalcEngine.CalcConvert.ToDouble(args(0)) Return num * num * num End Function End Class Dim dlg As DialogResult FpSpread1.ActiveSheet.AddCustomFunction(New CubeFunctionInfo()) FpSpread1.ActiveSheet.SetFormula(1, 1, "CUBE(4)") dlg = MessageBox.Show("Do you want to remove the custom function?", "RemoveCustomFunction", MessageBoxButtons.YesNo) If dlg = DialogResult.Yes Then FpSpread1.ActiveSheet.RemoveCustomFunction("CUBE") FpSpread1.ActiveSheet.RecalculateAll() End If
Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8