FarPoint.Win.SpreadJ アセンブリ > FarPoint.Win.Spread 名前空間 > ConditionalFormat クラス : FirstConditionExpression プロパティ |
'Declaration Public Property FirstConditionExpression As Expression
'使用法 Dim instance As ConditionalFormat Dim value As Expression instance.FirstConditionExpression = value value = instance.FirstConditionExpression
public Expression FirstConditionExpression {get; set;}
FarPoint.Win.Spread.NamedStyle above = new FarPoint.Win.Spread.NamedStyle(); FarPoint.Win.Spread.NamedStyle below = new FarPoint.Win.Spread.NamedStyle(); above.BackColor = Color.Red; below.BackColor = Color.Yellow; FarPoint.CalcEngine.Expression one; FarPoint.CalcEngine.Expression two; FarPoint.CalcEngine.Expression oneplustwo; one = new FarPoint.CalcEngine.DoubleExpression(100.0); two = new FarPoint.CalcEngine.DoubleExpression(20.0); oneplustwo = new FarPoint.CalcEngine.BinaryOperatorExpression(FarPoint.CalcEngine.BinaryOperatorInfo.AddOperator, one, two); fpSpread1.ActiveSheet.SetExpression(1, 1, oneplustwo); fpSpread1.ActiveSheet.SetConditionalFormat(1, 1, above, FarPoint.Win.Spread.ComparisonOperator.GreaterThan, one, two); fpSpread1.ActiveSheet.SetConditionalFormat(1, 1, below, FarPoint.Win.Spread.ComparisonOperator.LessThan, one, two); FarPoint.Win.Spread.ConditionalFormat[]cf; cf = fpSpread1.ActiveSheet.GetConditionalFormats(1, 1); foreach (FarPoint.Win.Spread.ConditionalFormat item in cf) { MessageBox.Show(item.FirstConditionExpression.ToString()); }
Dim above As New FarPoint.Win.Spread.NamedStyle Dim below As New FarPoint.Win.Spread.NamedStyle above.BackColor = Color.Red below.BackColor = Color.Yellow Dim one As FarPoint.CalcEngine.Expression Dim two As FarPoint.CalcEngine.Expression Dim oneplustwo As FarPoint.CalcEngine.Expression one = New FarPoint.CalcEngine.DoubleExpression(100.0) two = New FarPoint.CalcEngine.DoubleExpression(20.0) oneplustwo = New FarPoint.CalcEngine.BinaryOperatorExpression(FarPoint.CalcEngine.BinaryOperatorInfo.AddOperator, one, two) FpSpread1.ActiveSheet.SetExpression(1, 1, oneplustwo) Dim co As New FarPoint.Win.Spread.ComparisonOperator FpSpread1.ActiveSheet.SetConditionalFormat(1, 1, above, co.GreaterThan, one, two) FpSpread1.ActiveSheet.SetConditionalFormat(1, 1, below, co.LessThan, one, two) Dim cf As FarPoint.Win.Spread.ConditionalFormat() Dim item As New FarPoint.Win.Spread.ConditionalFormat cf = FpSpread1.ActiveSheet.GetConditionalFormats(1, 1) For Each item In cf MessageBox.Show(item.FirstConditionExpression.ToString()) Next