Estructura if then

La instrucción if se utiliza para decidir que acción realizar entre dos posibles opciones. La estructura es la siguiente:

If <comprabación lógica> Then
         [Acciones a realizarse si se cumple la condición]
Else
         [Acciones a realizarse sin no se cumple la condición]
End If

en el siguiente ejemplo suponemos que nos pasaron la edad de una persona en la variable vEdad y debemos informar si esta persona es mayor de edad (21 años).

If vEdad >= 21 Then
MsgBox("Es mayor de edad")
Else
MsgBox("Es menor de edad")
End If

para la asignación de valores a una variable se puede utilizar la instrucción iif la cual se escribe en una sola línea:

iif(<comprobación lógica>, Acción si se cumple, Acción si no se cumple)

supongamos que tengo un textbox llamado txtCantidad de donde tomo un valor numerico y se lo asigno a una variable de tipo integer llamada vCantidad, pero si el textBox está vacio la asignación dará error, entonces lo podemos solucionar con un iif.

Dim vCantidad As Integer
vCantidad = IIf(txtCantidad.Text = String.Empty, 0, txtCantidad.Text)

Tambien podemos usa if’s anidados y asi romper la barrera de las dos opciones para decidir. Supongamos que tenemos que utilizar un semáfono (rojo, amarillo o verde) para resaltar un porcentaje de cumplimiento. Las opciones son tres y un if solo permite dos (verdadero o falso), usando if’s anidades podemos afrontar este y muchos otros problemas.

'Tenemos un formulario (Form1) con un
'textbox (textbox1) el cual contiene un
'valor que representa el porcentaje de
'cumplimiento

'Si es mayor igual a 100 el color es verde
'si está entre 80 y 100 el color es amarillo
'y si esta debajo de 80 es rojo

If TextBox1.Text >= 100 Then
TextBox1.BackColor = Color.Green
Else
If TextBox1.Text >= 80 Then
TextBox1.BackColor = Color.Yellow
Else
TextBox1.BackColor = Color.Red
End If
End If

también podemos usar elseif como se muestra a continuación

If TextBox1.Text >= 100 Then
TextBox1.BackColor = Color.Green
ElseIf TextBox1.Text >= 80 Then
TextBox1.BackColor = Color.Yellow
Else
TextBox1.BackColor = Color.Red
End If