Gambas France BETA


Pas de compte ? Incription

Utilisation des Tags

À propos de ce code

Ce code est valable en Gambas 2 et 3 mais l'archive est en Gambas3 .

Un tous petit bout de code pour vous montrer une utilisation des tags dans Gambas. J'ai découvert cette utilisation en regardant les sources de gambas. Je joint une archive au cas ou je me fasse pas bien comprendre mais vous verrez que c'est très simple ;)

Dans FMain vous créez trois boutons : Button1 Button2 et Button3. Pour Button1 vous mettez 1 en Tag,1 en Text et PaveNum en Group , pour Button2, 2 en Tag, 2 en Text et PaveNum en Group, pareil pour button3.

Dans le code de FMain vous copier le code ci dessous, qui est si simple qu'il ne mérite aucune explication.

La sub : Public Sub PaveNum_Click() traite en faite de l'évènement Click sur un des boutons du groupe PaveNum.


Code source

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
' Gambas class file

PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END


PUBLIC SUB PaveNum_Click()
DIM sTag AS STRING
sTag = LAST.tag
SELECT sTag

CASE "1"
Message.Info("tu as choisi 1")
CASE "2"
Message.Info("tu as choisi 2")
CASE "3"
Message.Info("tu as choisi 3")
END SELECT

END

Commentaires