Making Decisions Using If...Then...Else

The If...Then...Else statement is used in QTP to evaluate whether a condition is True or False and, depending on the result, to specify one or more statements to run. Usually the condition is an expression that uses a comparison operator to compare one value or variable with another. . If...Then...Else statements can be nested to as many levels as you need.

Running Statements if a Condition is True

To run only one statement when a condition is True, use the single-line syntax for the If...Then...Else statement. The following example shows the single-line syntax. Notice that this example omits the Else keyword.

Sub FixDate()

    Dim myDate

    myDate = #2/13/95#

    If myDate < Now Then myDate = Now

End Sub

To run more than one line of code, you must use the multiple-line (or block) syntax. This syntax includes the End If statement, as shown in the following example:

Sub AlertUser(value)

   If value = 0 Then

      AlertLabel.ForeColor = vbRed

      AlertLabel.Font.Bold = True

      AlertLabel.Font.Italic = True

   End If

End Sub

Running Certain Statements if a Condition is True and Running Others if a Condition is False

You can use an If...Then...Else statement to define two blocks of executable statements: one block to run if the condition is True, the other block to run if the condition is False.

Sub AlertUser(value)

   If value = 0 Then

      AlertLabel.ForeColor = vbRed

      AlertLabel.Font.Bold = True

      AlertLabel.Font.Italic = True

   Else

      AlertLabel.Forecolor = vbBlack

      AlertLabel.Font.Bold = False

      AlertLabel.Font.Italic = False

   End If

End Sub