Les 5 types de boites messages

Bonjour,
Aujourd'hui nous allons voir les 'boites de messages'

Il s'agit de boites qui vous alertent sur une action à effectuer, simple information, ou une question sur telle ou telle action à effectuer.
Il en existe plusieurs types qui fonctionnent de façons similaires:

1- la boite DELETE

Cette boite sous forme d'alerte vous informe sur une action importante à réaliser.

2- La boite ERREUR ou ERROR

Cette boite vous affiche une erreur.

3- La boite INFORMATION

Cette boite vous affiche une information

4- la boite QUESTION

Cette boite vous pose une question

5- la boite WARNING

Cette boite vous alerte d'un evènement.

Dans ces 5 cas, le fonctionnement est le même et c'est juste le nom de la fenêtre qui change et l'icone de notification.
La valeur renvoyé par la fenêtre est un nombre qui donne la position du bouton entre les virgules.

Un exemple :
dans notre boite QUESTION voici le code :

myanswer = Message.Question("Are you sure?", "i don't know", "yes, why?", "no,i'm very sure!")

message.question(position 0, position 1, position 2,position 3)

la position 0 est le message
la position 1 est le premier bouton
la position 2 est le deuxième bouton
la position 3 est le 3eme bouton

Lors d'un clic sur un bouton, myanswer prendra la valeur du bouton sélectionné.

6 - la boite Option ou optional

Cette boite est un peu particulière et demande d'avoir le composant gb.settings coché.
Cette boite sert si vous utilisez souvent une fonction qui demande à être validé souvent.
Vous pouvez cocher la checkbox, qui vous autorisera par défaut.
La valeur sera ainsi écrite dans votre fichier setting.conf.

Voici le code de cet exemple:

' Gambas class file


Public Sub bdelete_Click()
Dim myanswer As Integer
myanswer = Message.Delete("Delete it?", "no", "yes", "help me mama, i'm scared")
Select Case myanswer
  Case 1 'if i clic on NO
  
  Case 2 'if i clic on YES
  
  Case 3 ' if i clic on HELP ME...
    
End Select
End



Public Sub Form_Open()
Me.Center()
End

Public Sub berror_Click()
Dim myanswer As Integer
Message.Error("An error is occured in module 654F64, do you want to restart windows?", "i can't", "impossible to reboot", "i'm crying")
Select Case myanswer
  Case 1 'if i clic on I CAN'T
  
  Case 2 'if i clic on IMPOSSIBLE...
  
  Case 3 ' if i clic on IM CRYING...
    
End Select
End



Public Sub binfo_Click()
Dim myanswer As Integer
myanswer = Message.Info("Info : ssky is blue", "Sure")
If myanswer = 1 Then Print "clic on sure"
End

Public Sub boption_Click()
Dim myanswer As Integer
Message.Optional("Do you want to do this action every minute", "Why not", "TOTO/TITI", "icon:/32/add", True)
If myanswer = 1 Then Print "clic on WHY NOT"
End

Public Sub bquestion_Click()
Dim myanswer As Integer
myanswer = Message.Question("Are you sure?", "i don't know", "yes, why?", "no,i'm very sure!")
Select Case myanswer
  Case 1 'if i clic on I DON'T KNOW
  
  Case 2 'if i clic on YES...
  
  Case 3 ' if i clic on NO,...
    
End Select
End

Public Sub bwarning_Click()
Dim myanswer As Integer
myanswer = Message.Warning("Warning, your hand is in my...", "excuse me", "was it your..?", "it's not me")
Select Case myanswer
  Case 1 'if i clic on EXCUSE ME
  
  Case 2 'if i clic on WAS IT..
  
  Case 3 ' if i clic on ITS NOT...
    
End Select
End

Public Sub bclose_Click()
Me.Close()
End