pregunta:
¿Cómo Usar IF THEN ELSE ENDIF en una misma línea?
respuesta:
Insertar un CommandButton y un TextBox y escribir el siguiente código:
Código:
Private Sub Command1_Click()
Dim I As Integer
Dim A As String
I = 3
A = IIf(I <> 1, "True", "False")
Text1.Text = A
End Sub
Una variante del mismo codigo aportada por David el Grande.
Código:
Insertar un CommandButton y un TextBox y escribir el siguiente código:
Private Sub Command1_Click()
Dim I As Integer
Dim A As String
I = 3
If I <> 1 Then A = "True" Else A = "False"
Text1.Text = A
End Sub