Imprimir Página - Usar IF THEN ELSE ENDIF en una misma línea

Título: Usar IF THEN ELSE ENDIF en una misma línea
Publicado por: ANTRAX en Julio 26, 2010, 10:29:40 AM

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
A = IIf(I <> 1, "True", "False")
Text1.Text = A
End Sub

Una variante del mismo codigo:

Código (vb) [Seleccionar]

 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

Underc0de

Programación General => Visual Basic => Códigos Fuentes => Mensaje iniciado por: ANTRAX en Julio 26, 2010, 10:29:40 AM