PowerTools SPREAD for Windows Forms 8.0J
RemoveCustomFunction メソッド (SheetView)


削除するカスタム関数の名前
このシートのモデルからユーザー定義のカスタム関数(FunctionInfoオブジェクト)を削除します。
構文
'Declaration
 
Public Sub RemoveCustomFunction( _
   ByVal name As String _
) 
'使用法
 
Dim instance As SheetView
Dim name As String
 
instance.RemoveCustomFunction(name)
public void RemoveCustomFunction( 
   string name
)

パラメータ

name
削除するカスタム関数の名前
解説
数式の使用の詳細については、「関数リファレンス」を参照してください。
次のサンプルコードは、シートからユーザー定義のカスタム関数を削除します。
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
参照

SheetView クラス
SheetView メンバ
AddCustomFunction メソッド

開発者ガイド

カスタム関数の作成

 

 


© 2004-2015, GrapeCity inc. All rights reserved.