5 message box types

Hi,
today we will learn about message boxes.

It's somes boxes who send you alert, question, warning or other to ask you to choose one action.

1- DELETE messagebox

This box ask you to delete something with delete icon

2-ERROR messagebox

This box ask you something with error Icon

3- INFORMATION messagebox

This box ask you something with information icon

4- QUESTION messagebox

This box ask you something with question icon

5-WARNING messagebox

This box ask you something with warning icon

In all cases , all boxes work with the same structure.
create one integer variable, and result will be in this variable.
Result is simply position of string chain between ',' symbol.

One example : :
i our Messagebox QUESTION, here source 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)

position 0 is message
position 1 is first bouton
position 2 is second bouton
position 3 is 3rd bouton

when button is clicked, myanswer wil have position value.

6 - OPTIONAL messagebox

This box require gb.settings component
this box is used when you need to use very often one option in your software.
you can validate checkbox who allo by default.
All data will be stored in setting file.conf.

Here source code of our project :

' 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