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

viernes, 5 de junio de 2015

Last y Group


Crea un nuevo proyecto, agrégale tres botones y un Label llamado "LabInfo" .
en la propiedad Group de cada botón asígnale un nombre, en este ejemplo use "grupo3". (en todas las propiedades Group de los botones el mismo nombre de grupo)

Last: Devuelve una referencia al último objeto que disparó un evento.

propiedad Group:



' gambas class file


Public Sub grupo3_Click()

LabInfo.Text = Last.Name
Print Last.Caption
Print Object.Class(Last).Name

End

Public Sub Form_Open()

Me.Title = "Usando Last y Group"

End