Gambas France BETA


Pas de compte ? Incription

Boutons

À propos de ce code

'<------------------------------------- pour chaque bouton on ajuste les propriétés "Group" et "Action"
'<------------------------------------- après avoir créé un "Group", ici nommé "mesBoutons",
'<------------------------------------- on créé une "Action" commune aux boutons, ici nommée "Bouton"
'<------------------------------------- on créé l'évènement _Click() associé au "Group"

Ajout des Labels

'<------------------------------------- Les Labels ----------------------------

'<------------------------------------- pour chaque Label on ajuste la propriété "Group"
'<------------------------------------- après avoir créé un "Group", ici nommé "mesLabels",
'<------------------------------------- on créé l'évènement _MouseDown() associé au "Group"

Traduction en italien et français

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
26
27
28
29
' Gambas class file

'<------------------------------------- pour chaque bouton on ajuste les propriétés "Group" et "Action"
'<------------------------------------- après avoir créé un "Group", ici nommé "mesBoutons",
'<------------------------------------- on créé une "Action" commune aux boutons, ici nommée "Bouton"
'<------------------------------------- on créé l'évènement _Click() associé au "Group"

PUBLIC SUB mesBoutons_Click()

Action["bouton", ME].Enabled = TRUE '<-------------------------------------- active ou désactive tous les contrôles associés à une action
LAST.Enabled = FALSE
Message.Info(LAST.Text & gb.CrLf & ("has been clicked"), ("OK"))

END

PUBLIC SUB btnReset_Click()

Button1.Enabled = TRUE
Button2.Enabled = TRUE
Button3.Enabled = TRUE
Button4.Enabled = TRUE

END

PUBLIC SUB btnClose_Click()

ME.Close()

END

Commentaires