Imports Infragistics.Win
Imports Infragistics.Win.CalcEngine
Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
' Create a new ConditionValueAppearance
Dim conditionValueAppearance As ConditionValueAppearance = New ConditionValueAppearance()
' Create a ConditionGroup
Dim conditionGroup As ConditionGroup = New ConditionGroup()
' Create a OperatorCondition that checks for numbers that are greater than or
' equal to -2.
Dim operatorCondition As OperatorCondition = New OperatorCondition(ConditionOperator.GreaterThanOrEqualTo,-2)
' Create a FormulaCondition that checks for numbers that are less than or
' equal to 2. The column passed into the constructor is the column that the FormulaCondition
' will be a part of, and acts as the IFormulaProvider
Dim formulaProvider As IFormulaProvider = Me.ultraGrid1.DisplayLay.Bands(0).Columns(0)
Dim formulaCondition As FormulaCondition = New FormulaCondition(formulaProvider,"[ConditionValue] <= 2")
' Add the two conditions to the conditionGroup
conditionGroup.Add(operatorCondition)
conditionGroup.Add(formulaCondition)
' We only want the color to apply to cells that meet both conditions. So we
' will set the Logical Operator to 'And'.
conditionGroup.CombineOperator = LogicalOperator.And
' Create an appearance that sets the ForeColor to green.
Dim greenAppearance As Infragistics.Win.Appearance = New Infragistics.Win.Appearance("Between -2 and +2")
greenAppearance.BackColor = Color.Green
greenAppearance.ForeColor = Color.White
' Now that we have the condition and appearance we need, add them to the
' conditionValueAppearance.
conditionValueAppearance.Add(conditionGroup, greenAppearance)
' Finally, assign the ConditionValueAppearance to the column
Me.ultraGrid1.DisplayLay.Bands(0).Columns(0).ValueBasedAppearance = conditionValueAppearance
End Sub