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