PowerTools SPREAD for Windows Forms 8.0J
DoubleExpression コンストラクタ


倍精度値
倍精度定数値を使用して新しい式を作成します。
構文
'Declaration
 
Public Function New( _
   ByVal value As Double _
)
'使用法
 
Dim value As Double
 
Dim instance As New DoubleExpression(value)
public DoubleExpression( 
   double value
)

パラメータ

value
倍精度値
次のサンプルコードは、DoubleExpressionを使用してカスタム名を作成します。
//Spread for Windows Forms
FarPoint.CalcEngine.DoubleExpression de = new FarPoint.CalcEngine.DoubleExpression(55.0);
fpSpread1.ActiveSheet.AddCustomName("Alpha", de);
fpSpread1.ActiveSheet.SetFormula(0, 0, "Alpha * 10");
FarPoint.CalcEngine.Expression expr = fpSpread1.ActiveSheet.GetCustomName("Alpha"); 
if (expr is FarPoint.CalcEngine.DoubleExpression) 
{ 
FarPoint.CalcEngine.DoubleExpression ex = ((FarPoint.CalcEngine.DoubleExpression)(expr)); 
MessageBox.Show("The double value is " + ex.DoubleValue.ToString()); 
}
//Spread for Web Forms
FarPoint.CalcEngine.DoubleExpression de = new FarPoint.CalcEngine.DoubleExpression(55.0);
FarPoint.Web.Spread.Model.DefaultSheetDataModel dataModel = new FarPoint.Web.Spread.Model.DefaultSheetDataModel();  
dataModel = (FarPoint.Web.Spread.Model.DefaultSheetDataModel)FpSpread1.ActiveSheetView.DataModel;
dataModel.AddCustomName("Alpha", de);
FpSpread1.Sheets[0].SetFormula(0, 0, "Alpha * 10");
FarPoint.CalcEngine.Expression expr = dataModel.GetCustomName("Alpha"); 
if (expr is FarPoint.CalcEngine.DoubleExpression) 
{ 
FarPoint.CalcEngine.DoubleExpression ex = ((FarPoint.CalcEngine.DoubleExpression)(expr)); 
TextBox1.Text = "The double value is " + ex.DoubleValue.ToString(); 
}
'Spread for Windows Forms
Dim de As New FarPoint.CalcEngine.DoubleExpression(55.0)
FpSpread1.ActiveSheet.AddCustomName("Alpha", de)
FpSpread1.ActiveSheet.SetFormula(0, 0, "Alpha * 10")
Dim expr As FarPoint.CalcEngine.Expression = FpSpread1.ActiveSheet.GetCustomName("Alpha")
If TypeOf expr Is FarPoint.CalcEngine.DoubleExpression Then
Dim ex As FarPoint.CalcEngine.DoubleExpression = CType(expr, FarPoint.CalcEngine.DoubleExpression)
MessageBox.Show("The double value is " & ex.DoubleValue.ToString())
End If
'Spread for Web Forms
Dim de As New FarPoint.CalcEngine.DoubleExpression(55.0)
Dim dataModel As New FarPoint.Web.Spread.Model.DefaultSheetDataModel
dataModel = FpSpread1.ActiveSheetView.DataModel
dataModel.AddCustomName("Alpha", de)
FpSpread1.Sheets(0).SetFormula(0, 0, "Alpha * 10")
Dim expr As FarPoint.CalcEngine.Expression = dataModel.GetCustomName("Alpha")
If TypeOf expr Is FarPoint.CalcEngine.DoubleExpression Then
Dim ex As FarPoint.CalcEngine.DoubleExpression = CType(expr, FarPoint.CalcEngine.DoubleExpression)
TextBox1.Text = "The double value is " & ex.DoubleValue.ToString()
End If
参照

DoubleExpression クラス
DoubleExpression メンバ

 

 


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