IIF

' gambas class file

' by postapase

Public Sub chkMostrar_Click()
Print IIf(chkMostrar.Value, "Mostrar resultados esta habilitado", "Mostrar resultados deshabilitado")
End

Public Sub chkCambiar_Click()
chkCambiar.Text = IIf(chkCambiar.Value, "Habilitado", "Deshabilitado")
End

Public Function Arroba(cadena As String) As Boolean

If InStr(cadena, "@") <> 0 Then
Return True
Else
Return False
Endif

End

Public Sub btnVerificar_Click()
Print IIf(Arroba(txtcadena.Text), "La cadena contiene el caracter @", "Caracter @ no encontrado")
End

Public Sub Form_Open()
Me.Center
End

Código fuente: IIF-0.0.1.tar.gz