lunes, 15 de junio de 2015

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

No hay comentarios.:

Publicar un comentario

Related Posts Plugin for WordPress, Blogger...

Facebook

www.gambas-es.org

www.gambas-es.org
Si quieres que tu curva de aprendizaje sea rápida, regístrate en este gran foro en español.