Les 5 types de messagebox

Rédigé par spheris Aucun commentaire
Classé dans : Tutoriels, Messagebox, gambas 3 Mots clés : aucun

 
msg.jpg
 
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

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

2- La boite ERREUR ou ERROR

02.jpg
 
Cette boite vous affiche une erreur.
 

3-  La boite INFORMATION

03.jpg
 
Cette boite vous affiche une information
 

4- la boite QUESTION

04.jpg
 
Cette boite vous pose une question
 

5- la boite WARNING

05.jpg
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

06.jpg
 

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


Vous pouvez télécharger les sources de ce petit exemple ICI
(si le fichier ne s 'ouvre pas, renommez le en exemple.tar.gz, merci)
 
Merci pour votre attention
 wink
Fil RSS des articles de cette catégorie