Paint Clip

Algo que se esta poniendo de moda son las imágenes recortadas en forma de círculo. Bueno aquí les dejo un código algo crudo para que practiquen.

El ejemplo esta en la granja de gambas.

Usando Message.Optional

Dejo este ejemplo de Message.optional tal vez poco conocido.

Saludos y comenten.

' gambas class file

'by postapase
'necesario activar componente gb.settings, sino tira error (identificador desconocido:Settings)
'osea Message.Optional trabaja en conjunto con settings (gb.settings)
'en el archivo settings ubicado en /home/tu.usuario/.config/gambas3 se ve asi:
'[HiddenMessage]
'VerMensaje = True

'[HiddenMessage] es el nombre de la key predeterminada de Message.Optional
'VerMensaje es el nombre del valor que nosotros elegimos.

Public Ver As Boolean

Public Sub Form_Open()

Ver = Settings["HiddenMessage/VerMensaje", False]
Message.Optional("Esto es un ejemplo de Message.Optional!", "Aceptar", "VerMensaje")

End

Public Sub Button1_Click()

Settings["HiddenMessage/VerMensaje"] = False
Settings.Save

End

Public Sub Button2_Click()
Form_Open()
End

Descargar Código fuente: DesactivarActivarAviso-0.0.1.tar.gz?dl=0