Spread Windows Forms 9.0 Product Documentation
ClearCustomFunctions Method (ICustomFunctionSupport2)
Example 


Removes all user-defined functions from the model.
Syntax
'Declaration
 
Sub ClearCustomFunctions() 
'Usage
 
Dim instance As ICustomFunctionSupport2
 
instance.ClearCustomFunctions()
void ClearCustomFunctions()
Example
This examples clears the custom functions in the model.
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; 
} 
} 

FarPoint.Win.Spread.Model.ICustomFunctionSupport cfs; 
cfs = (FarPoint.Win.Spread.Model.ICustomFunctionSupport)fpSpread1.ActiveSheet.Models.Data; 
cfs.AddCustomFunction(new CubeFunctionInfo()); 
fpSpread1.ActiveSheet.SetFormula(1, 1, "CUBE(4)");
FarPoint.Win.Spread.Model.ICustomFunctionSupport2 icf2;
icf2 = (FarPoint.Win.Spread.Model.ICustomFunctionSupport2)fpSpread1.ActiveSheet.Models.Data;
icf2.ClearCustomFunctions();
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 cfs As FarPoint.Win.Spread.Model.ICustomFunctionSupport
cfs = FpSpread1.ActiveSheet.Models.Data
cfs.AddCustomFunction(New CubeFunctionInfo)
FpSpread1.ActiveSheet.SetFormula(1, 1, "CUBE(4)")

Dim icf2 As FarPoint.Win.Spread.Model.ICustomFunctionSupport2
icf2 = FpSpread1.ActiveSheet.Models.Data
icf2.ClearCustomFunctions()
FpSpread1.ActiveSheet.RecalculateAll()
Requirements

Target Platforms: Windows 2000 Professional (SP4), Windows 2000 Server, Windows 2003 Server (SP1), Windows Server 2012 R2, Windows 2008, Windows XP (SP2), Windows Vista, Windows 7, Windows 8, Windows 8.1, Windows 10

See Also

Reference

ICustomFunctionSupport2 Interface
ICustomFunctionSupport2 Members

 

 


Copyright © GrapeCity, inc. All rights reserved.